رجاءا ساعدوني بطريقة البحث عن نص في تكست بوكس

Const LB_FINDSTRING = &H18F

Private Declare Function SendMessage Lib "User32" _

Alias "SendMessageA" _

(ByVal hWnd As Long, ByVal wMsg As Integer, _

ByVal wParam As Integer, lParam As Any) As Long

Private Sub Form_Load()

List1.Clear

List1.AddItem "abcd": List1.AddItem "acbd"

List1.AddItem "bcde": List1.AddItem "bdef"

List1.AddItem "cdef": List1.AddItem "cfde"

Text1.Text = ""

End Sub

Private Sub Text1_Change()

List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)

End Sub

Private Sub Form_Load()

Text1.Text = "Two of the peak human experiences"

Text1.Text = Text1.Text & " are good food and classical music."

End Sub

Private Sub Form_Click()

Dim Search, Where ' Declare variables.

' Get search string from user.

Search = InputBox("Enter text to be found:")

Where = InStr(Text1.Text, Search) ' Find string in text.

If Where Then ' If found,

Text1.SetFocus

Text1.SelStart = Where - 1 ' set selection start and

Text1.SelLength = Len(Search) ' set selection length.

Else

MsgBox "String not found." ' Notify user.

End If

End Sub