textbox numériqueRésolu

Question

bonjour,

 J,ai un problème avec un textbox numérique. C'est pour la rentré de chiffre dans un textbox. Le problème c'est que je met l'inputmask a '99,999.99' et quand je le fait partir ,il m'affiche '0.00' dans le textbox parce que ma variable qui est dans le textbox est initialisé a 0. Quand j'entre 25 dans le textbox exemple " 25 0.00" et je fait enter , le contenu de la virable apres est de "25" , c'est qui est parfais, mais quand j'utilise une autre touche pour sortie et l'entregistrer comme pgdw ou pgup , la quand j'entre 25 ex : "25 0.00" la il me sort 250 ! ,comment faire pour que le textbox réagisse de la même façon que quand on pése sur ENTER, j'ai essayer de le sélectionner au complet ,mais je peut pas faire ca .  Pouvez-vous m,aider ? 

PS je vous envoye le code de mon textbox 
DEFINE CLASS 

CLSTXTBOX AS TEXTBOXTOP 

= (35*CSTM)

LEFT = (216*CSTM)

WIDTH = (55*CSTM)

HEIGHT = (18*CSTM)

VALUE = 0

ControlSource = CODE2

RightToLeft = .F.

InputMask = '99,99.99' 

PROCEDURE KEYPRESSLPARAMETERS 

NKEYCODE, NSHIFTALTCTRL*!* NODEFAULT
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

ENDIF

ENDPROC

PROCEDURE LostFocus

STORE this

.VALUE TO CODE2

MESSAGEBOX("PERDU LE FOCUS")

MESSAGEBOX(CODE2)

ENDPROC ENDDEFINE

                                                                                                                 Merci d'avance

Mike Gagnon · Accepted Answer

Voici un classe que j'utilise, roule ce qui suit dans un prg o = CREATEOBJECT("form") o.addobject("txtnumber2","txtnumber2") o.txtnumber2.visible = .t. o.show(1) DEFINE CLASS txtnumber2 AS textbox Alignment = 3 Value = 0 InputMask = "9,999,999.99" SelectOnEntry = .T. Name = "txtnumber2" csofar = .F. ndecimal = .F. PROCEDURE setvalue THIS.Value = VAL(THIS.cSoFar) THIS.Refresh() ENDPROC PROCEDURE inputmask_assign LPARAMETERS vNewVal wait window "m.vNewVal" +m.vNewVal wait window "this.inputmask" + this.inputmask THIS.InputMask = m.vNewVal THIS.SetValue() ENDPROC PROCEDURE setdecimal ENDPROC PROCEDURE LostFocus rele llsd,lld set decimals to ENDPROC PROCEDURE KeyPress Lparameters nKeyCode, nShiftAltCtrl Do case Case (nKeyCode=46 or (nKeyCode>=48 and nKeyCode<=57)) and len(this.cSoFar)< llsd + 1 Nodefault This.cSoFar=this.cSoFar+chr(nKeyCode) This.setvalue If len(this.csofar)=llsd ?? chr(7) Endi Case nKeyCode=46 and len(this.cSoFar)= llsd Nodefault This.cSoFar=this.cSoFar+chr(nKeyCode) This.setvalue Case nKeyCode>=48 and nKeyCode<=57 and len(this.cSoFar)llsd Nodefault This.cSoFar=this.cSoFar+chr(nKeyCode) This.setvalue If len(this.cSoFar)=lld ?? chr(7) Endi Case nKeyCode=127 and len(this.cSoFar)#1 Nodefault This.cSoFar=substr(this.cSoFar,1,(len(this.cSoFar)-1)) This.setvalue Case nKeyCode=7 Nodefault This.cSoFar="0" This.setvalue Case len(this.cSoFar)=lld nodefault ?? chr(7) Case nKeyCode = 43 Nodefault If LEFT(THIS.cSoFar,1) = "-" This.cSoFar = SUBSTR(THIS.cSoFar,2) This.SetValue() Endif Case nKeyCode = 45 * - key Nodefault If LEFT(THIS.cSoFar,1) <> "-" This.cSoFar = "-" + THIS.cSoFar This.SetValue() Endif Case nKeyCode=9 or nKeyCode=15 or nKeyCode=13 or nKeyCode=24 or nKeyCode=5 Otherwise Nodefault Endc ENDPROC PROCEDURE GotFocus DoDefault() public llsd,lld This.csofar="0" cnt=1 lcommas=0 do while cnt

jee0404 · Answer

Merci c'est une bonne idee , une bonne alternative

Textbox numérique

2 réponses

Votre réponse

Discussions similaires