[خليلي]

السلام عليكم ورحمة الله
سؤال بسيط: لما أكتب كلمة في TextBox وتكون موجودة في ListBox, وأضغط على زر Button يغلق الفورم....كيف ذلك :confused:

أتمنى الإجابة بأسرع وقت :o

[Easy4ever]

أكتب الكود التالي في زر Button

كود :

[b][SIZE=4]
[/SIZE][/b][align=left][b][SIZE=4]For I = 0 To [color=#008000]ListBox1[/color].Items.Count - 1

[/SIZE][/b]
[b][SIZE=4]If [color=#800080]TextBox1[/color].Text = [color=#008000]ListBox1[/color].Items(I) Then

[/SIZE][/b]
[b][SIZE=4]Me.Close()

[/SIZE][/b]
[b][SIZE=4]End If

[/SIZE][/b]
[b][SIZE=4]Next[/SIZE][/b][/align]

* ملاحظة : استبدل ListBox1 باسم ListBox الموجوده لديك واستبدل TextBox1 باسم TextBox الموجوده لديك

[Sajad]

[COLOR="#800000"]السلام عليكم

اكتب في حدث الTextChanged للText هذا الكود:

PHP كود :

For Each item As String In ListBox1.Items
            If (TextBox1.Text.ToUpper() = item.ToUpper()) Then
                Application.Exit()
                Exit For
            End If
        Next 


بالتوفيق ان شاءالله[/COLOR]

[sooriaty03]

وعليكم السلام ورحمة الله وبركاته
جزاكم الله خيرا وزادكم علما وقدرا
بالتوفيق

[خليلي]

شكراً لكما (Easy 4ever) و (Sajed) وأتمنى لكما التوفيق

[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

[align=left]If Not string.IsNullOrEmpty(textBox1.Text) And listBox1.FindString(textBox1.Text) > -1 Then End
[/align]

[ربيع]

السلام عليكم

اكتب في حدث الTextChanged للText هذا الكود:

PHP كود :

For Each item As String In ListBox1.Items
            If (TextBox1.Text.ToUpper() = item.ToUpper()) Then
                Application.Exit()
                Exit For
            End If
        Next 


بالتوفيق ان شاءالله

لا اجد زر (شكرا) اسفل مشاركتك
المعذرة

[Sajad]

[COLOR="#800000"]

لا اجد زر (شكرا) اسفل مشاركتك
المعذرة

السلام عليكم

بارك الله فيك اخي العزيز دعوة بظهر الغيب تكفي ان شاءالله واعتبر شكرك قد وصلت

[/COLOR]