طلب صغير وبسيط

اهلا بك فى منتدى الروعة وان شاء الله تجد ماتريد

اقتباس

طلبي بسيط بدي مساعدة منكم اريد عمل برنامج يحتوي على عناصر ليست بوكس و عند الضغط على احدى العناصر يتغير ما بمحتوى صندوق نص و اريد ان اعمل زر للبحث عن نص معين في هذا التيكست

بالنسبة للجزء الاول من السؤال فاجابته بسيطة جداً وهى الكود التالى

Private Sub List1_Click()
Text1.Text=List1.Text
End Sub

اما بالنسبة للجزء الثانى فهذا هو الكود

Private Sub Command1_Click()
Dim Counter As Integer, i As String, C As String
i = InputBox("ادخل النص الذى تريد البحث عنه", "بحث")
If Len(i) Then
    For Counter = 0 To List1.ListCount - 1
        C = List1.List(Counter)
        If InStr(1, C, i, vbTextCompare) Then
            List1.Selected(Counter) = True
            Exit For
        End If
    Next
End If
End Sub

ارجو ان اكون قد وفقت فى افادتك :rolleyes: