?? aboutbox.frm
字號:
VERSION 5.00
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 '屏幕中心
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.PictureBox BTN_OK
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 735
Left = 3510
MousePointer = 99 'Custom
ScaleHeight = 675
ScaleWidth = 645
TabIndex = 6
Top = 500
Width = 705
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 3300
X2 = 3300
Y1 = 0
Y2 = 2800
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 + -