>>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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only