📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 1 'Fixed Single
Caption = "关于系统"
ClientHeight = 2460
ClientLeft = 45
ClientTop = 330
ClientWidth = 5625
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2460
ScaleWidth = 5625
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox picScan
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 480
Left = 4725
Picture = "frmAbout.frx":08CA
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
ToolTipText = "关闭"
Top = 1605
Width = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "旅行社管理信息系统"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Left = 1200
TabIndex = 3
Top = 360
Width = 2835
End
Begin VB.Label lblDisclaimer
Caption = "Copyright (c) 2007 XJ"
ForeColor = &H00FF0000&
Height = 225
Left = 480
TabIndex = 2
Tag = "警告: ..."
Top = 1920
Width = 2190
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 145
X2 = 5375
Y1 = 975
Y2 = 975
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 145
X2 = 5375
Y1 = 960
Y2 = 960
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "V1.1.1"
BeginProperty Font
Name = "@宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 4545
TabIndex = 1
Top = 1080
Width = 630
End
Begin VB.Line lLeft_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4650
X2 = 4650
Y1 = 1530
Y2 = 2145
End
Begin VB.Line lTop_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 4665
X2 = 5295
Y1 = 1530
Y2 = 1530
End
Begin VB.Line lRight_1
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 5295
X2 = 5295
Y1 = 1530
Y2 = 2175
End
Begin VB.Line lBottom_1
BorderColor = &H00808080&
Visible = 0 'False
X1 = 4650
X2 = 5295
Y1 = 2145
Y2 = 2145
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 5585
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 15
X2 = 5585
Y1 = 30
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 0
X2 = 5600
Y1 = 2355
Y2 = 2355
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 15
X2 = 5600
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 = 5585
X2 = 5585
Y1 = 0
Y2 = 2340
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5600
X2 = 5600
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()
SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX _
, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0
Me.Left = Val(GetSetting(App.EXEName, "About", "Left"))
Me.Top = Val(GetSetting(App.EXEName, "About", "Top"))
Me.Show
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 Label6_Click()
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 + -