TextBox Error

[hennie]

Hello,
I've define a TextBox As Byte. Only numeric can be the input. I have made a
ErrorCheck().
The problem next:

If Val(Form1.txtText1.Text) "This is the problem" is not a byte Then
etc.

What do i have to fill in by: This is the problem is not a byte

I have try <> Byte, but this doesn't work.
I can the input define As String or something but I want only numeric that
can input.

Can someone help me, Thanks

[James L Hill]

Try this for allowing only numeric input into a text box:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Const iNumber = "1234567890"
If InStr(iNumber, Chr(KeyAscii)) <> 0 Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

The Keypress method of the textbox is called when you type in anything.
Setting the value of KeyAscii to 0 kills the enter.
"hennie" <ja******@hetnet.nl> wrote in message
news:cs**********@reader08.wxs.nl...

Hello,
I've define a TextBox As Byte. Only numeric can be the input. I have made a ErrorCheck().
The problem next:

If Val(Form1.txtText1.Text) "This is the problem" is not a byte Then
etc.

What do i have to fill in by: This is the problem is not a byte

I have try <> Byte, but this doesn't work.
I can the input define As String or something but I want only numeric that
can input.

Can someone help me, Thanks

[edoepke]

This will allow you to useboth positive and negative numbers and decimal
points.

Private Sub Text1_Change()
If Not ValidateNumeric(Text1.Text) Then
Text1.Text = ""
End If
End Sub

Private Function ValidateNumeric(strText As String) _
As Boolean
ValidateNumeric = CBool(strText = "" _
Or strText = "-" _
Or strText = "-." _
Or strText = "." _
Or IsNumeric(strText))
End Function

Hope this helps.
"hennie" <ja******@hetnet.nl> wrote in message
news:cs**********@reader08.wxs.nl...

Hello,
I've define a TextBox As Byte. Only numeric can be the input. I have made
a
ErrorCheck().
The problem next:

If Val(Form1.txtText1.Text) "This is the problem" is not a byte Then
etc.

What do i have to fill in by: This is the problem is not a byte

I have try <> Byte, but this doesn't work.
I can the input define As String or something but I want only numeric that
can input.

Can someone help me, Thanks

[Randy Birch]

http://vbnet.mvps.org/code/textapi/txstyles.htm

--
Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/
"hennie" <ja******@hetnet.nl> wrote in message
news:cs**********@reader08.wxs.nl...
: Hello,
: I've define a TextBox As Byte. Only numeric can be the input. I have made
a
: ErrorCheck().
: The problem next:
:
: If Val(Form1.txtText1.Text) "This is the problem" is not a byte Then
: etc.
:
: What do i have to fill in by: This is the problem is not a byte
:
: I have try <> Byte, but this doesn't work.
: I can the input define As String or something but I want only numeric that
: can input.
:
: Can someone help me, Thanks
:
:
:

[Rick Rothstein]

> http://vbnet.mvps.org/code/textapi/txstyles.htm

Of course, the API function you cite for restricting input to
digits-only suffers from the flaw that allows a user to Paste non-digits
into the TextBox. For those reading this thread, here is a non-API
solution that protects against Pasting too. Paste the following code
into the code window for the form housing the TextBox (assumed to be
named Text1 for this example).

Rick - MVP

Dim LastPosition As Long

Private Sub Text1_Change()
Static LastText As String
Static SecondTime As Boolean
If Not SecondTime Then
With Text1
If .Text Like "*[!0-9]*" Then
Beep
SecondTime = True
.Text = LastText
.SelStart = LastPosition
Else
LastText = .Text
End If
End With
End If
SecondTime = False
End Sub

Private Sub Text1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
With Text1
LastPosition = .SelStart
'Place any other MouseDown event code here
End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
With Text1
LastPosition = .SelStart
'Place any other KeyPress checking code here
End With
End Sub