كمكمكمكمك متن زيادي در تكست باك دارم ميخوام يك كلمه جستجو كنم

:sad: باسلام من به مشكل برخوردم ميدونين چيه من در يك تكست باكس متن زيادي دارم مثلا "ali va amin va brobach" خوب ميخوام "amin" رو جستجوكنم بره توي ليست باكس حالا با اين تفاصير ميخواستم بدونم كسي هست منو راهنمايي كنه ؟ :blush: :tongue:

از دستور Instr استفاده کن.

کد:

---

intFind = InStr(1, "ali va amin va brobach", "amin")

---

کپیشون کن تو نت پد یا ... بعد جستجو کن

با دستورات seltext-selstart - sellength
نیز می تونی ان را highlightکنی
این دستورات یکی از خصیصه های textbox می باشند

دوتا textbox و يك label و يك command قراردهيد و كدهاي زير را در آن وارد كنيد .
Private Sub Command1_Click()
On Error Resume Next
Dim Lengh As Integer
s1 = Text1.Text
s2 = Text2.Text
Lengh = Len(s2)
result = InStr(1, s1, s2)
If result = 0 Then
MsgBox "äÇãæÝÞ"
End If
Label2.Caption = result
Text1.SelStart = result - 1
Text1.SetFocus
For i = 1 To Lengh
SendKeys "+{Right}"
Next i
End Sub


Private Sub Form_Load()
Text1.Text = "Hello My Name Is Wahid Zohani"
Command1.Caption = "ÌÓÊÌæ"
End Sub