📄 aboutbox.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form frmAboutBox
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "软件开发者信息"
ClientHeight = 2595
ClientLeft = 2550
ClientTop = 2685
ClientWidth = 4455
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H00400000&
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Icon = "Aboutbox.frx":0000
LinkMode = 1 'Source
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2595
ScaleWidth = 4455
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox picAbout
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H00C0C0C0&
Height = 2250
Left = 150
ScaleHeight = 2250
ScaleWidth = 3015
TabIndex = 0
Top = 180
Width = 3015
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = " 张 红 煊"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 190
TabIndex = 8
Top = 1950
Width = 2235
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = " 史 服 宇"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 190
TabIndex = 7
Top = 1650
Width = 2235
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = " 张 奇 骏"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 190
TabIndex = 5
Top = 1350
Width = 2235
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "联 系 人：白 雪 飞"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 160
TabIndex = 4
Top = 1050
Width = 2265
End
Begin VB.Line Line1
BorderColor = &H00000000&
BorderWidth = 2
X1 = 90
X2 = 2850
Y1 = 330
Y2 = 330
End
Begin VB.Label lblAbout3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "联系电话：52112-56202"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 120
TabIndex = 3
Top = 720
Width = 2775
End
Begin VB.Label lblAbout2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "立足交大，开发实用软件"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 90
TabIndex = 2
Top = 390
Width = 2775
End
Begin VB.Label lblAbout1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "益友软件开发室"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 180
TabIndex = 1
Top = 0
Width = 2775
End
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 3300
X2 = 3300
Y1 = 0
Y2 = 2800
End
Begin Threed.SSCommand BTN_OK
Height = 735
Left = 3510
TabIndex = 6
Top = 500
Width = 705
_ExtentX = 1244
_ExtentY = 1296
_Version = 131073
Font3D = 5
MousePointer = 99
ForeColor = 0
BackColor = 12632256
PictureFrames = 1
MouseIcon = "Aboutbox.frx":030A
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Aboutbox.frx":0624
Caption = "确定"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
End
Attribute VB_Name = "frmAboutBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BTN_OK_Click()
Unload Me
End Sub
Private Sub BTN_OK_GotFocus()
Dim I As Integer
On Error Resume Next
' Make the labels slide into the picture box. Call
' the WaitForEventsToFinish procedure to the labels to repaint.
While lblAbout1.Left <= 120
lblAbout1.Left = lblAbout1.Left + 50
'WaitForEventsToFinish 1
Wend
While lblAbout2.Left > 120
lblAbout2.Left = lblAbout2.Left - 50
'WaitForEventsToFinish 1
Wend
While lblAbout3.Left <= 120
lblAbout3.Left = lblAbout3.Left + 50
'WaitForEventsToFinish 1
Wend
End Sub
Private Sub BTN_OK_KeyPress(KeyAscii As Integer)
' Entering any key has the same effect as clicking
' the OK button.
BTN_OK_Click
End Sub
Private Sub Form_Load()
' Force the labels to be displayed outside the
' picture box.
lblAbout1.Left = -2500
lblAbout2.Left = 4000
lblAbout3.Left = -2500
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
'frmquey.Enabled = True
'frmquey.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -