[mbrother64]

Dim number As Integer
		TextBox1.Text = number
		If number < 1 Or number > 100 Then

			MessageBox.Show("You must enter a value between 1 and 100", "Name Entry Error", _
			MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			TextBox1.Focus()
			TextBox1.Clear()
			Exit Sub

How do I make it when you type in a number above or below 1 and 100 the messagebox comes up? I can only make the msgbox come up after Ive clicked the button, how do I make it automatically come up when I try to click anywhere else?

[janne_panne]

TextBox has about 50 events. The purpose of the events is to provide the correct means for this kind of things, like when you enter text to the textbox, remove it from the Form, or in your case, when you leave the control so it's no longer focused.

So, in your case, you'd have to use the Leave event of TextBox:

  Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
	' Your logic here '
  End Sub

[mbrother64]

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
		Dim number As Integer
		TextBox1.Text = number
		If number < 1 Or number > 100 Then
			MessageBox.Show("You must enter a value between 1 and 100", "Name Entry Error", _
			MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			TextBox1.Focus()
			TextBox1.Clear()
		End If
		Exit Sub
	End Sub

I tried this, but now when I leave the textbox the messagebox automatically comes up even if I type in a number between 1 and 100.

[janne_panne]

You have this line wrong:

TextBox1.Text = number

It should be:

number = Integer.Parse(TextBox1.Text)

[mbrother64]

Ive now tried that and it now lets me type in a number between 1 and 100. But now whenever I type in non-numbers it crashes. I thought being declared an integer would've taken care of that. Heres my code now:

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
		Dim number As Integer
		number = Integer.Parse(TextBox1.Text)
		If number < 1 Or number > 100 Then
			MessageBox.Show("You must enter a value between 1 and 100", "Name Entry Error", _
			MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			TextBox1.Focus()
			TextBox1.Clear()
		End If
		Exit Sub
	End Sub

[CharlieMay]

You will have to check to ensure it is numeric before checking the value.

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
		Dim number As Integer
		number = Integer.Parse(TextBox1.Text)
		If Not isNumeric(TextBox1.Text) Then
			MessageBox.Show("Numbers only please","Invalid Entry", _
messageBoxButtons.OK, MesageBoxIcon.Exclamation)
TextBox1.Focus()
TextBox1.Clear()
else
		If number < 1 Or number > 100 Then
			MessageBox.Show("You must enter a value between 1 and 100", "Name Entry Error", _
			MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			TextBox1.Focus()
			TextBox1.Clear()
		End If
End If
		Exit Sub
	End Sub

This post has been edited by CharlieMay: 02 October 2009 - 04:21 AM

[mbrother64]

No Charlie, your code dosent work, it just crashes.

[CharlieMay]

Sorry mbrother,

I missed a line when I moved your code down under the else statement

the line: number = Integer.Parse(TextBox1.Text)

should be moved below the else line

		Dim number As Integer
		If Not IsNumeric(TextBox1.Text) Then
			MessageBox.Show("Numbers only please", "Invalid Entry", _
							MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			TextBox1.Focus()
			TextBox1.Clear()
		Else
			number = Integer.Parse(TextBox1.Text)
			If number < 1 Or number > 100 Then
				MessageBox.Show("You must enter a value between 1 and 100", "Name Entry Error", _
							   MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
				TextBox1.Focus()
				TextBox1.Clear()
			End If
		End If
		Exit Sub

This post has been edited by CharlieMay: 02 October 2009 - 06:21 AM