“一键功能”的设计、实现与应用

"无"
cmbChooseKey(i).AddItem "无"
cmbChooseKey(i).AddItem "F2"
cmbChooseKey(i).AddItem "F3"
cmbChooseKey(i).AddItem "F4"
cmbChooseKey(i).AddItem "F5"
cmbChooseKey(i).AddItem "F6"
cmbChooseKey(i).AddItem "F7"
cmbChooseKey(i).AddItem "F8"
cmbChooseKey(i).AddItem "F9"
cmbChooseKey(i).AddItem "F10"
cmbChooseKey(i).AddItem "F11"
Next
''如果在应用程序的路径上没有FunctionKey.txt 和CustomKey.txt文件(即没有定义快捷键)，
''则显示图1界面
If Dir(App.Path + "\FunctionKey.txt") = "" And Dir(App.Path + "\CustomKey.txt") = "" Then
Me.Show
End If
If Dir(App.Path + "\FunctionKey.txt") <> "" Then
Open App.Path + "\FunctionKey.txt" For Input As #1
Line Input #1, strLine
Close #1
''把定义的快捷键读到a数组中
a = Split(strLine, ",")
For i = 0 To UBound(a)
''把从FunctionKey.txt文件取出定义的快捷键并转变成键盘扫描码
iFunctionKey(i) = strKeyToLong(a(i))
''如果已经为特定功能定义了快捷键，则在相应的位置显示该快捷键，
''否则显示"无"
If IsNumeric(Right(a(i), 1)) Then
cmbChooseKey(i).Text = a(i)
Else
cmbChooseKey(i).Text = "无"
End If
Next
End If

Dim strKeyFileJoin As String
strLine = ""
''如果CustomKey.txt文件存在，则把所有的快捷键和应用程序名读到变量strLine中
If Dir(App.Path + "\CustomKey.txt") <> "" Then
Open App.Path + "\CustomKey.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
strKeyFileJoin = strKeyFileJoin + strLine
Loop
Close #1
strKey = Split(strKeyFileJoin, ",") ''把快捷键和与之对应的应用程序名放入strKey数组中
''根据strKey数组的大小，重新定义以下数组的大小并保存重新定义前的值
ReDim Preserve iCustomFunction(UBound(strKey))
ReDim Preserve strKeyFile(UBound(strKey))
''把定义的快捷键和应用程序名添加到列表框中，并把快捷键的扫描码放入相应的数组中
For i = 0 To UBound(strKey)
List1.AddItem strKey(i)
strKeyFile(i) = Trim(Mid(strKey(i), 1, 4))
iCustomFunction(i) = strKeyToLong(strKeyFile(i))
Next
End If
End Sub

''以下两个过程的作用是完整地显示被遮蔽的应用程序名
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
List1.ToolTipText = Trim(Mid(List1.Text, 5))
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
List1.ToolTipText = Trim(Mid(List1.Text, 5))
End Sub

Private Sub Timer1_Timer()
''如果用户按了数组iFunctionKey中相应的快捷键，则执行与之对应的（过程）功能
If MyHotKey(iFunctionKey(0)) Then
CloseComputer
ElseIf MyHotKey(iFunctionKey(1)) Then
RebootComputer
ElseIf MyHotKey(iFunctionKey(2)) Then
LockComputer
ElseIf MyHotKey(iFunctionKey(3)) Then
OpenCDROM
ElseIf MyHotKey(iFunctionKey(4)) Then
CloseCDROM
''按F12显示图1的界面
ElseIf MyHotKey(vbKeyF12) Then
Me.Visible = True
ElseIf List1.ListCount > 0 Then
ReDim Preserve iCustomFunction(List1.ListCount - 1)
''如果用户按了数组iCustomFunction中相应的快捷键，则打开与之对应的应用程序
For i = 0 To List1.ListCount - 1
If MyHotKey(iCustom