exit a calling sub using current sub at half of a code

Question

0.00/5 (No votes)

See more:

i used vs 2008..
i create a windows form application in vb.net
i want help in which ... if i exit a sub check_fill_for_New() using
EXIT SUB then in bt_Ok_Click sub not fire a msgbox......but it will also EXIT at half.

VB

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

VB

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

Posted 18-Dec-10 6:32am

Neeil

Updated 18-Dec-10 7:48am

dmageiras

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

dmageiras · Answer 1 · 2010-12-18T07:22:00

Convert check_fill_for_New() into a function that returns a boolean and in bt_Ok_Click check for true or false before message. For example:

VB

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 false
 else
  return true
 end if
End Sub

VB

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

MortezaShoja · Answer 2 · 2010-12-21T00:00:00

you can use this code

VB

Public Function check_fill_for_New()
    If tb_UserName.Text = "" Then
        MessageBox.Show("Please Insert User Name Field", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        tb_UserName.Focus()
        Return "False"
    Else
        Return "True"
    End If
End Function

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
            MessageBox.Show("Nooooooooo", "Invalid Username or Password")
        End If
    End If
End Sub

exit a calling sub using current sub at half of a code

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0