'ex_p4_28select_case

Private Sub Form_Load()
10 Dim number As Integer '若是宣告成integer，則當輸入為非數字時，會有錯誤。若要宣告成string，則各case之數值要以" "包圍
20 number = InputBox("1.關機 2.重新啟動 3.取消")
30 Select Case number
Case 1
MsgBox "關機中，請稍後…"
Case 2
MsgBox "重新啟動中，請稍後…"
Case 3
MsgBox "取消"
Case Else
MsgBox "輸入錯誤，請重新輸入"
40 End Select
End Sub

'ex_p6_13

Private Sub Form_Click() 'Click事件
10 For i = 0 To 15
20 Form1.BackColor = QBColor(i) 'i=0~15改變背景顏色
30 For j = 1 To 1000000
40
50 Next j
60 Next i
End Sub

Private Sub Form_Load() 'Load事件
Form1.Caption = "背景顏色" '可在程式碼內修改屬性
End Sub

'''ex_p6_23Label物件_倒數計時

Private Sub Form_Load() '''Form物件的Load事件
10 Form1.Caption = "倒數計時"
20 Label1.Caption = "按這裏，開始倒數30秒"
30 Label1.Alignment = 2 '''對齊方式
40 Label1.BorderStyle = 1 '''外框樣式
50 Label2.Caption = "" '''未倒數前Label2設為空字元
End Sub

Private Sub Label1_Click() '''Label1物件的Click事件
10 For i = 29 To 0 Step -1 '''倒數迴圈
20 Form1.Refresh '''Refresh方法，強制重繪，一定要有，否則40行會無作用，但41行仍可作用
30 Label2.FontSize = 18 '''字體大小
40 Label2.Caption = i
41 Form1.Caption = i
50 For j = 1 To 1000000 '''延遲用，空迴圈
60
70 Next j
80 Next i
End Sub