ctrl+F 快捷键用代码如何表示

forever_chang 2002-04-30 10:01:45
如题
...全文
120 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
doubos 2002-04-30
  • 打赏
  • 举报
回复
SendKeys "^(F)"
唐古拉山 2002-04-30
  • 打赏
  • 举报
回复
示例代码,完全:
----------------------------------------------------

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyF Then
MsgBox "我来哪!"
'......
End If
End Sub
wuyanjun 2002-04-30
  • 打赏
  • 举报
回复
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyF And CtrlDown Then Text1 = "OK!"
End Sub
kuyu2020 2002-04-30
  • 打赏
  • 举报
回复
sendkeys "%F" 就可以!
forever_chang 2002-04-30
  • 打赏
  • 举报
回复
我想用sendkey 向控件发送快捷键ctrl+F
唐古拉山 2002-04-30
  • 打赏
  • 举报
回复
If Shift=2 And Keycode=VbKeyF then
'...

End If

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧