( تمت الاجابة) سؤال بخصوص List Box

[Intel®]

السلام عليكم اخواني الكرام

لو سمحتم عندي استفسار على listbox وهو عملية البحث خلالها

متلا

لدي listbox بها بيانات اي متلا 10 صفوف من البيانات

كيف اعمل بحت على جملة موعينة متلا في العمود الاول بحيت عندما يتطابق الجملة المرادة مع الجملة الموجودة في list box يعمل على صف هده الجملة Select

انا عمال تكست اكتب فيه جملة وبعد ضغط زر بحث عاوزة يبحث في list box وعندما يجدها يعملي سلكت على الصف

"البحث جملة كاملة / مثلا صحيح البخاري

انا بعد ادنكم عاوز الامر الي يجعل select تنعمل على صف معين بدون عمل كلك

ولكم مني الف شكر

[أبو آدم]

هل يمكن أن ترفق مثالا للتطبيق و التعديل حيث أن بعض الامور يجب مراعاتها ، ولا داعي لإرفاق تطبيق نعود للتعديل عليه حسب ما لديك

الحل جاهز وبإنتظار المثال من تطبيقك الأصلي

..............

[أبو آدم]

على كل حال وحتى لا أنسى ما جهزت أرفقه ويمكنك الإستفادة منه في تطبيقك

Dim strSearch As String

Dim i As Long

Dim iContinueSearch As Integer

strSearch = InputBox("Enter Search String")

strSearch = "*" & strSearch & "*"

With Me.lstMyListBox

If .ListCount > 0 Then

For i = 0 To .ListCount - 1

If .Column(1, i) Like strSearch Then

.Selected(i) = True

iContinueSearch = MsgBox("Do you want to continue searching?", vbQuestion + vbYesNo)

If iContinueSearch = vbNo Then

Exit For

End If

End If

Next i

End If

End With

والله من وراء القصد

[Intel®]

اخي الكريم nart lebzo

انا اخي عاجز عن شكرك بارك الله فيك ورحم الله والديك

هدا فعلا ما هو مطلوب بالتحديد وهدا ما انا اريده اخي الغالي

اسف على تعبك والف الف الف شكر

تم تعديل ديسمبر 14, 2011 بواسطه Intel®

[أبو آدم]

يزول التعب وتهون المشقة بعد دعاء طيب كمثل دعائك

أحسن الله اليك

والحمدلله الذي بفضله تقضى الحاجات

.............