在组合框中用键盘上的↑↓键选取\用键盘上下键实现组合框数据的选择

时　间:2008-09-01 10:12:12
作　者:chenlugen   ID：2399  城市：东莞
摘　要:在组合框中不用鼠标点击,不用xxx.Dropdown命令,就可以用键盘上的↑↓键选取内容.

正　文:

在组合框的键按下事件中加入：

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 38 Then

    Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex - 1) Mod Screen.ActiveControl.ListCount
    KeyCode = 0

End If

If KeyCode = 40 Then

    Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount
    KeyCode = 0

End If

Me.Combo1.SelStart = Len(Combo1)

End Sub

 也可以在鼠标双击事件中加入下面一句以便录入：

Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount

试试看,,,这种效果是不是觉得用起来更爽一点