如何比较textbox与listbox值

[jidechen]

结果用msgbox()输出,谢谢

[stone_soup]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = "test"
With Me.ListBox1.Items
.Add("1")
.Add("test")
.Add("test1")
.Add("3")
End With
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lb As Object
For Each lb In Me.ListBox1.Items
If CStr(lb).Equals(Me.TextBox1.Text) Then
MessageBox.Show("相同:" & Me.TextBox1.Text & " " & CStr(lb))
End If
Next
End Sub

[ThinYang]

if conItemName.FindString(textbox.text) > 0 then
messagebox.show(textbox.text)
end if

[jidechen]

to:ThinYang
请问查询成功后如何在listbox中获得焦点?谢谢

[ThinYang]

listbox.items(index).Selected = True

[jidechen]

to:stone_soup
你的方法也比较好,谢谢

[jidechen]

to:ThinYang
listbox.items(index).Selected = True
不行?

不知道其中的"index"代表何意?我的是VB2005,谢谢

[jidechen]

to:ThinYang
请问查询成功后如何在listbox中获得焦点?也就是说,如何将查询到的值加亮显示?

[ThinYang]

listbox1.SelectedIndex = value
value就是选中项的索引

[stone_soup]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lb As Object
Dim i As Integer = 0
For Each lb In Me.ListBox1.Items
If CStr(lb).Equals(Me.TextBox1.Text) Then
MessageBox.Show("相同:" & Me.TextBox1.Text & " " & CStr(lb))
Me.ListBox1.Focus() '獲取焦點
Exit For
End If
i += 1
Next
Me.ListBox1.SetSelected(i, True)
End Sub

[jidechen]

还是不行啊二位。

[jidechen]

还有就是ThinYang方法查找不到listbox中的第一个值：例如第一个值是“aaa”，在textbox中输入“aaa”后，提示找不到该字符。