03-03-13, 09:10 PM
أكتب الكود التالي في زر Button
* ملاحظة : استبدل ListBox1 باسم ListBox الموجوده لديك واستبدل TextBox1 باسم TextBox الموجوده لديك
كود :
[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 الموجوده لديك
<---------------------------------------------------------------->

