09-04-19, 11:02 PM
هذا الكود يجلب النص مالت Line كله لل Line الي بيه كلمة Google
Dim s = "google"
Dim r As String = ""
For Each a As String In ListBox1.Items
If a.ToLower.Contains(s.ToLower) Then
r = a
Exit For
End If
Next
MsgBox ( r )
Dim s = "google"
Dim r As String = ""
For Each a As String In ListBox1.Items
If a.ToLower.Contains(s.ToLower) Then
r = a
Exit For
End If
Next
MsgBox ( r )
