7,763
社区成员
发帖
与我相关
我的任务
分享VB6中的combo中的下拉菜单进行模糊查找？
在网上找了个模糊查找代码，但是不是很懂，有人能帮忙解释以下吗？谢谢！
Private Sub Combo2_Change()
Dim V2 As String
Dim II As Integer
V2 = Combo2.Text
For II = 0 To Combo2.ListCount - 1
If UCase(Combo2.List(II)) Like V2 & "*" Then
Combo2.Text = Combo2.List(II):
Combo2.SelStart = Len(V2):
Combo2.SelLength = Len(Combo2.Text) - Len(V2):
End If
Next
End Sub
Private Sub Combo2_Change()
Dim V2 As String
Dim II As Integer
V2 = Combo2.Text
For II = 0 To Combo2.ListCount - 1
If UCase(Combo2.List(II)) Like V2 & "*" Then
Combo2.Text = Combo2.List(II):
Combo2.SelStart = Len(V2):
Combo2.SelLength = Len(Combo2.Text) - Len(V2):
End If
Next
End Sub
...全文
请发表友善的回复…
发表回复
小噤 2017-10-28
- 打赏
- 举报
0分是怎么来的?提问可以0分的吗
loloxywang 2017-10-28
- 打赏
- 举报
怎么看多少分的啊，我没看到啊。。。
