📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "关于系统"
ClientHeight = 2385
ClientLeft = 45
ClientTop = 330
ClientWidth = 5430
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2385
ScaleWidth = 5430
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox picScan
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 480
Left = 4485
Picture = "frmAbout.frx":27A2
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
ToolTipText = "关闭"
Top = 1605
Width = 480
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "http://www.freelong.net/filemanager"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 225
Left = 360
MouseIcon = "frmAbout.frx":2BE4
MousePointer = 99 'Custom
TabIndex = 5
Top = 1920
Width = 2895
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 195
X2 = 5175
Y1 = 975
Y2 = 975
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 195
X2 = 5175
Y1 = 960
Y2 = 960
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "V1.0"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 330
Left = 4080
TabIndex = 4
Top = 405
Width = 600
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "档案管理系统"
BeginProperty Font
Name = "隶书"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 495
Left = 780
TabIndex = 3
Top = 285
Width = 2880
End
Begin VB.Label Label3
Caption = " 程序使用VisualBasic6.0所写，如果需要源程序，请与我们联系。013806540284"
ForeColor = &H000000C0&
Height = 420
Left = 330
TabIndex = 2
Top = 1500
Width = 3600
WordWrap = -1 'True
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "声明：此系统为共享软件,可以随意发布。 "
Height = 180
Left = 300
TabIndex = 1
Top = 1230
Width = 3420
WordWrap = -1 'True
End
Begin VB.Line lLeft_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4410
X2 = 4410
Y1 = 1530
Y2 = 2145
End
Begin VB.Line lTop_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 4425
X2 = 5055
Y1 = 1530
Y2 = 1530
End
Begin VB.Line lRight_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5055
X2 = 5055
Y1 = 1530
Y2 = 2145
End
Begin VB.Line lBottom_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4410
X2 = 5055
Y1 = 2145
Y2 = 2145
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 5385
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 15
X2 = 5385
Y1 = 30
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 0
X2 = 5400
Y1 = 2355
Y2 = 2355
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 15
X2 = 5400
Y1 = 2340
Y2 = 2340
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 15
Y1 = 15
Y2 = 2355
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 30
X2 = 30
Y1 = 15
Y2 = 2340
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 5385
X2 = 5385
Y1 = 0
Y2 = 2340
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5400
X2 = 5400
Y1 = 0
Y2 = 2355
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim lShowS As Boolean
Private Sub Form_Load()
Me.Left = Val(GetSetting(App.EXEName, "About", "Left"))
Me.Top = Val(GetSetting(App.EXEName, "About", "Top"))
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If lShowS = True Then '已经隐藏时退出
lLeft_1.Visible = False
lRight_1.Visible = False
lTop_1.Visible = False
lBottom_1.Visible = False
lShowS = False
End If
If Label5.FontUnderline = False Then
Label5.FontUnderline = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "About", "Left", Me.Left
SaveSetting App.EXEName, "About", "Top", Me.Top
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label5.FontUnderline = False Then
Label5.FontUnderline = True
End If
End Sub
Private Sub Label5_Click()
Dim WxyNo As Long
WxyNo = ShellExecute(Me.hwnd, "open", "http://www.freelong.net/filemanager", "", App.Path, 1)
If WxyNo = 0 Then
MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
End If
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label5.FontUnderline = False Then Exit Sub
Label5.FontUnderline = False
End Sub
Private Sub picScan_Click()
Unload Me
End Sub
Private Sub picScan_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lTop_1.BorderColor = &H808080
lBottom_1.BorderColor = &HFFFFFF
End Sub
Private Sub picScan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If lShowS = True Then Exit Sub '已经显示时退出
lLeft_1.Visible = True
lRight_1.Visible = True
lTop_1.Visible = True
lBottom_1.Visible = True
lShowS = True
End Sub
Private Sub picScan_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lTop_1.BorderColor = &HFFFFFF
lBottom_1.BorderColor = &H808080
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -