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

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été comme "n'importe quel caractère alpha", puis BCD sont interprétés comme... BCD

Merci de vos réponses

Gilles Calenge

Dans l'init du textbox met:

this.Value = 'ABCD'

this.SelStart =4

Mike Gagnon

certes, mais ça n'empêche pas l'utilisateur d'effacer mon ABCD et de taper autre chose...

GC

Alors met la valeur à maintenir dans un autre textbox readonly, et enregistre les deux valeurs en sauvegardant.


Mike Gagnon

c'est ce que je vais faire. C'est pas très joli, mais tant pis.
Merci pour ton aide

GC

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

Calenge,

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

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 TEXTBOX

TOP

= (35*CSTM)

LEFT = (216*CSTM)

WIDTH = (55*CSTM)

HEIGHT = (18*CSTM)

VALUE = CODE2

InputMask = '99,999.99'

PROCEDURE KEYPRESS

LPARAMETERS

NKEYCODE, NSHIFTALTCTRL

IF NKEYCODE = 13 && .or. NKEYCODE = 3 .OR. NKEYCODE = 18

CLEAR events

STORE this

.VALUE TO CODE2

ENDIF

if

NKEYCODE = 27

CLEAR EVENTS

ENDIF

IF

NKEYCODE = 3 .OR. NKEYCODE = 18

CLEAR EVENTS

STORE THIS

.Value TO CODE2

ENDIF

ENDPROC

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