1,451
社区成员
发帖
与我相关
我的任务
分享如何加快COMBOBOX的输入速度
请问各位，我做的一个输入界面中的COMBOX，需要有大量的数据输入，现想要在两种情况下加快输入速度，如何做：
1、输入一项内容时，输入前几个字，自动出现下拉框，以输入的文字开头的项前在最前面以方便选择。
2、输入项的内容比较复杂，如何以助记码的形式，来帮助输入。比如：输入车辆的类型时，用K001代表客车类的，当输入K时显示了客车项，而当输入H时代表货车，显示货车项。
多谢！
1、输入一项内容时，输入前几个字，自动出现下拉框，以输入的文字开头的项前在最前面以方便选择。
2、输入项的内容比较复杂，如何以助记码的形式，来帮助输入。比如：输入车辆的类型时，用K001代表客车类的，当输入K时显示了客车项，而当输入H时代表货车，显示货车项。
多谢！
...全文
请发表友善的回复…
发表回复
you2222you 2003-09-16
- 打赏
- 举报
可是我的输入参数表真的很复杂，这样作还是达到到要求。能有实现如下表的方法吗？
厂牌型号 车辆类型 载重量 载客人数
k001 XXX XXX XXX
h002 XXX XXX XXX
厂牌型号 车辆类型 载重量 载客人数
k001 XXX XXX XXX
h002 XXX XXX XXX
northwolves 2003-09-15
- 打赏
- 举报
可以类似这样处理：
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Combo1_Change()
r = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
If Combo1.Text = "H" Then
For i = 1 To 10
Combo1.AddItem "货车" & i
Next
End If
If Combo1.Text = "k" Then
For i = 1 To 10
Combo1.AddItem "客车" & i
Next
End If
End Sub
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Combo1_Change()
r = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
If Combo1.Text = "H" Then
For i = 1 To 10
Combo1.AddItem "货车" & i
Next
End If
If Combo1.Text = "k" Then
For i = 1 To 10
Combo1.AddItem "客车" & i
Next
End If
End Sub
yijiansong 2003-09-15
- 打赏
- 举报
UP
NoReady 2003-09-15
- 打赏
- 举报
你所说的第1种用API可以实现，第2种可以在其前加一个文本框，然后进行判断。
或者重写控件
或者重写控件
you2222you 2003-09-15
- 打赏
- 举报
保存在数组中是一种方法，但是需要的是输入的是代码，显示在文本框中的是助记码代表的内容，如何做？更复杂的是一个内容的输入可能要由很多参数来决定，但太复杂记不住要出个选择列表来提示怎么做。比如要输入厂牌型号时，要显示它的一参数表
厂牌型号 车辆类型 载重量 载客人数
XXX XXX XXX XXX
选择其中的一个条目后进入到COMBOBOX框中的只是厂牌型号一栏。
请教，请教！
厂牌型号 车辆类型 载重量 载客人数
XXX XXX XXX XXX
选择其中的一个条目后进入到COMBOBOX框中的只是厂牌型号一栏。
请教，请教！
you2222you 2003-09-15
- 打赏
- 举报
我用API实现了第一个要示，但是第二种用加一个文本框的方法，不符合人们的使用习惯，使用起来也极不方便。我想作到是当点到这一个控件时出现一个列表框，输入助记码时某一项的行出现，选中该行后仅有所需要的项目显示在控件中，有没有好方法实现？
Fengq 2003-09-14
- 打赏
- 举报
保存数组中,查找显示
