怎么设置combobox的成员不能用键盘上下移动
答案:2 悬赏:70 手机版
解决时间 2021-05-08 01:01
- 提问者网友：不爱我么
- 2021-05-07 12:43
就是不想让combobox中的成员用键盘的上下键控制 求高手帮忙
最佳答案
- 五星知识达人网友：举杯邀酒敬孤独
- 2021-05-07 14:23
private isDo as boolean '表示是否执行Click事件
Private Sub Combo1_Click()
If Not isDo Then '如果是由箭头引发的就不执行后面代码。
Exit Sub
End If
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Or KeyCode = 40 Then
'如果是上下箭头，则设置状态为假
isDo = False
End If
End Sub
Private Sub Combo1_Click()
If Not isDo Then '如果是由箭头引发的就不执行后面代码。
Exit Sub
End If
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Or KeyCode = 40 Then
'如果是上下箭头，则设置状态为假
isDo = False
End If
End Sub
全部回答
- 1楼网友：詩光轨車
- 2021-05-07 15:41
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Or KeyCode = 40 Then
Combo1.ListIndex = Combo1.ListIndex - 1
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯