'''ex_p_7_6刪除確認視窗
'需有Label1及Command1,Command2

Private Sub Command1_Click() 'Command1_Click事件
msg = MsgBox("你已刪除了!", vbOKOnly, "按Command1是(Y)的結果")
End Sub

Private Sub Command2_Click()
msg = MsgBox("你已取消刪除!", vbOKOnly, "按Command2否(N)的結果")
End Sub

Private Sub Form_Load() '以下之各項屬性皆可在各自的屬性視窗做設定，不一定要在此Form_Load()中設定，但有好處…
Form1.Caption = "刪除確認視窗"
Form1.Height = 2200
Form1.Width = 6300
Label1.Caption = "要將""重要資料.doc""丟到資源回收桶? "
Command1.Height = 360
Command1.Width = 1200
Command2.Height = 360
Command2.Width = 1200
Command1.Caption = "是(&Y)" '設定對應鍵
Command2.Caption = "否(&N)"
End Sub

'''ex_p_7_20密碼確認視窗
'''需有Label1、Label2、Command1、Command2、Text1、Text2

Private Sub Command1_Click()
10 Dim usr As String
20 usr = Text1.Text '''將Text1.Text的輸入傳給變數usr
30 Select Case Val(Text1.Text) '''將變數usr的資料型態由sting轉為integer 或long，故若使用者輸入之Text1.Text非數字
Case 1000 To 1999
usr = usr & ":教師登入" '''將變數usr的值，由後方再加(連接)上:教師登入
Case 2000 To 2999
usr = usr & ":學生登入"
Case Else
usr = usr & ":不合法的登入"
40 End Select
50 usr = usr & " 密碼:" '''將變數usr的值，由後方再加(連接)上 密碼:
60 usr = usr & Text2.Text '''將變數usr的值，由後方再加(連接)上Text2.Text
70 msg = MsgBox(usr, vbOKOnly, "登入")

End Sub

Private Sub Command2_Click()
End '''結束程式
End Sub

Private Sub Form_Load()
Label1.Caption = "使用者名稱"
Label2.Caption = "密碼"
Command1.Caption = "確認"
Command2.Caption = "取消"
Command2.Default = True '''預設為此按鈕
Text1.Text = ""
Text2.MaxLength = 6
Text2.Text = ""
Text2.PasswordChar = "*" '''密碼顯示為*
End Sub

'''ex_p_7按鈕陣列
'''需有Label1、Command1(0)~Command1(3)

Private Sub Command1_Click(Index As Integer)
10 num = Index '''將得到的index值，傳給num
20 Select Case num
Case 0
msg = MsgBox("你選了" & num, vbOKOnly, "index=0")
Case 1
msg = MsgBox("你選了" & num, vbOKOnly, "index=1")
Case Else
msg = MsgBox("你選了" & num, vbOKOnly, "選了index=0,1以外的")
30 End Select
40 Label1.Caption = "這是按鈕陣列的測試，你選了index" & num '''此行如加在Form_Load()中會無效，why?
End Sub