코드의 절반에있는 현재 하위 코드를 사용하여 호출 하위를 종료합니다

Question

나는 2008 년 대 사용했습니다. 나는 vb.net에서 windows 양식 응용 프로그램을 만듭니다. 나는 도움을 원합니다. * bt_Ok_Click * 하위에 다음 EXIT의 SUB를 사용하여 하위 * check_fill_for_New() *는 MSGBOX을 발생하지 ......하지만 반환 것 또한 반에서 EXIT는

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 

사이드 노트 : 당신의 명명 규칙은 .NET 프레임 워크와 표준 아니므로 당신은 VB.NET에 새 수 있습니다 것으로 보인다. 여기 VB.NET 코딩 규칙을 살펴보십시오. http://msdn.microsoft.com/en-us/library/h63fsef3.aspx