|
-
Dec 3rd, 2009, 11:36 AM
#35
Re: Coding Fix
Code:
dim strSearch as string
strsearch = txtsearch.Text
For i = 0 To List1.ListCount - 1
If List1.List(i) = strsearch Then
MsgBox List1.List(i) & " " & List2.List(i)
exit for '~~~~> escape from the loop
End If
Next i
If my post was helpful to you, then express your gratitude using Rate this Post. 
And if your problem is SOLVED, then please Mark the Thread as RESOLVED (see it in action - video)
My system: AMD FX 6100, Gigabyte Motherboard, 8 GB Crossair Vengance, Cooler Master 450W Thunder PSU, 1.4 TB HDD, 18.5" TFT(Wide), Antec V1 Cabinet
Social Group: VBForums - Developers from IndiaSkills: PHP, MySQL, jQuery, VB.Net, Photoshop, CodeIgniter, Bootstrap,...
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote