textbox numériqueRésolu

Question

Bonjour je suis d&#233;butant en fox et j'aurais aim&#233; connaitre la technique
pour rendre une textbox uniquement num&#233;rique et si possible pour une
autre en format date (masque possible?).

Par avance merci

Mike Gagnon · Accepted Answer

Question 1 (num&#233;rique).


Dans le inputMask = 999999


Question 2 (Date)


Dans le format met un D

Mike Gagnon

calenge · Answer

je poursuis avec une question semblable: comment obliger la saisie d'une zone qui commencerait par ABCD ?

Si on met ABCD!!!!!   dans inputmask, le A est interpr&#233;t&#233;
comme "n'importe quel caract&#232;re alpha", puis BCD sont interpr&#233;t&#233;s
comme... BCD



Merci de vos r&#233;ponses



Gilles Calenge

Mike Gagnon · Answer

Dans l'init du textbox met:

this.Value = 'ABCD'


this.SelStart =4

Mike Gagnon

calenge · Answer

certes, mais &#231;a n'emp&#234;che pas l'utilisateur d'effacer mon ABCD et de taper autre chose...



GC

Mike Gagnon · Answer

Alors met la valeur &#224; maintenir dans un autre textbox readonly, et enregistre les deux valeurs en sauvegardant.

Mike Gagnon

calenge · Answer

c'est ce que je vais faire. C'est pas tr&#232;s joli, mais tant pis.

Merci pour ton aide



GC

Mike Gagnon · Answer

Ou bien met ceci dans le Keypress event du textbox (qui va empecher l'utilsateur de reculer)


IF this.SelStart < 5


this.SelStart=5


ENDIF

Ou bien change d'utlisateur ;-)

Mike Gagnon

michelatoutfox · Answer

Calenge,

ta question recouvre un probl&#232;me de conception de ta saisie: si tous les utilisateurs doivent saisir dans ce textbox une chaine de caract&#232;re commen&#231;ant toujours par "ABCD", alors cette sous-chaine "ABCD" ne doit pas &#234;tre consid&#233;r&#233;e comme une varaible, donc ne doit pas figurer dans la zone de saisie, ni &#234;tre stock&#233;e dans les donn&#233;es...
Le "pas tr&#232;s joli" est en fait le plus coh&#233;rent, et le plus &#233;conomique en mati&#232;re de data

jee0404 · Answer

excuse moi , 

     a propos de texbox numéric , j'ai un problème de saisie avec les textbox numérique. quand par exemple ne mets le inputmask a  = "99,999.99" et que l'utilisateur rendre 23 dans un textbox qui est initialisé a 0 . et le textbox rentre dans la variable CODE2  la valeur  230 au lieu de marqué 23 comment je peut faire pour évité ce problème ?
voila un exemple de code de texbox 

DEFINE CLASS 

CLSTXTBOX AS TEXTBOXTOP 

= (35*CSTM)

LEFT = (216*CSTM)

WIDTH = (55*CSTM)

HEIGHT = (18*CSTM)

VALUE = CODE2

InputMask = '99,999.99'

PROCEDURE KEYPRESSLPARAMETERS 

NKEYCODE, NSHIFTALTCTRL
IF NKEYCODE 13 && .or. NKEYCODE 3 .OR. NKEYCODE = 18

CLEAR events

STORE this

.VALUE TO CODE2

ENDIF if 

NKEYCODE = 27

CLEAR EVENTSENDIF

IF 
NKEYCODE 3 .OR. NKEYCODE 18

CLEAR EVENTSSTORE THIS

.Value TO CODE2

ENDIFENDPROC

PROCEDURE LostFocus

STORE this

.VALUE TO CODE2

MESSAGEBOX("PERDU LE FOCUS")

MESSAGEBOX(CODE2)

ENDPROC ENDDEFINE

j'ai essayer de controler avec le lostfocus , mais cela marche juste avec le ENTER et pas avec les autre commandes !

                                                                                 Merci d'avance

tmcuh · Answer

Je doute que le caractère "," et le "." font bon ménage...
De plus tu te complique la vie. Tu peux récupérer la valeur de ton textbox lors de l'évènement "valid", qui va valider ou invalider la valeur contenu dans le textbox. Et ainsi ne pas passer par des autres évènements qui récupère et reécrase derrière... qui n'est jamais très sain dans le code.
DEFINE CLASS CLSTXTBOX AS TEXTBOX
....
PROCEDURE VALID

      STORE this.VALUE TO CODE2
ENDPROC 

Si tu veux pouvoir entrer des nombres à virgules, met plutôt un masque comme "999 999.99"

Amicalement TMCUH

jee0404 · Answer

merci pour ta réponse, j'apprécie, mais ce que je voulais savoir c,est qu'il apparaît au départ dans le textbox le chiffre "0.00" et quand je met le nombre 25 ,  il fait "25 0.00" et quand je fait pgdn ou PGUP , garde le 0  ,donc ca fait 250 , mais quand je pése sur enter, il écrase le 0 et ca fait 25. Je voudrais savoir comment je pourrais caller la procédure pour qu'Il fasse tout le temps comme le ENTER ? 
PS pour sélectionner le contenu j'y ais pensé mais mes boss ne veut pas de même

tmcuh · Answer

Il y a un problème de sélection. En fait ton champs à une position imaginons 10 caractères, ton masque lui en possède 6 (par exemple), ce qu'il fait qu'il reste 4 caractères vide. Lorsque tu va arriver dans ce controle, il va commencer depuis le début ce qui pourrait se représenter par "       0.00", lorsque tu va entrer une valeur tu va te retrouver au début du controle --> "25    0.00", tu as donc le chiffre qui passe à 250. 
Je te conseil de passer par un selectonentry = .T. sur ton controle; ainsi dès qu'on arrive dedans, il va selectionner pour écraser la valeur. Tu aura donc toujours la valeur entrer et non plus la valeur de départ qui t'ennuie tant.

C'est une façon élégante je trouve. Maintenant si tu ne peux pas passer par un selectonentry, dans ce cas tu dois tester en entrant dans ta textbox (event gotfocus) si la valeur dedans est vide (if(empty(val(this.value)) alors il va mettre la valeur à blanc ; this.value = "" .... ton zéro disparait.
Tu devra procédé bien sur à une opération inverse si tu sors de la cellule sans l'avoir remplie (event lostfocus ... avec this.value = 0.0)
Le resultat est moins beau, à moins de le travailler un peu.

Amicalement TMCUH

jee0404 · Answer

merci pour l'attention , c'est une bonne idée de cleaner le contenue quand il prend son focus , mais si j'utilise  this.value = "" , ca rend le textbox comme une string et non comme un numéric . 

La raison pourquoi il ne veut pas utiliser le selectonentry c'est parce qu'il le perd quand on click dedans et ca peut fausser le résultat . j'ai essaier de le refaire selectionner avec l'évenement click , mais sans résultat apparant.

tu connaitrait tu un moyen de voir s'il le zéros des entiers au départ n'a pas été touché ? et de pouvoir l'otter apres la saisie ?

tmcuh · Answer

dans l'event Click()

this



.
SelStart 
= 1

this



.
SelLength 
= 
LEN
(
STR
(
this
.
Value
))



Amicalement TMCUH

jee0404 · Answer

merci , ca va surement plaire a mes patrons , je te remercie beaucoup

Textbox numérique

15 réponses

Votre réponse

Discussions similaires