controleren of invoer een getal is

[cornelis180]

ik heb de volgende code:

Private Sub lstFiguur_Click()
'declaraties
Dim dR As Double

Dim I As Double
Dim pi As Double


'getallen maken
dR = Val(txtR.Text)
pi = 3.1415927

'waarde uit lstboxen toekennen aan variabelen
If lstFiguur.Text = "Kubus" Then I = dR ^ 3
If lstFiguur.Text = "Bol" Then I = (4 / 3) * pi * dR ^ 3

'naar interface
txtInhoud.Text = Str(I)

Nu wil ik graag het programma laten controleren of het wel een getal is... (dus geen letter of iets dergelijks) hoe doe ik dit?

 

[CoD_NL]

Isnumeric() kun je hiervoor gebruiken. Het is ook een mogelijkheid om de textbox alleen maar numerieke waarden als invoer te laten accepteren.

 

[cornelis180]

en hoe laat je alleen maar nummerieke waarde invoeren?

 

[CoD_NL]

Private Sub Text1_Change()
 If Not IsNumeric(Right(Text1.Text, 1)) And Len(Text1.Text) = 1 Then
   Text1.Text = ""
 ElseIf Not IsNumeric(Right(Text1.Text, 1)) And Len(Text1.Text) > 1 Then
   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
   Text1.SelStart = Len(Text1.Text)
 End If
End Sub

Iets als bovenstaande zou je kunnen gebruiken.