msgbox問題求助 - 伊莉討論區

' 以你這個圖所表示的流程會有2層的架構，3個問題
' 以下3個變數代表3個問題
Dim msgTop As String
Dim msgYes As String
Dim msgNo As String
' 以下3個變數代表3個問題視窗的抬頭
Dim titleTop As String
Dim titleYes As String
Dim titleNo As String
' 以下3個變數代表3個問題所選擇的答案
Dim responseTop As MsgBoxResult
Dim responseYes As MsgBoxResult
Dim responseNo As MsgBoxResult
' 這是設定MsgBox的形式與按鈕
Dim style As MsgBoxStyle
' 這是控制是否重複迴圈的布林值變數
Dim isEnd As Boolean = True
' 設定MsgBox的樣式，請自行參閱MSDN https://msdn.microsoft.com/zh-tw/library/139z2azd(v=vs.90).aspx
style = MsgBoxStyle.DefaultButton3 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
While isEnd = True
msgTop = "第一個問題?"
titleTop = "第一個問題的抬頭"
responseTop = MsgBox(msgTop, style, titleTop)
If responseTop = MsgBoxResult.Yes Then ' 第一層回答是
msgYes = "第一層回答是之後的問題？"
titleYes = "第一層回答是之後的抬頭"
responseYes = MsgBox(msgYes, style, titleYes)
If responseYes = MsgBoxResult.Yes Then ' 第一層回答是之後第二層回答是
' 這裡可以寫一些你要作處裡的程式
' ............
' ............
' 然後決定要不要跳出迴圈
isEnd = False ' 改成False，所以會跳出迴圈
Else ' 第一層回答是之後第二層回答否
' 這裡可以寫一些你要作處裡的程式
' ............
' ............
' 然後決定要不要跳出迴圈
isEnd = False ' 改成False，所以會跳出迴圈
End If
Else
' 第一層回答否
msgNo = "第一層回答否之後的問題？"
titleNo = "第一層回答否之後的抬頭"
responseNo = MsgBox(msgNo, style, titleNo)
If responseYes = MsgBoxResult.Yes Then ' 第一層回答否之後第二層回答是
' 這裡可以寫一些你要作處裡的程式
' ............
' ............
' 然後決定要不要跳出迴圈
isEnd = False ' 改成False，所以會跳出迴圈
Else
' 第一層回答否之後第二層回答否
' 這裡可以寫一些你要作處裡的程式
' ............
' ............
' 然後決定要不要跳出迴圈
isEnd = True ' 仍然維持True，所以會回到第一個問題
End If
End If
End While
End Sub

複製代碼

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mytest1
Dim Mytest2
Dim Mytest3
ori:
Mytest1 = Nothing
Mytest2 = Nothing
Mytest3 = Nothing
Mytest1 = MsgBox("內容1", MsgBoxStyle.YesNo, "標題1")
If Mytest1 = MsgBoxResult.Yes Then
Mytest1 = MsgBox("內容2", MsgBoxStyle.YesNo, "標題2")
If Mytest1 = MsgBoxResult.Yes Then
Mytest1 = MsgBox("內容3", MsgBoxStyle.YesNo, "標題3")
Else
Mytest2 = MsgBox("內容3 -2", MsgBoxStyle.YesNo, "標題3-2")
End If
GoTo ori
Else
Mytest2 = MsgBox("內容2 - 1", MsgBoxStyle.YesNo, "標題2 - 1")
If Mytest2 = MsgBoxResult.Yes Then
Mytest2 = MsgBox("內容4", MsgBoxStyle.YesNo, "標題4")
Else
Mytest3 = MsgBox("內容4 -2", MsgBoxStyle.YesNo, "標題4-2")
End If
End If
GoTo ori
End Sub

複製代碼