Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Easy way to toggle edit box size
Message
De
06/11/1998 22:17:41
Chris Crachiolo
Blackmoor Associates Incorporated
New York City, New York, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Easy way to toggle edit box size
Divers
Thread ID:
00155451
Message ID:
00155451
Vues:
59
Here's a tip that others may find useful. It might be a yawner to the vastly experienced, but hey, I'm just trying to contribute!

Ever had a really crowded form that you had to place an edit box on? Here's an easy way to allow the user to toggle the size of the edit box, without adding any extra controls. Place code similar to the following in the edit box's DblClick event.


IF THIS.Height < 60 && normal size
THIS.Height = THIS.Height+200
THIS.Top=THIS.Top-200
THIS.Width = THIS.Width+200
ELSE
THIS.Height = THIS.Height-200
THIS.Top=THIS.Top+200
THIS.Width = THIS.Width-200
ENDIF


Since my edit box is in the lower left corner of the form, I had to adjust the Top property, so that the edit box wouldn't expand beyond the bottom of the form. (Adding to the Height and Width expands the box downward and rightward, respectively.)
"Ignorance more frequently begets confidence than does knowledge."
-- Charles Darwin
"I am invincible! Invincible...OWWWWWWWW!"
-- Homer Simpson
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform