problem in messagebox

Question

0.00/5 (No votes)

See more:

hei guys
this is the sample code of mine

VB

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Not IsNumeric(TextBox1.Text) Then
hehe:
            Dim abc As DialogResult = MessageBox.Show("Please insert numeric only!", "Error!!", MessageBoxButtons.OKCancel)
            If abc = DialogResult.OK Then
                TextBox1.Clear()
            Else
                GoTo hehe
            End If
        End If
    End Sub

after i press on the ok button..
my text have been clear..
but the problem is the message box still pop out
what show i do to prevent the messagebox pop out again when the ok button is clicked

Posted 17-Feb-13 23:49pm

arnoldxx

Updated 18-Feb-13 0:02am

v4

Add a Solution

Comments

Abhinav S 18-Feb-13 5:56am

Something seems to be missing. Appears as if you are calling the same method again and again.
Post complete / more code here.

arnoldxx 18-Feb-13 6:02am

done..
this is my complete code~

2 solutions

Solution 3

I suggest you:
1) to use TextBox_Leave[^] event, not TextBox_TextChange[^] event.
2) do not remove text from TextBox, but select it and bring focus back into TextBox,
3) use RegEx[^] to check if TextBox "value" is numeric value.

Posted 18-Feb-13 1:46am

Maciej Los

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)

*Karthik Harve* · Accepted Answer · 2013-02-18T01:03:00

Solution 1

Hi,

The message box appearing, because, once you clear the textbox, again its a textchange event, so, it is becoming an infinite function.
so, try below code.

VB

If TextBox1.Text.Trim <> "" Then
    If Not IsNumeric(TextBox1.Text) Then
            Dim abc As DialogResult = MessageBox.Show("Please insert numeric only!", "Error!!", MessageBoxButtons.OKCancel)
            If abc = DialogResult.OK Then
                TextBox1.Clear()
            End If
    End If
End If

hope it helps

Posted 18-Feb-13 1:03am

Karthik Harve

Updated 18-Feb-13 1:04am

v2

Comments

arnoldxx 18-Feb-13 9:48am

thx.. btw..
what is the function of <>

Karthik Harve 18-Feb-13 23:09pm

welcome.

arnoldxx 18-Feb-13 9:54am

sorry i mean trim *

Karthik Harve 18-Feb-13 23:08pm

it will trim the textbox text if any spaces on both the ends.

arnoldxx 19-Feb-13 1:34am

ic...
thx lot for helping me.. :)

Karthik Harve 19-Feb-13 1:40am

welcome .!!