تشخیص یک کلمه در لیست

[xrezax]

سلام دوستان
چطور میتونم اینکارو بکنم که برنامم :

وقتی داخل list1 کلمه ای با عنوان 111 هست یک اررور بده و بگه هست و در غیر اینصورت بزنه نیست.

[isaac23]

Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = txtsearch.Text Then
MsgBox " يافت شد" & i, vbInformation + vbOKOnly, "founded"
Exit Sub
End If
Next i
MsgBox " يافت نشد", vbExclamation + vbOKOnly, "not founded"

[xrezax]

این کد خوبه...
نمیشه ساده تر و جمع و جور تر نوشتش؟؟

[isaac23]

همش چهار خط کده دیگه از این سادتره می خوای واسه چی

[VG1234]

For i = 0 To List1.ListCount - 1
If List1.List(i) = "111" Then
MsgBox ("Error")
Exit For
End If
Next

[www.pc3enter.tk]

بیا این هم ساده ترین خط کد دنیا

For i = 0 To List1.ListCount - 1
If List1.List(i) = "111" Then msgbox "Hast": Exit for
Next