怎么实现:按CTRL+1,就相当于点击picture控件?
请教!
[解决办法]
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 And Shift = 2 Then Call Picture1_Click
End Sub
Private Sub Picture1_Click()
MsgBox "PICTURE CLICKED "
End Sub
发布时间: 2012-03-28 15:40:03 作者: rapoo
怎么实现:按CTRL+1,就相当于点击picture控件?
请教!
[解决办法]
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 And Shift = 2 Then Call Picture1_Click
End Sub
Private Sub Picture1_Click()
MsgBox "PICTURE CLICKED "
End Sub