Caractères ou len [Résolu]

Signaler
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014
-
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014
-
Salut à tous!
J'implore votre aide...
J'aimerais bien faire ceci
J'ai un text box dans lequel on devriait inséré de chiffre de la manière suivante :
lorsque l'utilisateur introduit le premier chiffre que dans le text box nous ayons : le chiffre suivi d'un point et dont le curseur donnera la disponibilité de saisir encore en droite sur ce j'avais fais ceci : à supposé que j'ai un textbox...soit text1
if len(text1.text)=1 then
text1.text=(text1.text)&"."
end if


Mais avec ces codes ne me donne pas ce dont je parle ci haut...
Merci pour votre aide



Théom@f

6 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
227
L'évènement change est un évènement malheureux car ce serait alors ceci :
Private Sub Text1_Change()
  If Len(Text1.Text) 1 Then Text1.SelText "."
End Sub

qui ne te permettrait plus l'éffacement (par backspace) du 1er chiffre
Je te conseille l'évènement Keypress
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 8 Then Exit Sub
  If Len(Text1.Text) 1 Then Text1.SelText "."
End Sub

Le point ne s'ajoutera que si nécessaire (à la frappe du 2ème chiffre)
Et tu pourras utiliser le même évènement pour empêcher la frappe d'un second . ou d'autres choses. Mais je pense que cela, tu sauras le faire seul, hein.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
227
regarde ce que fais ceci :
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 8 Then Exit Sub
  If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
  Select Case Len(Text1.Text)
     Case 1
       Text1.SelText = "."
     Case Else
       If Chr(KeyAscii) "." Then KeyAscii 0
  End Select
End Sub




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014

En fait le textbox affiche plutot le chiffre entré suivi de point...mais après il renvoi le curseur au debut au lieu de le mettre à la fin ou soit après le point pour permettre la suite de la saisi...car dans le textbox nous devrions avoir cet illustration : n,nn

Merci à tous

Théom@f
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
227
Bonjour,
Ton code ne nous éclaire pas puisqu'il n'est pas précisé dans quel évènement il est utilisé !
Et cela peut faire toute la différence !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014

Pardon
Cela est fait dans l’évènement change
Théom@f
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014

Grand Merci à toi
UCFOUTU
encore merci cela marche super bien
koooooooool ,...

Théom@f