[size=6]Baune Christian[/size]Message privésite perso :
[ Lien ]-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
> Comment peut on empêcher le dépassement de capacité sur un numérique : Exemple d'un byte ou l'on affecte 300 ! Qql'un a une routine de vérification évitant de mettre :
> "if byte>256 or byte <0 then..."
Dim b As Byte
Private Sub Command1_Click()
On Error GoTo fin
b = 300
Exit Sub
fin:
If Err = 6 Then
MsgBox Error$, vbOK + vbCritical, "Erreur"
Exit Sub
Else
MsgBox "Veuillez Trouver le programme originale", vbCritical, "Erreur critique"
End If
End Sub
Voilà
|