Beenden Sie eine aufrufende Unter Verwendung von aktuellen Sub bei der Hälfte eines Codes

Question

ich verwendet vs 2008 .. Ich erstelle eine Windows-Formular-Anwendung in vb.net Ich möchte Hilfe in dem ......... wenn ich verlasse ein Unter * check_fill_for_New() * EXIT SUB dann in * bt_Ok_Click * Unter Verwendung kein msgbox Feuer ...... aber es wird EXIT bei halber auch

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

Sie benötigen eine Funktion, die zurückkehren ein Ergebnis, das angibt, ob Sie von Ihrem Anrufverfahren fortfahren möchten.

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 

Randbemerkung: Es scheint, dass Sie neu in VB.NET sein könnte als Namenskonventionen nicht serienmäßig mit dem .NET-Framework ist. Sehen Sie sich die VB.NET-Kodierungskonventionen hier an: http://msdn.microsoft.com/en-us/library/h63fsef3.aspx