1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub ToolStripTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripTextBox1.TextChanged
Dim Str As String
Str = ToolStripTextBox1.Text
Dim Int1 As Integer = 0
If TabCSymbole.SelectedTab.Name = "TabPageToronto" Then
Int1 = ListBoxToronto.FindString(Str)
ListBoxToronto.SetSelected(Int1, True)
End If
If TabCSymbole.SelectedTab.Name = "TabPageVancouver" Then
Int1 = ListBoxVancouver.FindString(Str)
ListBoxVancouver.SetSelected(Int1, True)
End If |