- 最後登錄
- 2024-10-2
- 在線時間
- 719 小時
- 註冊時間
- 2007-5-12
- 閱讀權限
- 70
- 精華
- 0
- UID
- 1286899
- 帖子
- 1412
- 積分
- 17880 點
- 潛水值
- 39507 米
| 分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。 大致上是這樣寫
只是這樣作法會無限迴圈
註解我不想寫.....
- 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
複製代碼
... |
|