?? frmabout.frm
字號:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "About Personnel_MIS"
ClientHeight = 2970
ClientLeft = 30
ClientTop = 330
ClientWidth = 5895
ClipControls = 0 'False
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2970
ScaleWidth = 5895
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Tag = "About Personnel_MIS"
Begin VB.PictureBox picIcon
AutoSize = -1 'True
BackColor = &H00C0C0C0&
ClipControls = 0 'False
Height = 540
Left = 240
Picture = "frmAbout.frx":5C02
ScaleHeight = 479.532
ScaleMode = 0 'User
ScaleWidth = 479.532
TabIndex = 2
TabStop = 0 'False
Top = 240
Width = 540
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "確定(&O)"
Default = -1 'True
Height = 345
Left = 960
TabIndex = 0
Tag = "OK"
Top = 2520
Width = 1467
End
Begin VB.CommandButton cmdSysInfo
Caption = "取消(&X)"
Height = 345
Left = 3480
TabIndex = 1
Tag = "&System Info..."
Top = 2520
Width = 1452
End
Begin VB.Label lblDescription
Caption = "App Description"
ForeColor = &H00000000&
Height = 1170
Left = 1050
TabIndex = 5
Tag = "App Description"
Top = 1125
Width = 4092
End
Begin VB.Label lblTitle
Caption = "Application Title"
ForeColor = &H00000000&
Height = 480
Left = 1050
TabIndex = 4
Tag = "Application Title"
Top = 240
Width = 4092
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 225
X2 = 5657
Y1 = 2430
Y2 = 2430
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 240
X2 = 5657
Y1 = 2445
Y2 = 2445
End
Begin VB.Label lblVersion
Caption = "Version"
Height = 225
Left = 1050
TabIndex = 3
Tag = "Version"
Top = 780
Width = 4092
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblTitle.Caption = App.Title
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdSysInfo_Click()
MsgBox "對不起,沒有幫助信息.", , "操作失敗"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -