列表框绑定列查找指定内容并选中。
代 码:
Private Sub btnfimd_Click() Dim I As Long For I = 0 To Me.lst.ListCount - 1 If Me.lst.ItemData(I) = Me.txt Then Me.lst.Selected(I) = True End If Next End Sub
示例下载:
点击下载此附件
图 示: