“一键功能”的设计、实现与应用
Function(i)) Then
Ret = Shell(Trim(Mid(strKey(i), 5)), 1)
End If
Next
End If
End Sub
四、程序说明
程序第一次运行时将出现图1所示界面，这时你可以只为自已喜欢的特定功能设置一个快捷键，也可以先选择一个快捷键，再点击“添加…”为常用软件定义一个快捷键，如图1中按F8将实现一键上网。设置好快捷键并点击“应用”或按快捷键A后，就可以体验一下你设置的“一键功能”了！点击“确定”将隐藏界面。如果已经定义好快捷键并退出后，再次运行该程序将不再显示图1的界面，你仍然可以直接使用“一键功能”，如果想重新设置，按F12即可显示程序界面。特别需要注意的是，要实现锁定屏幕，必须事先设置好屏幕保护程序并设置密码。
如果你感觉该程序比较实用，可以把它加入“启动”组，一开机就可以随时使用设定好的“一键功能”。另外，你可以充分发挥你的聪明才智，用VB编写的特定功能的过程来进一步扩充该程序。
程序在Win98＋VB6.0下调试通过。源程序下载地址: http://www.cfan.net.cn/qikan/cxg/0203yjg.zip
Ret = Shell(Trim(Mid(strKey(i), 5)), 1)
End If
Next
End If
End Sub
四、程序说明
程序第一次运行时将出现图1所示界面，这时你可以只为自已喜欢的特定功能设置一个快捷键，也可以先选择一个快捷键，再点击“添加…”为常用软件定义一个快捷键，如图1中按F8将实现一键上网。设置好快捷键并点击“应用”或按快捷键A后，就可以体验一下你设置的“一键功能”了！点击“确定”将隐藏界面。如果已经定义好快捷键并退出后，再次运行该程序将不再显示图1的界面，你仍然可以直接使用“一键功能”，如果想重新设置，按F12即可显示程序界面。特别需要注意的是，要实现锁定屏幕，必须事先设置好屏幕保护程序并设置密码。
如果你感觉该程序比较实用，可以把它加入“启动”组，一开机就可以随时使用设定好的“一键功能”。另外，你可以充分发挥你的聪明才智，用VB编写的特定功能的过程来进一步扩充该程序。
程序在Win98＋VB6.0下调试通过。源程序下载地址: http://www.cfan.net.cn/qikan/cxg/0203yjg.zip