• Home
 · 
• Windows System Services
 · 
• This code will search for a specific word in a listbox. It will return the specific entry in the li

This code will search for a specific word in a listbox. It will return the specific entry in the li

This code will search for a specific word in a listbox. It will return the specific entry in the listbox containing the target word.

API Declarations


Dim X, y, z As Byte
Dim Result, LResult As String





Rate This code will search for a specific word in a listbox. It will return the specific entry in the li

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'a button named command1
'a listbox named lstResults
'and sit back and enjoy my blood, sweat and tears!

Private Sub Command1_Click()

Screen.MousePointer = 11
X = 0
y = 0

lstResults.Clear

For z = 1 To Form1!lstsource.ListCount
Result = ""
LResult = ""
For i = 0 To Len(Form1!lstsource.List(y))
 Car(i) = Mid(Form1!lstsource.List(y), i + 1, 1)
    If Car(i) = " " Then
      X = i + 1
      Exit For
        Else
        Result = Result & Car(i)
            If i = 0 Then
            LResult = LResult & LCase(Car(i))
                Else
                LResult = LResult & Car(i)
            End If
     End If
Next i

If Result = txtSearchText.Text Or LResult = txtSearchText.Text Then
lstResults.AddItem Form1!lstsource.List(y)
y = y + 1

Else
11:
LResult = ""
Result = ""
For i = X To Len(Form1!lstsource.List(y))
Car(i) = Mid(Form1!lstsource.List(y), i + 1, 1)
If Car(i) = " " Then
X = i
Exit For
Else
Result = Result & Car(i)
If i = X Then
LResult = LResult & LCase(Car(i))
Else
LResult = LResult & Car(i)
End If
End If
Next i

If Result = "" Then
y = y + 1
GoTo 12
End If

If Result = txtSearchText.Text Or LResult = txtSearchText.Text Then
lstResults.AddItem Form1!lstsource.List(y)
y = y + 1
Else
GoTo 10
End If

End If

12:
Next z

txtSearchText.SelStart = 0
txtSearchText.SelLength = Len(txtSearchText.Text)

If lstResults.ListCount = 0 Then
MsgBox "No records were found for" & Chr(34) & txtSearchText.Text & Chr(34), vbExclamation, "Search Result"
End If

Screen.MousePointer = 0
Exit Sub
10:
X = X + 1
GoTo 11:

End Sub

Private Sub Form_Load()

Me.Controls.Add "vb.listbox", "lstsource", Form1

With Form1!lstsource
    .AddItem "Good Morning"
    .AddItem "Good Bye"
    .AddItem "Good Night"
End With

End Sub