?? frmfrash.frm
字號:
VERSION 5.00
Begin VB.Form frmFrash
Appearance = 0 'Flat
BackColor = &H80000005&
ClientHeight = 4230
ClientLeft = 60
ClientTop = 60
ClientWidth = 5970
ControlBox = 0 'False
LinkTopic = "Form1"
Picture = "frmFrash.frx":0000
ScaleHeight = 4230
ScaleWidth = 5970
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Interval = 60000
Left = 0
Top = 0
End
Begin VB.Label lblWarning
BackStyle = 0 'Transparent
Caption = "警告:任何單位或個人未經許可不得拷貝及使用。"
ForeColor = &H00FF0000&
Height = 195
Left = 0
TabIndex = 1
Top = 0
Width = 3855
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "版本"
Height = 180
Left = 5175
TabIndex = 0
Top = 3000
Width = 360
End
End
Attribute VB_Name = "frmFrash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim uIndex As Integer
Option Explicit
Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub imgLogon_Click()
Unload Me
End Sub
Private Sub lblCompany_Click()
Unload Me
End Sub
Private Sub lblCopyright_Click()
Unload Me
End Sub
Private Sub lblLicenseTo_Click()
Unload Me
End Sub
Private Sub lblPlatform_Click()
Unload Me
End Sub
Private Sub lblProductName_Click()
Unload Me
End Sub
Private Sub lblVersion_Click()
Unload Me
End Sub
Private Sub lblWarning_Click()
Unload Me
End Sub
Private Sub SSFrame1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
uIndex = uIndex + 1
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -