Private Sub Form_Activate()
Picture1.SetFocus
End SubPrivate Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If vbCtrlMask And KeyCode = vbKey1 Then
MsgBox "ok"
End If
End Sub
Picture1.SetFocus
End SubPrivate Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If vbCtrlMask And KeyCode = vbKey1 Then
MsgBox "ok"
End If
End Sub
解决方案 »
- 客户端读取服务器上的报表模板???(急)
- vsFlexGrid失去焦点后触发两次KeyUP事件,这样的问题如何解决?高手救命啊
- 怎样设置出DirListBox的水平滚动条(20分)
- 怎样知道vb生成后的ocx中参数的classid和id及name的值呀!
- vb中如何判断一个word文件已经打开
- 如何通过程序将SQL数据库中的表导出到ACCESS中去?
- 求教:ACCESS数据库恢复?
- !!!告急,程序突然打不开了,高手帮忙!!!
- VB中有这样的函数吗?
- 在DataReport中生成报表时,怎样将纸张设置为横放?
- ···救火 *** ~~~~如何生成一个只有一个sheet的excel文件
- 哪里能找到informix online 7.2 客户端图形化工具(for NT的),全分相送(90)
if shift and vbCtrlMask And KeyCode = vbKey1 then
MsgBox "ok"
End If
如何编? 给20分.