Zone de text vb6
Fermé
adelani
-
18 mai 2009 à 17:19
thev Messages postés 1853 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 27 avril 2024 - 19 mai 2009 à 23:49
thev Messages postés 1853 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 27 avril 2024 - 19 mai 2009 à 23:49
A voir également:
- Zone de text vb6
- Zone telechargement - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Ai text classifier - Guide
- Canva text to image - Guide
5 réponses
thev
Messages postés
1853
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
27 avril 2024
681
18 mai 2009 à 22:28
18 mai 2009 à 22:28
bd= Replace(bd, ",", ".")
bd = Val(bd)
si bd="&3", en final tu auras bd =3 (le & doit être interprété comme le caractère de concaténation)
bd = Val(bd)
si bd="&3", en final tu auras bd =3 (le & doit être interprété comme le caractère de concaténation)
Merci thev
le faite de remplacer la virgule avec le point ca résolu le probleme , mais j'ai trouver d'autre probleme:
bon voici ce que je veux faire:
j'ai des zones de text sur une interface vb6, je saisie mes données mais j'ai des condition:
comme par exemple, "Hmin" doit etre compris entre 0,8 et 40m, bien sur la valuer doit etre numérique (que des nombre) donc je dois mettre des condition sur "Hmin" :
Private Sub Hmin_Validate(Cancel As Boolean)
If Not IsNumeric(Hmin) Then
MSG = MsgBox("veuillez saisir une valeur numérique", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) * 1000 < 799 Then
MSG = MsgBox("Impossible! profondeur minimal est de 0,8m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) > 41 Then
MSG = MsgBox("Impossible! profondeur max 40m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
End If
End If
End If
End Sub
donc si je tape 0,9 la condition de "Hmin* 1000<799" ne passe pas il considere 0,9 comme 0, j'ai essayer de remplacer "," par "." mais je tombe sur la premier message d'erreur Hmin n'est pas une valeur numérique.
que dois je faire, merci
le faite de remplacer la virgule avec le point ca résolu le probleme , mais j'ai trouver d'autre probleme:
bon voici ce que je veux faire:
j'ai des zones de text sur une interface vb6, je saisie mes données mais j'ai des condition:
comme par exemple, "Hmin" doit etre compris entre 0,8 et 40m, bien sur la valuer doit etre numérique (que des nombre) donc je dois mettre des condition sur "Hmin" :
Private Sub Hmin_Validate(Cancel As Boolean)
If Not IsNumeric(Hmin) Then
MSG = MsgBox("veuillez saisir une valeur numérique", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) * 1000 < 799 Then
MSG = MsgBox("Impossible! profondeur minimal est de 0,8m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
Else
If Val(Hmin.Text) > 41 Then
MSG = MsgBox("Impossible! profondeur max 40m ", vbOKOnly + vbExclamation, "Attention")
Hmin = ""
End If
End If
End If
End Sub
donc si je tape 0,9 la condition de "Hmin* 1000<799" ne passe pas il considere 0,9 comme 0, j'ai essayer de remplacer "," par "." mais je tombe sur la premier message d'erreur Hmin n'est pas une valeur numérique.
que dois je faire, merci
thev
Messages postés
1853
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
27 avril 2024
681
19 mai 2009 à 16:55
19 mai 2009 à 16:55
If CDbl(Hmin.Text) * 1000 < 799 Then
Merci thev, ca marche bien mnt
reste seulement le point d'interdire à l'utilisateur de tapper un chiffre avec &
je cherche à faire une recherche sur la chaine de caractere et si la chaine contient "&" je demande à l'utilisateur de corriger.
est ce qu'il ya une fonction qui peu faire l'affaire.
Merci
reste seulement le point d'interdire à l'utilisateur de tapper un chiffre avec &
je cherche à faire une recherche sur la chaine de caractere et si la chaine contient "&" je demande à l'utilisateur de corriger.
est ce qu'il ya une fonction qui peu faire l'affaire.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
thev
Messages postés
1853
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
27 avril 2024
681
19 mai 2009 à 23:49
19 mai 2009 à 23:49
If Hmin.Text like "*&*" Then