>>In the keypress event of a textbox I put :
>>
>>------------------------------------------------------------------
>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>NODEFAULT
>>local lnant_start
>>
>>if nKeyCode = 45
>> lnant_start = this.SelStart
>> this.SelStart = 0
>> this.SelLength = lnant_start
>> this.SelText = transform(val(left(alltrim(str(val(this.SelText))), 4)), "@L 9999")
>> this.SelStart = 4
>>endif
>>
>>dodefault()
>>-------------------------------------------------------------------
>>
>>This.inputmask = 9999-99999999
>>This.Width = 14
>>This.MaxLength = 12
>>This.ControlSource = myfile.myfield (Numeric 12)
>>
>>The idea is to fill with 0's the beginning of the first 4 characters when the user presses '-'.
>>When I run the form the code does it's work OK but when I press < ENTER> nothing happens.
>>
>>Any ideas???
>Just change the code a little bit :>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>local lnant_start
>
>if nKeyCode = 45
>NODEFAULT
> lnant_start = this.SelStart
> this.SelStart = 0
> this.SelLength = lnant_start
> this.SelText = transform(val(left(alltrim(str(val(this.SelText))), 4)), "@L 9999")
> this.SelStart = 4
>endif
>Cetin
Worked fine. Thank you very much.
Ricardo
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement