visualbasic2008從零開始學習手冊第8章表單輸出入介面設計.ppt

1. 宣告 result 為 MsgBoxResult 型別變數 Dim result As MsgBoxResult 2. 使用 MsgBox 敘述result=MsgBox(確定結束程式？, MsgBoxStyle.OKCancel + _MsgBoxStyle.Exclamation, 井字遊戲) 3. 若按 確定 鈕，結束程式 If result = MsgBoxResult.OK Then End 【範例演練】 試寫一個帳號及密碼檢查程式。程式一開始要求輸入帳號(帳號為 ”yahoo”)及密碼（密碼為 ”1688”），當帳號及密碼正確時出現右下圖，連結到奇摩網站()。如果帳號及密碼不正確可再重新輸入，若連續錯誤三次則結束程式。(範例：msgbox1.sln) 建立輸出入介面 ‘ FileName : msgbox1.sln 01 Public Class Form1 02 Dim num As Integer 宣告為成員變數，存放錯誤次數 所有事件一起共用 03 04 Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System. _ EventArgs) Handles btnLogin.Click 05 Dim result As MsgBoxResult 06 num += 1 07 If txtId.Text = yahoo And txtPwd.Text = 1688 Then 08 MsgBox(歡迎光臨,雅虎奇摩網站, , 登入成功) 09 System.Diagnostics.Process.Start() 10 End End敘述可改用Application.Exit()方法 11 Else 12 If num = 3 Then 13 MsgBox(連續錯誤三次無法進入雅虎奇摩網站) 14 End 15 Else 16 result = MsgBox(帳號密碼有誤，剩下 (3 - num) 次！是否重新輸入？, _ MessageBoxButtons.YesNo, 帳號密碼錯誤) 17 If result = MsgBoxResult.No Then End 18 End If 19 End If 20 End Sub 21 22 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.  EventArgs) Handles btnExit.Click 23 End 24 End Sub 25 End Class 8.8 MessageBox.Show 方法 此方法可顯示 和 MsgBox 敘述一樣的對話方塊。 MessageBox.Show() 方法可同時讓 VB 2008, C# 2008, C++ 2008使用 此方法所顯示的對話方塊中允許顯示提示訊息、標題欄名稱、提示圖示和相關按鈕。 語法： Dim 傳回值 As DialogResult = MessageBox.Show(訊息, 標題, 按鈕常數, 圖示常數) Dim result As DialogResult = MessageBox.Show(確定結束程式？, 井字遊戲 , _MessageBoxButtons.OKCancel , MessageBoxIcon.Exclamation) Dim 變數名稱 As DialogResult ‘ 宣告 DialogResult 型別變數 4. 按鈕常數：用來設定視窗中顯示的按鈕： 5. 圖示常數用來設定視窗中顯示的圖示 Take a Break …. 21 Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System. _ EventArgs) Handles Me.Activated 22 Me.Location = New Point(form_left, form_top) 23 Me.Size = New Size(form_wi