none
[VB2005]請問Do .....Loop Until 怎麼跳出程式 RRS feed

  • 問題

  • Private Sub btn_RUN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_RUN.Click
       
            Dim ID0 As Integer
            Dim ID1 As Integer
           

      Do
                If ID0 = 56 Then

                Else
                    MsgBox("Please check  ID !!", MsgBoxStyle.Critical, "Error Message")

    '這裡怎麼跳出SUB

                End If
            Loop Until ID0 = 56

    End Sub


    請問怎麼在MSGBOX後面跳出這各副程式 謝謝!!
    2011年7月4日 上午 02:55

解答

  • 假如您是要跳出 Do Loop 迴圈,請嘗試使用 Exit Do

    假如您是要跳出 btn_RUN_Click 事件,請嘗試使用 Return

     


    歡迎參觀我的Blog.NET菜鳥自救會

    • 已提議為解答 Alex_Lee 2011年7月4日 上午 03:39
    • 已標示為解答 Ling1982 2011年7月4日 上午 05:47
    2011年7月4日 上午 03:18
    版主