📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form FrmAbout
BackColor = &H00FFFFC0&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3930
ClientLeft = 2760
ClientTop = 3465
ClientWidth = 5505
ControlBox = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 5505
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
BackColor = &H00808080&
Caption = "X"
Height = 195
Left = 4650
Style = 1 'Graphical
TabIndex = 0
Top = -30
Width = 180
End
Begin VB.Label Label10
BackColor = &H00FFFFC0&
Caption = "华录影音公司"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 240
TabIndex = 8
Top = 3000
Width = 1575
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00FFFFC0&
Caption = "服务器端"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Left = 1785
TabIndex = 7
Top = 1200
Width = 1275
End
Begin VB.Label MetalCB1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080C0FF&
BorderStyle = 1 'Fixed Single
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 345
Left = 3330
MouseIcon = "Frmabout.frx":0000
MousePointer = 99 'Custom
TabIndex = 6
Top = 2985
Width = 975
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "版权所有"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 1890
TabIndex = 5
Top = 3105
Width = 855
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "www.hualudisc.com.cn"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Left = 1440
MouseIcon = "Frmabout.frx":0442
MousePointer = 99 'Custom
TabIndex = 4
Top = 2040
Width = 2700
End
Begin VB.Image Image1
Height = 765
Left = 195
Picture = "Frmabout.frx":0884
Stretch = -1 'True
Top = 315
Width = 825
End
Begin VB.Label Label3
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Height = 150
Left = 0
TabIndex = 1
Top = 15
Width = 4635
End
Begin VB.Line Line5
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 15
X2 = 4845
Y1 = 135
Y2 = 135
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "——V 1.0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 3000
TabIndex = 3
Top = 1200
Width = 1380
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "华录影音题库系统"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 480
Left = 1485
TabIndex = 2
Top = 420
Width = 3255
End
Begin VB.Line Line4
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = -45
X2 = 4785
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line3
BorderColor = &H00808080&
BorderWidth = 2
X1 = -45
X2 = 4785
Y1 = 2745
Y2 = 2745
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = -15
X2 = 4830
Y1 = 60
Y2 = 45
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderWidth = 2
X1 = -15
X2 = 4830
Y1 = 45
Y2 = 30
End
Begin VB.Line Line6
BorderColor = &H00808080&
BorderWidth = 2
X1 = 0
X2 = 4830
Y1 = 120
Y2 = 120
End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
MetalCB1_Click
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MetalCB1_Click
End If
If KeyCode = 27 Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Dim GotovalW, GotovalH, Gointo As Long
FrmAbout.Visible = True
GotovalH = 3585
GotovalW = 4920
FrmAbout.Left = (Screen.Width - GotovalW) \ 2
FrmAbout.Top = (Screen.Height - GotovalH) \ 2
'MsgBox GotovalW
Me.Height = 30
For Gointo = 1 To GotovalW
DoEvents
Me.Width = Me.Width + 10
If Me.Width >= GotovalW Then
Me.Width = GotovalW
GoTo gotoH
End If
Next Gointo
gotoH:
For Gointo = 30 To GotovalH
DoEvents
Me.Height = Me.Height + 10
If Me.Height >= GotovalH Then
Me.Height = GotovalH
Exit Sub
End If
Next Gointo
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
Dim ret As Long
ret = SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
End Sub
Private Sub Label8_Click()
ShellExecute Me.hwnd, "open", "mailto:phf110@china.com", vbNullString, vbNullString, &H0
End Sub
Private Sub Label9_Click()
ShellExecute Me.hwnd, "open", "www.hualudisc.com.cn", vbNullString, vbNullString, &H0
End Sub
Private Sub MetalCB1_Click()
Dim Gotoval, Gointo As Long
Gotoval = Me.Height / 2
For Gointo = 1 To Gotoval
'NEW ADDITION NEXT LINE
DoEvents
Me.Height = Me.Height - 10
'Me.Top = (Screen.Height - Me.Height) \ 2
If Me.Height <= 11 Then GoTo horiz
Next Gointo
'This is the width part of the same sequence above
horiz:
Me.Height = 30
Gotoval = Me.Width / 2
For Gointo = 1 To Gotoval
'NEW ADDITION NEXT LINE
DoEvents
Me.Width = Me.Width - 10
'Me.Left = (Screen.Width - Me.Width) \ 2
If Me.Width <= 11 Then End
Next Gointo
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -