?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "選擇(1-1"
ClientHeight = 5070
ClientLeft = 60
ClientTop = 420
ClientWidth = 7245
LinkTopic = "Form1"
ScaleHeight = 5070
ScaleWidth = 7245
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "退出"
Height = 615
Left = 4320
TabIndex = 6
Top = 3480
Width = 2535
End
Begin VB.CommandButton Command1
Caption = "開始"
Height = 615
Left = 4200
TabIndex = 5
Top = 2280
Width = 2655
End
Begin VB.Frame Frame1
Caption = "選擇"
Height = 4095
Left = 480
TabIndex = 0
Top = 480
Width = 3135
Begin VB.OptionButton Option4
Caption = "紊流過渡粗糙區"
Height = 495
Left = 120
TabIndex = 4
Top = 3120
Width = 2415
End
Begin VB.OptionButton Option3
Caption = "紊流粗糙區"
Height = 615
Left = 120
TabIndex = 3
Top = 2160
Width = 2415
End
Begin VB.OptionButton Option2
Caption = "紊流光滑區"
Height = 615
Left = 120
TabIndex = 2
Top = 1320
Width = 2295
End
Begin VB.OptionButton Option1
Caption = "層流"
Height = 495
Left = 120
TabIndex = 1
Top = 480
Width = 2415
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Option1.Value = True Then
Form2.Show
Form1.Hide
End If
If Option2.Value = True Then
Form3.Show
Form1.Hide
End If
If Option3.Value = True Then
Form4.Show
Form1.Hide
End If
If Option4.Value = True Then
Form5.Show
Form1.Hide
End If
End Sub
Private Sub Command2_Click()
Form6.Show
Form1.Hide
End Sub
Private Sub Form_Load()
Form6.Show
Form1.Hide
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -