vb.net - 使用当前子程序在代码的一半处退出调用子程序

Question

我用的是 2008 年的..我在 vb.net 中创建一个 Windows 窗体应用程序我需要帮助......如果我使用退出子 *check_fill_for_New()*EXIT SUB 然后在 *bt_Ok_Click* sub 中不会触发消息框......但它也会在一半时退出

Public Sub check_fill_for_New()     
    If tb_UserName.Text = "" Then         
        MsgBox("Please Insert User Name Field", MsgBoxStyle.OkOnly, "Error")          
        tb_UserName.Focus()          
        Exit Sub      
     End If
End Sub    

Private Sub bt_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Ok.Click                
    If maintain_department = "Admin" Then                
        Call check_fill_for_New()                            
        MsgBox("nooooooooo")        
    End If
End Sub

Answer 1

您需要一个函数，该函数将返回一个结果，指示您是否要继续调用过程。

Public Function check_fill_for_New() as Boolean
    If tb_UserName.Text = "" Then         
        MsgBox("Please Insert User Name Field", _
                MsgBoxStyle.OkOnly,_
                "Error")   

        tb_UserName.Focus()          
        return True 
    Else
        return False
    End If
End Sub 


Private Sub bt_Ok_Click(ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) Handles bt_Ok.Click   

    If maintain_department = "Admin" Then
        If (check_fill_for_New()) Then
            MsgBox("nooooooooo")        
         End If
    End If
 End Sub

旁注:您可能是 VB.NET 新手，因为您的命名约定不是 .NET 框架的标准。在这里查看 VB.NET 编码约定:http://msdn.microsoft.com/en-us/library/h63fsef3.aspx