Vb6.0中如何设置系统快捷键等于command1

更新时间2019-02-08 04:59:06

把窗体的KeyPreview属性设为True，然后在窗体的KeyDown事件添加下面的代码。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn And Shift = vbCtrlMask Then Command1.Value = TrueEnd  Sub

直接选择设置就可以了