如何用VB6中的COMBOBOX实现模糊输入后自动匹配下拉列表
1个回答
推荐于2016-12-02 · 知道合伙人数码行家
可以叫我表哥
知道合伙人数码行家
采纳数：25897
获赞数：1464981
2010年毕业于北京化工大学北方学院计算机科学与技术专业毕业，学士学位，工程电子技术行业4年从业经验。
向TA提问 私信TA
关注
![]()
展开全部
设置combo1的sorted为true
Private Sub Combo1_Change()
Dim V As String
V = Combo1.Text
For i = 0 To Combo1.ListCount - 1
If UCase(Combo1.List(i)) Like V & "*" Then Combo1.Text = Combo1.List(i): Combo1.SelStart = Len(V): Combo1.SelLength = Len(Combo1.Text) - Len(V): Exit For
Next
End Sub
Private Sub Form_Load()
Dim t(4) As String
For i = 1 To 3000
Randomize
For J = 0 To 4
t(J) = Chr(Int(65 + Rnd * 25))
Next
Combo1.AddItem Join(t, "")
Next
End Sub
Private Sub Combo1_Change()
Dim V As String
V = Combo1.Text
For i = 0 To Combo1.ListCount - 1
If UCase(Combo1.List(i)) Like V & "*" Then Combo1.Text = Combo1.List(i): Combo1.SelStart = Len(V): Combo1.SelLength = Len(Combo1.Text) - Len(V): Exit For
Next
End Sub
Private Sub Form_Load()
Dim t(4) As String
For i = 1 To 3000
Randomize
For J = 0 To 4
t(J) = Chr(Int(65 + Rnd * 25))
Next
Combo1.AddItem Join(t, "")
Next
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
