📄 frmsplash.frm
字号:
VERSION 5.00
Begin VB.Form frmsplash
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 4425
ClientLeft = 0
ClientTop = 0
ClientWidth = 6810
ControlBox = 0 'False
LinkTopic = "Form1"
Picture = "frmsplash.frx":0000
ScaleHeight = 4425
ScaleWidth = 6810
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton progbar
Caption = "Command1"
Height = 195
Left = 6600
TabIndex = 0
Top = 3120
Width = 255
End
End
Attribute VB_Name = "frmsplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim I As Single
Private Sub Form_Load()
Me.Show
progbar_Click
End Sub
Private Sub progbar_Click()
frmsplash.Show
I = 1
Do
progressbar1.Value = I
I = I + 0.0001
Loop Until progressbar1.Value = 99
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -