niets anders dan getallen

[mataio]

hallo iedereen
zit met hetvolgende; in een tekstbox mag er ENKEL getallen worden ingevuld (zowel pos als neg, int als double,...)
enkel een - teken bvb of de tekst "hallo!" of ... mogen dus niet
moest dit toch gebeuren en men drukt op enter, moet wat in de textbox staan onmiddellijk worden geselecteerd zodat men opnieuw kan invullen
iemand een idee?
mataio

 

[geroda]

Often, to ensure that users enter only numbers in a text field,
you'll want to validate the text as they enter it. The textbox's
Change() event provides the best place to do so. However, simply
using the IsNumeric() function alone won't do the trick. For
instance, suppose you created the following procedure

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

Under these circumstances, if the user entered the number -333,
the control wouldn't accept it because the beginning dash isn't
a number. Instead, consider using the following function

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



effe een tip aan iedereen:

typ je vraag in het engels over in google en je vind het antwoord heb ik al dikwijls ondervonden hier op dit forum

nog een tip:

indien je vraag is beantwoord zet ze dan beantwoord

alvast bedankt

Geroda