嗯，放弃，重试，和忽略。。。

[yinzs]

窗体A中调用了函数F，F在执行过程中弹出提示框，选择Retry就重载一下F，选择Ignore就退出F，这个都没有问题，但是选择Abort，我原意是关闭窗口的。
me.dispose()
关闭是关闭了，为什么后面的代码还在执行？要怎样才能让他终止后面的过程呢？

[yinzs]

……
Catch ex As Exception
            myResp = MsgBox("失败!", MsgBoxStyle.AbortRetryIgnore)
            Select Case myResp
                Case vbAbort
                    me.dispose()
                Case vbRetry
                    F()
                Case vbIgnore
                    Exit Sub
            End Select
        End Try
……

[古今多少事]

关闭不是用me.close()吗？

？？？

[yinzs]

close也是一样

[古今多少事]

Catch ex As Exception
myResp = MsgBox("失败!", MsgBoxStyle.AbortRetryIgnore)
Select Case myResp
Case vbAbort
me.dispose()
exit try
Case vbRetry
F()
Case vbIgnore
Exit Sub
End Select
End Try
……

是这个意思吗？

[bw555]

me.dispose()后面加上return就不执行后面代码了

[yinzs]

这个是F（）的代码，我是想直接跳出去，窗体中所有的代码都不执行了，

[bw555]

return就跳出函数了，可以去试下

[bw555]

或者可以这样
过程用exit sub
函数用exit function

[yinzs]

不是啊，exit sub 跳出的是F函数本身啊，后面的F1,F2还是照样执行的。

[bw555]

Catch ex As Exception
            myResp = MsgBox("失败!", MsgBoxStyle.AbortRetryIgnore)
            Select Case myResp
                Case vbAbort
                    me.dispose()
                    exit sub
                Case vbRetry
                    F()
                    exit sub
                Case vbIgnore
                    Exit Sub
            End Select
        End Try

[yinzs]

A

public sub
……
F()
F1()
……
end sub

F

……
Catch ex As Exception
            myResp = MsgBox("失败!", MsgBoxStyle.AbortRetryIgnore)
            Select Case myResp
                Case vbAbort
                    me.dispose()
                Case vbRetry
                    F()
                Case vbIgnore
                    Exit Sub
            End Select
        End Try
……

我想直接跳到A的末尾去，然后关闭窗口。

[yinzs]

你加exit sub 他还是会执行F1,F2的。

[bw555]

可以把f改成function 返回值为布尔型变量
需要退出的时候返回false
继续执行的时候返回true

调用f的时候可以这样
if not f() then return

[古今多少事]

那你将f()、f1()都放进Try……Catch中。

[yinzs]

这样不好。

[bw555]

改动很小的，这样

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not f() Then Return
        f1()
    End Sub
    Public Function f() As Boolean
        Dim myresp As DialogResult
        Try
            '你的处理过程
            Return True
        Catch ex As Exception
            myresp = MsgBox("失败!", MsgBoxStyle.AbortRetryIgnore)
            Select Case myresp
                Case vbAbort
                    Me.Dispose()
                    Return False
                Case vbRetry
                    Return f()
                Case vbIgnore
                    Return True
            End Select
        End Try
    End Function

[yinzs]

谢谢先，我研究一下。：-）

[foxlinda123]

学习了