如何正常滚动不激活了click事件?

[aldz]

combox中是已输入好的驱动盘符，不能在ComboBox的下拉框中滚动(此时没有滚动条)，当一按上键或
下键就激活了click事件，选中了combox中的盘符，下拉框就收起了，如何正常滚动不激活了click事
件并且能够按快捷键选中combox中的项目,如按d则选中了d盘，下拉框也收起来了

[hxshanji]

当一按上键或下键就激活了click事件，

按理是不会激活的

你的代码其他部分有错误吧。

[aldz]

没错！combo1.click事件是用来响应MOUSE选择盘符用的，一按上键或下键就激活了click事件...

[aldz]

老兄，我没错，不知道你用过WINDOWS COMMANDER 没有，它用的就是COMBOBOX！我现在编的就
是仿WINDOW COMMANDER的文件管理器！

[cqq_chen]

你用错控件了，如果是‘驱动盘符’要用不是用COMBOX，应该是另一个专用控件，好像叫DRIVE

[aldz]

终于解决了，我在combo的keydown事件中定义了一个变量flag，在combo1_click
中加入一行:
if flag=1 then
flag=0
exit sub
endif

全部代码如下：
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
'当按下方向键时不响应读盘动作(即绕过combo1_click)
If KeyCode > 32 And KeyCode < 41 Then
flag = 1
End If

'当回车时作读盘动作
If keycode=13 Then
List1.Visible = False
ListView1.SetFocus
Combo1_click
End If
End Sub