UC知道关于vb check的热键
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:00:56
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 Then 'S键
Check2.Value = 1
Else
Check2.Value = 0
End If
End Sub
这是我的代码。
按S自己会打勾 可是再按S他就不会打勾了。
谁可以帮我解决？
按一下S打勾 按第2下变为不打勾 按3下打勾``````
If KeyCode = 83 Then 'S键
Check2.Value = 1
Else
Check2.Value = 0
End If
End Sub
这是我的代码。
按S自己会打勾 可是再按S他就不会打勾了。
谁可以帮我解决？
按一下S打勾 按第2下变为不打勾 按3下打勾``````
把你的代码稍微改了一下
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 83 Then 'S键
IF Check2.Value = 0 then '判断check原先是否打勾
Check2.Value = 1
Else
Check2.Value = 0
end if
End If
End Sub
按S键后，判断有没有打勾，没打勾就打上，打了就去掉。