اخي العزيز تستطيع ان تظلل الكلمة التي تبحث عنها بدون ان تمسح محتويات الListbox كالتالي:
PHP كود :
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click For i = 0 To ListBox1.Items.Count - 1 If (ListBox1.Items(i) = "sajad") Then ListBox1.SelectedItem = ListBox1.Items(i) End If Next End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim s As String = "sajad mohammed baqir" Dim item As String For i = 0 To ListBox1.Items.Count - 1 item = ListBox1.Items(i).ToString() If (item.Substring(0, item.IndexOf(" ")) = s.Substring(0, s.IndexOf(" "))) Then If (item.Substring(item.IndexOf(" "), item.LastIndexOf(" ")) = s.Substring(s.IndexOf(" "), s.LastIndexOf(" "))) Then If (item.Substring(item.LastIndexOf(" "), item.Length - item.LastIndexOf(" ")) = s.Substring(s.LastIndexOf(" "), s.Length - s.LastIndexOf(" "))) Then
ListBox1.SelectedItem = ListBox1.Items(i) End If End If End If Next End Sub
الكود اعلاه يقوم اولا بمقارنة الاسم الاول مع الاسم الاول في الList اذا تطابق الاسمان سيقوم بمقارنة الاسم الثاني مع الاسم الثاني في الList ونفس الحال للاسم الثالث
حتى يتبين لك ماقاله الاخوة الفضلاء .. جرب وضع كود تحميل البيانات في روتين sub مستقل وقم باستدعائه متى ما اردت.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير