如题,在下是菜鸟,不知道哪位可以给个例子学习一下吗?
解决方案 »
- VB中怎样把不同大小的字通过串口传到下位机通过LED显示?
- 急~~~救命~~~这个在内中的事件怎么不能用`~
- 怎样设置用户权限?比如管理员,销售员等
- 急!如何在报表中显示图片
- 学VB过时了吗
- 如何解决打包后出错:类未注册 查找对象,其CLSID为
- 请教如何水晶报表中设置打印数据条件!(我是在vb中用的crystal 8.0)
- 请教:我每次把客户端的winsco.close后,服务器端程序就被关闭了!为什么?
- 我信箱里经常收到“CSDN邮件期刊”,可不知道怎么阅读,
- 请问怎么样用函数给不同TEXTBOX赋值?
- 通过拷贝文件来备份数据库(Access),如何实现?(急。。。解决了马上给分)
- 如何在按钮上放置小图标?
假设按下F4键,就执行按下command1按钮的事件。
设置窗体的keypreview属性为true,然后,把下面的代码贴到窗体模块中:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
Command1_Click
End If
End Sub
MsgBox "你好"
End SubPrivate Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
Command1_Click
End If
End Sub
Option ExplicitPrivate Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type Msg
hWnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Sub ProcessMessages()
Dim Message As Msg
'loop until bCancel is set to True
Do While Not bCancel
'wait for a message
WaitMessage
'check if it's a HOTKEY-message
If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
Shell "notepad", vbNormalFocus
End If
DoEvents
Loop
End SubPrivate Sub Form_Load()
Dim ret As Long
bCancel = False
ret = RegisterHotKey(Me.hWnd, &HBFFF&, 0, vbKeyF) '设置F键为热键
Show
ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
bCancel = True
'unregister hotkey
Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub