Comment vider les champs vides ?

Fermé
Daniel_ROBERT Messages postés 1 Date d'inscription vendredi 7 septembre 2012 Statut Membre Dernière intervention 7 septembre 2012 - 7 sept. 2012 à 01:48
Bonjour,

Je donne une réponse pour ceux ou pour celles qui veulent savoir comment vider les champs vides et éviter de rentrer n'importe quels caractères alpha sauf numérique dans VB6 sur TextBox, par exemple.

Voici le code :

Private Sub Command1_Click()

If Not (IsNumeric(Text1.Text)) Then
MsgBox ("Veuillez rentrer une valeur numérique non nulle de la Résistance, Merci !"), , "ERREUR RESISTANCE !!!"
Exit Sub
End If

If Not (IsNumeric(Text2.Text)) Then
MsgBox ("Veuillez rentrer une valeur numérique non nulle de l'Intensité, Merci !"), , "ERREUR INTENSITE !!!"
Exit Sub
End If

Variable_1 = Text1.Text 'R
Variable_2 = Text2.Text 'I

Label4.Caption = Variable_1 * Variable_2 'U = R x I

Text1.Text = "" 'Vide le champ Text1
Text2.Text = "" 'Vide le champ Text2

End Sub

Dans le Module1 Standard :

Public Variable_1 As Double 'R
Public Variable_2 As Double 'I


A voir également: