电脑常用快捷键:
1.Ctrl快捷键:
Ctrl+S 保存;
Ctrl+W 关闭程序;
Ctrl+N 新建;
Ctrl+O 打开;
Ctrl+Z 撤销;
Ctrl+F 查找;
Ctrl+X 剪切;
Ctrl+C 复制;
Ctrl+V 粘贴;
Ctrl+A全选;
Ctrl+B 粗体;
2.Alt快捷键:
Alt+F4 关闭当前程序;
Alt+空格+C 关闭窗口;
Alt+空格+N 最小化当前窗口;
Alt+空格+R 恢复最大化窗口;
Alt+空格+X 最大化当前窗口;
Alt+空格+M 移动窗口;
Alt+空格+S 改变窗口大小;
Alt+u+v word全屏视图;
Alt+F 打开文件菜单。
扩展资料:
快捷键的有效范围不一定相同,比如:系统级快捷键可以全局响应,不论当前焦点在哪里、运行什么程序,按下时都能起作用;而应用程序级热键只能在当前活动的程序中起作用,当应用程序热键的定义程序不活动或在后台运行时,热键就无效了;控件级的热键则仅在当前控件中起作用。
有专门用于设置热键的工具软件,此类工具需要在后台一直运行,否则通过这各种程序定义的快捷键会失效。通过修改键盘按键映射的软件则不属于此类。
通常Windows平台下应用程序级的快捷键有几个是通用的,如Ctrl+Z常用于撤销 *** 作。这种快捷键在菜单项的右侧或是控件的提示框中往往会注明。
参考资料来源:百度百科——电脑快捷键大全
主窗体代码如下:Option
Explicit
'程序启动时注册功能热键F12
Private
Sub
Form_Load()
Dim
Modifiers
As
Long
preWinProc
=
GetWindowLong(Me.hWnd,
GWL_WNDPROC)
SetWindowLong
Me.hWnd,
GWL_WNDPROC,
AddressOf
WndProc
uVirtKey
=
vbKeyDelete
RegisterHotKey
Me.hWnd,
1,
Modifiers,
uVirtKey
End
Sub
'当程序被关闭时,取消已经注册的热键
Private
Sub
Form_Unload(Cancel
As
Integer)
SetWindowLong
Me.hWnd,
GWL_WNDPROC,
preWinProc
UnregisterHotKey
Me.hWnd,
uVirtKey
'取消系统级热键,释放资源
End
'终止程序运行
End
Sub
添加一个标准模块,代码如下
Option
Explicit
'在窗口结构中为指定的窗口设置信息
Public
Declare
Function
SetWindowLong
Lib
"user32"
Alias
"SetWindowLongA"
(ByVal
hWnd
As
Long,
ByVal
nIndex
As
Long,
ByVal
dwNewLong
As
Long)
As
Long
'从指定窗口的结构中取得信息
Public
Declare
Function
GetWindowLong
Lib
"user32"
Alias
"GetWindowLongA"
(ByVal
hWnd
As
Long,
ByVal
nIndex
As
Long)
As
Long
'运行指定的进程
Public
Declare
Function
CallWindowProc
Lib
"user32"
Alias
"CallWindowProcA"
(ByVal
lpPrevWndFunc
As
Long,
ByVal
hWnd
As
Long,
ByVal
Msg
As
Long,
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
'向系统注册一个指定的热键
Public
Declare
Function
RegisterHotKey
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
ID
As
Long,
ByVal
fsModifiers
As
Long,
ByVal
vk
As
Long)
As
Long
'取消热键并释放占用的资源
Public
Declare
Function
UnregisterHotKey
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
ID
As
Long)
As
Long
'上述五个API函数是注册系统级热键所必需的,具体实现过程如后文所示
'热键标志常数,用来判断当键盘按键被按下时是否命中了我们设定的热键
Public
Const
WM_HOTKEY
=
&H312
Public
Const
GWL_WNDPROC
=
(-4)
'定义系统的热键,原中断标示,被隐藏的项目句柄
Public
preWinProc
As
Long,
MyhWnd
As
Long,
uVirtKey
As
Long
'热键拦截过程
Public
Function
WndProc(ByVal
hWnd
As
Long,
ByVal
Msg
As
Long,
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
If
Msg
=
WM_HOTKEY
Then
'如果拦截到热键标志常数
If
wParam
=
1
Then
'如果是我们的定义的热键...
HideDone
'执行隐藏鼠标所指项目
End
If
End
If
'如果不是热键,或者不是我们设置的热键,交还控制权给系统,继续监测热键
WndProc
=
CallWindowProc(preWinProc,
hWnd,
Msg,
wParam,
lParam)
End
Function
'最关键的项目隐藏过程
Public
Sub
HideDone()
MsgBox
"按下了Delete键"
End
Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)