سوال در مورد لیست باکس

[_behnam_]

دوستان من میخوام از یک تکست باکس یک رکورد به لیست باکس اضافه کنم در صورتی که اون کلمه در لیست باکس وجود داشت یک مسیج باکس ظاهر بشه و اون کلمه تکراری در لیست باکس رکورد نشه
کسی می تونه کمکم کنه :ناراحت:

[mohsen_archi]

سلام، کد روبرو رو امتحان کن، حفظی نوشتم امیدوارم خطا نده



for i = 0 to list1.listcount - 1
if list1.list(i) = text1.text then msgbox text1.text & " Found" else list1.additem text1.text
next

[_behnam_]

سلام، کد روبرو رو امتحان کن، حفظی نوشتم امیدوارم خطا نده



for i = 0 to list1.listcount - 1
if list1.list(i) = text1.text then msgbox text1.text & " Found"
next

آقا محسن این ارور داد . اگه زحمتی نیست میتونی درستشو بزاری واسم ممنون میشم:ناراحت:

[mohsen_archi]

For i = 0 To List1.ListCount
If List1.List(i) = Text1.Text Then MsgBox Text1.Text & " Found": Exit For
Next
If i = List1.ListCount + 1 Then
List1.AddItem Text1.Text
End If