جستجو در لیست باکس بعد از تایپ کامل کلمه

[ali.b]

سلام

Dim i As Integer Dim j As Integer
With ListBox1
.MultiSelect = fmMultiSelectSingle
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti




For i = 0 To .ListCount - 1
For j = 0 To .ColumnCount - 1
If InStr(1, .Column(j, i), TextBox17.Text, vbTextCompare) Then


.ListIndex = i
.Selected(i) = True
End If
Next j
Next i




End With

[ali.b]

سلام

Dim i As Integer Dim j As Integer
With ListBox1
.MultiSelect = fmMultiSelectSingle
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
For i = 0 To .ListCount - 1
For j = 0 To .ColumnCount - 1
If TextBox17.Text = .Column(j, i) Then
.ListIndex = i
.Selected(i) = True
End If
Next j
Next i
End With

[Amir Ghasemiyan]

سلام علي آقا
ممنون بابت آموزش هاي خوب و كاربرديتون
اگر لطف كنيد در مورد آموزش هاتون بيشتر توضيح بديد و تاپيك هاتون رو پربارتر كنيد ممنون ميشم
مثلا اينكه در مورد خط هاي مهم و اساسي توضيح بدين كه به چه معنا هست و چه عملياتي رو انجام ميده يا اينكه كلا كاربرد اين آموزش كجاست