如何屏蔽掉Crtl和Alt之间的开始菜单键
编号：QA004440
建立日期: 2001年10月4日 最后修改日期：2001年10月4日
所属类别：
enough:
操作系统：windows98
编程工具：vb6.0
问题：如何屏蔽掉Crtl和Alt之间的开始菜单键?能否给出实例，谢谢
水平: 刚入门
回答:
给你一段源程序,需要自己编辑一个菜单,一个是"no",一个是"ky"，运行程序后,直接按键子就会有提示的。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) _
As Long
Const SPI_SCREENSAVERRUNNING = 97
Private Sub Hotkey()
'禁止热键
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, ByVal 1&, 0
End Sub
Private Sub NoHotkey()
Dim ret As Integer
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, ByVal 1&, 0)
'释放热键
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "该键键值:" & KeyCode
End Sub
Private Sub ky_Click() '这是一个菜单命令.
NoHotkey
End Sub
Private Sub Label3_Click()
Call ShellExecute(Form1.hwnd, "Open", "mailto:xiaoyy1@21cn.com", "", App.Path, 1)
End Sub
Private Sub no_Click() '这也是一个菜单,不能用命令按钮.
Hotkey
End Sub
此问题由xiaoyy1 回答。
| |
|
|
| |
|
|
