📄 form1.frm
字号:
Y2 = 411
End
Begin VB.Line Line2
Index = 0
X1 = 124
X2 = 124
Y1 = -1
Y2 = 409
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 11
X1 = 1
X2 = 123
Y1 = 257
Y2 = 257
End
Begin VB.Line Line1
Index = 10
X1 = 2
X2 = 125
Y1 = 256
Y2 = 256
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 9
X1 = 1
X2 = 123
Y1 = 206
Y2 = 206
End
Begin VB.Line Line1
Index = 8
X1 = 2
X2 = 125
Y1 = 205
Y2 = 205
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 7
X1 = 2
X2 = 124
Y1 = 151
Y2 = 151
End
Begin VB.Line Line1
Index = 6
X1 = 2
X2 = 124
Y1 = 150
Y2 = 150
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 5
X1 = 1
X2 = 124
Y1 = 99
Y2 = 99
End
Begin VB.Line Line1
Index = 4
X1 = 1
X2 = 123
Y1 = 98
Y2 = 98
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 3
X1 = 1
X2 = 124
Y1 = 1
Y2 = 1
End
Begin VB.Line Line1
Index = 2
X1 = 1
X2 = 123
Y1 = 0
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 1
X2 = 124
Y1 = 48
Y2 = 48
End
Begin VB.Line Line1
Index = 0
X1 = 2
X2 = 123
Y1 = 47
Y2 = 47
End
End
Attribute VB_Name = "Menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub About_Click()
SaveSetting App.EXEName, "Options", "Show Tips at Startup", -1
About.MousePointer = 11
Menu.MousePointer = 11
If frmTip.Visible = True Then
frmTip.SetFocus
End If
frmTip.Show
About.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub About_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.About.ToolTipText
End Sub
Private Sub BackUpSystem_Click()
Menu.MousePointer = 11
BackUpSystem.MousePointer = 11
If BackUp.Visible = True Then
BackUp.SetFocus
End If
Load BackUp
BackUp.Show
BackUpSystem.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub BackUpSystem_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.BackUpSystem.ToolTipText
End Sub
Private Sub Config_Click()
Menu.MousePointer = 11
Config.MousePointer = 11
If ConfigForm.Visible = True Then
ConfigForm.SetFocus
End If
Load ConfigForm
ConfigForm.Show
Config.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Config_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.Config.ToolTipText
End Sub
Private Sub Del_Click()
Menu.MousePointer = 11
Del.MousePointer = 11
If DelForm.Visible = True Then
DelForm.SetFocus
End If
Load DelForm
DelForm.Show
Del.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Del_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.Del.ToolTipText
End Sub
Private Sub Exitit_Click()
Unload MDIForm1
End Sub
Private Sub Exitit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.Exitit.ToolTipText
End Sub
Private Sub Label1_Click()
Menu.MousePointer = 11
New_Fair.MousePointer = 11
If NewForm.Visible = True Then
NewForm.SetFocus
End If
Load NewForm
NewForm.Show
New_Fair.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label2_Click()
Menu.MousePointer = 11
Del.MousePointer = 11
If DelForm.Visible = True Then
DelForm.SetFocus
End If
Load DelForm
DelForm.Show
Del.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label3_Click()
Menu.MousePointer = 11
Monitor.MousePointer = 11
Dim XX As Double
XX = Shell(Browser + "Fair.EXE", vbNormalFocus)
If XX = 0 Then
MsgBox "监视程序不能执行！", vbOKOnly + 16, "提示："
Menu.MousePointer = 0
Exit Sub
End If
Monitor.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label4_Click()
Menu.MousePointer = 11
Search.MousePointer = 11
If FairSearch.Visible = True Then
FairSearch.SetFocus
End If
Load FairSearch
FairSearch.Show
Search.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label5_Click()
Unload MDIForm1
End Sub
Private Sub Label6_Click()
SaveSetting App.EXEName, "Options", "Show Tips at Startup", -1
About.MousePointer = 11
Menu.MousePointer = 11
If frmTip.Visible = True Then
frmTip.SetFocus
End If
frmTip.Show
About.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label7_Click()
Menu.MousePointer = 11
BackUpSystem.MousePointer = 11
If BackUp.Visible = True Then
BackUp.SetFocus
End If
Load BackUp
BackUp.Show
BackUpSystem.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Label8_Click()
Menu.MousePointer = 11
Config.MousePointer = 11
If ConfigForm.Visible = True Then
ConfigForm.SetFocus
End If
Load ConfigForm
ConfigForm.Show
Config.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Monitor_Click()
Menu.MousePointer = 11
Monitor.MousePointer = 11
Dim XX As Double
XX = Shell(Browser + "Fair.EXE", vbNormalFocus)
If XX = 0 Then
MsgBox "监视程序不能执行！", vbOKOnly + 16, "提示："
Menu.MousePointer = 0
Exit Sub
End If
Monitor.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Monitor_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.Monitor.ToolTipText
End Sub
Private Sub New_Fair_Click()
Menu.MousePointer = 11
New_Fair.MousePointer = 11
If NewForm.Visible = True Then
NewForm.SetFocus
End If
Load NewForm
NewForm.Show
New_Fair.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub New_Fair_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.New_Fair.ToolTipText
End Sub
Private Sub Search_Click()
Menu.MousePointer = 11
Search.MousePointer = 11
If FairSearch.Visible = True Then
FairSearch.SetFocus
End If
Load FairSearch
FairSearch.Show
Search.MousePointer = 99
Menu.MousePointer = 0
End Sub
Private Sub Search_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar.Panels.Item(2).Text = Me.Search.ToolTipText
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -