سلام دوستان
چطور میتونم اینکارو بکنم که برنامم :
وقتی داخل list1 کلمه ای با عنوان 111 هست یک اررور بده و بگه هست و در غیر اینصورت بزنه نیست.
سلام دوستان
چطور میتونم اینکارو بکنم که برنامم :
وقتی داخل list1 کلمه ای با عنوان 111 هست یک اررور بده و بگه هست و در غیر اینصورت بزنه نیست.
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"
این کد خوبه...
نمیشه ساده تر و جمع و جور تر نوشتش؟؟
همش چهار خط کده دیگه از این سادتره می خوای واسه چی
For i = 0 To List1.ListCount - 1
If List1.List(i) = "111" Then
MsgBox ("Error")
Exit For
End If
Next
بیا این هم ساده ترین خط کد دنیا
For i = 0 To List1.ListCount - 1
If List1.List(i) = "111" Then msgbox "Hast": Exit for
Next