?? frmcomplier.frm
字號:
VERSION 5.00
Begin VB.Form frmComplier
Caption = "Complier"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3090
ScaleWidth = 4680
Begin VB.Timer Timer3
Left = 3000
Top = 240
End
Begin VB.Label Label1
Caption = "Label1"
Height = 615
Left = 1080
TabIndex = 0
Top = 480
Width = 1695
End
End
Attribute VB_Name = "frmComplier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Left = 0
Top = 0
Width = 4000 '//窗體最大化
Height = 2000
Unload frmA1
Unload frmB1
Label1.Caption = "Data Covert 1% "
End Sub
Private Sub Form_Resize()
Timer3.Enabled = True
Timer3.Interval = 1
Label1.Caption = ""
End Sub
Private Sub Timer3_Timer()
'frmA1.Visible = False
'frmB1.Visible = False
ConvertFlag = 1
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Visible = False
' frmA1.Hide
Unload frmA1
Label1.Caption = "Data Covert 7% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 2
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Hide
' frmA1.Visible = False
Unload frmA1
Label1.Caption = "Data Covert 14% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 3
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Visible = False
' frmA1.Hide
Unload frmA1
Label1.Caption = "Data Covert 21% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 4
' frmA1.WindowState = 1
' frmA1.Visible = False
frmA1.Show
' frmA1.Visible = False
' frmA1.Hide
Unload frmA1
Label1.Caption = "Data Covert 28% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 5
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Visible = False
' frmA1.Hide
' frmA1.Visible = False
Unload frmA1
Label1.Caption = "Data Covert 35% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 6
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Hide
' frmA1.Visible = False
Unload frmA1
' Unload frmA1
Label1.Caption = "Data Covert 42% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 7
' frmA1.Visible = False
' frmA1.WindowState = 1
frmA1.Show
' frmA1.Visible = False
' frmA1.Hide
Unload frmA1
Label1.Caption = "Data Covert 49% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 8
' frmA1.Visible = False
' frmB1.WindowState = 1
frmB1.Show
' frmB1.Hide
Unload frmB1
Label1.Caption = "Data Covert 56% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 9
' frmB1.Visible = False
frmB1.Show
' frmB1.Hide
Unload frmB1
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 10
' frmB1.Visible = False
frmB1.Show
' frmB1.Hide
Unload frmB1
Label1.Caption = "Data Covert 63% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 11
'frmB1.Visible = False
frmB1.Show
' frmB1.Hide
Unload frmB1
Label1.Caption = "Data Covert 70% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 12
' frmB1.Visible = False
frmB1.Show
' frmB1.Hide
Unload frmB1
Label1.Caption = "Data Covert 77% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 13
' frmB1.Visible = False
frmB1.Show
' frmB1.Hide
Unload frmB1
Label1.Caption = "Data Covert 84% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag1 = 14
frmB1.Show
Unload frmB1
Label1.Caption = "Data Covert 91% "
If ExitFlag = 1 Then
Timer3.Enabled = False
ExitFlag = 0
Exit Sub
frmComplier.Hide
End If
ConvertFlag = 0
ConvertFlag1 = 0
' If Db1ConvertFlag = 0 Then
' frmA1.Show
' ElseIf Db2ConvertFlag1 = 0 Then
' frmA1.Show
' End If
Timer3.Enabled = False
Label1.Caption = "Data Covert 100% "
MsgBox "Data Convert Sucess!"
frmComplier.Hide
' Label1.Caption = "Data Convert Over!"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -