Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Formatting an editbox
Message
 
À
07/02/2001 11:12:14
Elyse Pomerantz
Dynamic Data Concepts, Inc.
Brooklyn, New York, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00473428
Message ID:
00473477
Vues:
19
>Is there an easy way to force the value of an editbox to be uppercase? I just realized that the "!" format option only works for textboxes.
>
>Thanks,
>Elyse

I use the key press event of my edit box class with the code:
LPARAMETERS nKeyCode, nShiftAltCtrl

* Because there is a bug with a format of ! in an edit box
* we will check if the user wishes upper case
* and run the following fix
IF '!' $ THIS.FORMAT
  IF nKeyCode >= 97 AND nKeyCode  NODEFAULT
    KEYBOARD UPPER(CHR(nKeyCode))
  ENDIF
ENDIF
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform