Visual basic probleempje

[Verwijderd]

Private Sub Command1_Click()
Text2.Text = Text1.Text / 2.20371
Dim Gulden, Euro As Single
Gulden = Text1.Text
Euro = Gulden / 2.20371
Text2.Text = Format(Euro, "€ ###,###,##0.00")
End Sub

Private Sub Command2_Click()
Unload Form1
End
End Sub

kheb ff snel een euro calculator gemaakt...

alleen als ik een getal invoer met een spatie erin ... bv 2333 664

dan geeft hij een error

ook als ik letters intyp geeft hij een fout kan iemand mijn code aanpassen zodat als er bovenstaande gebeurt dat hij dan zegt Foute invoer.

BVD Groeten Tjalle Koster

[BdR]

ik denk dat je de error wil afvangen als er een ongeldig getal wordt ingevoerd. Dat kan je zo doen, voeg "on error" toe voor dat gedeelte wat fout kan gaan, en voeg een label toe (bijv "ErrorGetal") zoiets dus..:

Visual Basic:

Private Sub Command1_Click()
  Dim Gulden, Euro As Single
  
On Error GoTo ErrorGetal
  Text2.Text = Text1.Text / 2.20371
  Gulden = Text1.Text
  Euro = Gulden / 2.20371
  
  Text2.Text = Format(Euro, "? ###,###,##0.00")
  
  Exit Sub
  
ErrorGetal:

Select Case Err.Number  ' Evaluate error number.
Case 13 ' string to integer conversion error
  MsgBox "Alleen geldige getallen worden geaccepteerd."
Case Else 'unknown error
  MsgBox "Onbekende fout bij omzetten."
End Select
  
End Sub

[ Voor 7% gewijzigd door BdR op 27-05-2003 16:53 ]