textbox

[Steve]

I am new to vb.net. I have a textbox. I want the user to be able to only
enter numbers between 2 and 12 into the textbox. Is there a way to do this?
Thanks for any help.

[Crouchie1998]

Do you only want 2 digits? With CTRL + V (paste) will cause you a few more
problems

Why don't you use a spin button instead? That way you can specify min/max
values that the user can choose - problem solved

[Cor Ligthert]

Steve,

You mean something as this typed in this message and not checked

\\\\
Private Sub TextBox1_Valida ting(ByVal sender _
As Object, ByVal e As System.Componen tModel.CancelEv entArgs) _
Handles TextBox1.Valida ting
If Not Check12(TextBox 1.Text) then messagebox.show ("The value is not
between 2 and 12")
End Sub
Private Function Check12(value) as boolean
If value > 0 Then
If IsNumeric(value ) Then
If Cint(value) < 2 OrElse Cint(value) > 12 Then
return true
End if
end if
end if
End sub
///

I hope this helps a little bit?

Cor

[Herfried K. Wagner [MVP]]

"Steve" <kg******@hotma il.com> schrieb:

I am new to vb.net. I have a textbox. I want the user to be able to only
enter numbers between 2 and 12 into the textbox.

\\\
Imports System.Componen tModel
..
..
..
Private Sub TextBox1_Valida ting( _
ByVal sender As Object, _
ByVal e As CancelEventArgs _
) Handles TextBox1.Valida ting
Dim SourceControl As TextBox = DirectCast(send er, TextBox)
Dim ErrorText As String
Try
Dim i As Integer = Integer.Parse(S ourceControl.Te xt)
If i < 1 OrElse i > 12 Then
ErrorText = "Value must fall in the interval 1, ..., 12."
End If
Catch
ErrorText = "Value must be an integer."
End Try
Me.ErrorProvide r1.SetError( _
SourceControl, _
ErrorText _
)
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Chris Calzaretta]

If you do this
'the public sub define is not correct, when you double click on textbox and
go to code add the event onchange

Public sub TextBox_Change( byval sender, byval e)
try
try
if((microsoft.v isualbasic.righ t(cint(e.text), 1) <= 2)) and
((microsoft.vis ualbasic.right( cint(e.text),1) >= 9) then
'if you want to make sure that the user does not have 'a
number larger then 12
if((cint(e.text )< 12) and (cint(e.text)>= 2))then
'number betweeen 2 and 12
else
'number not between 2 and 12
me.textbox.text = microsoft.visua lbasic.left
(me.textbox.tex t,(LEN(me.textb ox.text)-1))
end if
else

me.textbox.text = microsoft.visua lbasic.left
(me.textbox.tex t,(LEN(me.textb ox.text)-1))
end if
end if
catch
'number was not entered
me.textbox.text = microsoft.visua lbasic.left
(me.textbox.tex t,(LEN(me.textb ox.text)-1))
end try

catch ex as

end try

end sub

"Steve" <kg******@hotma il.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

I am new to vb.net. I have a textbox. I want the user to be able to only
enter numbers between 2 and 12 into the textbox. Is there a way to do
this? Thanks for any help.

[IHateAustrians]

HerFried

If the user wants to allow only numbers between 2 and 12 why are you
checking for if i< 1? It should be If i<2

"Herfried K. Wagner [MVP]" wrote:

"Steve" <kg******@hotma il.com> schrieb:

I am new to vb.net. I have a textbox. I want the user to be able to only
enter numbers between 2 and 12 into the textbox.

\\\
Imports System.Componen tModel
..
..
..
Private Sub TextBox1_Valida ting( _
ByVal sender As Object, _
ByVal e As CancelEventArgs _
) Handles TextBox1.Valida ting
Dim SourceControl As TextBox = DirectCast(send er, TextBox)
Dim ErrorText As String
Try
Dim i As Integer = Integer.Parse(S ourceControl.Te xt)
If i < 1 OrElse i > 12 Then
ErrorText = "Value must fall in the interval 1, ..., 12."
End If
Catch
ErrorText = "Value must be an integer."
End Try
Me.ErrorProvide r1.SetError( _
SourceControl, _
ErrorText _
)
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Herfried K. Wagner [MVP]]

"IHateAustrians " <IH************ @discussions.mi crosoft.com> schrieb:

[...]

Rules of Conduct
<URL:http://www.microsoft.c om/communities/conduct/default.mspx#EC AA>

Show that you are able to learn from your mistakes.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>