コードの半分の現在のサブを使用して呼び出し側のサブを終了します

Question

私はvs 2008で使用されました.. 私はvb.netでWindowsフォームアプリケーションを作成します 私は助けが必要です.........私は終了する場合サブ* check_fill_for_New（）*その後* bt_Ok_Click *にサブのMsgBoxを発射しませ のEXIT 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

でEXITも意志あなたが返す関数が必要です呼び出し元のプロシージャから続行するかどうかを示す結果。

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 

サイドノート：あなたの命名規則は、.NETフレームワークの標準ではないとして、あなたはVB.NETに新しいかもしれないと思われます。 VB.NETのコーディング規約をご覧ください。http://msdn.microsoft.com/en-us/library/h63fsef3.aspx