CODE VB
mikdebabi
Messages postés
4
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
SVP J'AI UN Soucis avec mon code vb en faite je veux afficher un label " erreur " quand
l'utilisteur entre un mot dans un textbox plutôt que d'y entrer une valeur entier...
mon code
SVP J'AI UN Soucis avec mon code vb en faite je veux afficher un label " erreur " quand
l'utilisteur entre un mot dans un textbox plutôt que d'y entrer une valeur entier...
mon code
Dim x As Single = 0
Dim y As Integer = 0
x = Me.PriUnitair.Text
y = Me.Qté.Text
if me.priunitaire.text not is numeric then
me. label1.texte veuillez entrer un nombre
end if
3 réponses
-
label1.text = "le text"
ou mieu une msgbox
msgbox "erreur"
-
Bonjour,
En VB je ne sais pas, mais n'existe t'il pas, comme en VBA, une méthode keypress pour les TextBox?
Si oui, regarde ce code et inspire t'en :
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Evénement : Dans le TextBox3, lors de l'appui sur une touche du clavier 'Empêche la saisie d'autre chose que des chiffres If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub
-
Bonjour,
J'aurais plutôt écrit :if not me.priunitaire.text is numeric then
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
