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

[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]

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