برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط softsoft برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
این کدی رو که گذاشتید هم مثل همون کد قبلی .خودتون امتحان کنید . کلمه "ار" رو درون لیست باکس بنویسید و روی دکمه اول کلیک کنید.
چی میبینید :
اردیبهشت - 0
اردیبهشت - 0
این جواب یعنی چی ؟ مثل اینکه شما خوب سوال من رو نخوندید یا متوجه نشدید. اگه جواب بخواد درست در بیاد باید مثل زیر بشه .
اردیبهشت - 3
اردیبهشت - 4
روی دکمه ی دوم هم که کلیک میکنیم که اصلا Error میده .
با این حال ممنونم خودم تونستم جوابشو پیدا کنم. میزارم تا بقیه استفاده کنن.
If SchText.Text = "" Then Exit Sub
SchText.Text = LCase(SchText.Text)
For i = 0 To Code.Count - 1
If Code.Item(i).contains(SchText.Text) Then
ListBox1.Items.Add(Code.Item(i) & " - " & sName(i.ToString))
Label1.Text = sName(i.ToString)
End If
Next
دوست عزيز بنده خيال كردم كه شما از متد جست و جوي MatchCase مي خواستيد استفاده كنيد. خب اين مشكل خيلي راحت قابل حل استبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید . از كد زير استفاده كنيد:
کد:
        If SchText.Text = "" Then Exit Sub
        Dim strinx As Integer
        SchText.Text = LCase(SchText.Text)
        For Each i As String In Code
            i = LCase(i)
            If i.Contains(SchText.Text) Then
                strinx = Code.IndexOf(i, strinx) + 1
                ListBox1.Items.Add(sName(strinx - 1) + " - " + i)

             End If

         Next