Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Unexpected Results Display With Input Mask
Message
De
30/09/2004 14:03:48
 
 
À
30/09/2004 13:52:47
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00947608
Message ID:
00947649
Vues:
13
Yes, the value is numeric by default and I already was using SelectOnEntry = .T..

I have tried Format KR, but nothing different occurs.

>Is the value by default numeric? Set the select on entry to Y or delete the 0 when keying the value. Also set the format to R and the input mask to 9,999,999 or whatever.
>
>PUBLIC oatiform1
>oatiform1=NEWOBJECT("TestForm")
>oatiform1.Show
>RETURN
>
>
>DEFINE CLASS TestForm AS FORM
>
>
>	Height = 171
>	Width = 289
>	DoCreate = .T.
>	nvalue = 0
>	Name = "Testform"
>
>
>	ADD OBJECT text1 AS textbox WITH ;
>		ControlSource = "thisform.nvalue", ;
>		Format = "R", ;
>		Height = 23, ;
>		InputMask = "9,999,999", ;
>		Left = 108, ;
>		SelectOnEntry = .T., ;
>		Top = 48, ;
>		Width = 100, ;
>		Name = "Text1"
>
>
>	ADD OBJECT command1 AS commandbutton WITH ;
>		Top = 108, ;
>		Left = 108, ;
>		Height = 27, ;
>		Width = 84, ;
>		Caption = "Close", ;
>		Name = "Command1"
>
>
>	PROCEDURE Unload
>		CLEAR EVENTS
>		DODEFAULT()
>	ENDPROC
>
>
>	PROCEDURE command1.Click
>		thisform.release()
>	ENDPROC
>
>
>ENDDEFINE
>
>
>>When typing a new value, such as 1, into a blank text box that has an input mask like 9,999,999, an extra zero is added and the value becomes 10 instead 1. The extra zero only appears if I press TAB. When I press ENTER no extra zero appears.
>>
>>I have been searching at MS KB and I found that message number 191503 is related with my problem. The MS KB says this problem occurs only with VFP 5x. I am using VFP 8 and the problems is similar.
>>
>>Was not the problem solved? Is there a another way to workaround than MS KB indicate?
Antonio Carlos Kleinübing
Systems Analyst
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform