reneemettrie
Terugkerende gebruiker
- Lid geworden
- 1 aug 2006
- Berichten
- 1.233
Om foutonderschepping te demonsteren maakte ik de volgende sub:
Als men in de Inputbox 1000 ingeeft, krijg je natuurlijk overflow
Maar als je 200 ingeeft ook, blijkbaar omdat 200 * 200 geen byte is.
Er ontgaat me hier iets... Ik heb toch nergens gespecifieerd dat het resultaat binnen de limieten van een byte moet liggen???
Code:
Sub ErrorTrapping2()
Dim number1 As Byte
On Error GoTo MyErrorMessage
number1 = InputBox("Give a number")
MsgBox "Multiplication: " & number1 * number1
Exit Sub
MyErrorMessage:
MsgBox Err.Number & " - " & Err.Description
'How could you make this more user friendly?
End Sub
Als men in de Inputbox 1000 ingeeft, krijg je natuurlijk overflow
Maar als je 200 ingeeft ook, blijkbaar omdat 200 * 200 geen byte is.
Er ontgaat me hier iets... Ik heb toch nergens gespecifieerd dat het resultaat binnen de limieten van een byte moet liggen???