A voir également:
- Zone de text vb6
- Alternative zone telechargement - Accueil - Outils
- Vb6 - Télécharger - Divers Utilitaires
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Sms to text - Télécharger - Sauvegarde
- Zone alarm - Télécharger - Pare-feu
5 réponses
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
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