Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Programmically scroll on form.
Message
De
23/07/2001 00:22:36
 
 
À
22/07/2001 20:07:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00533630
Message ID:
00533764
Vues:
11
>>I have a form with about 10 containers but only 7 are visible. As I tab through the containers, I want to programmically scroll the form. So when the cursor is in a container that is outside of the viewable area of the form, I want the form to be refreshed with the container visible.
>>
>>Ideas?
>
>in each container.focus()
>
>local loControl, lnMove
>
>do case
>case THIS.TOP<0
>lnMove = THIS.TOP
>case THIS.TOP+THIS.HEIGHT>THISFORM.HEIGHT
>lnMove = THIS.TOP+THIS.HEIGHT - THISFORM.HEIGHT
>otherwise
>lnMove = 0
>endcase
>
>if lnMove<>0
>THISFORM.LOCKSCREEN = .T.
>for each loControl in THISFORM.CONTROLS
>loControl.TOP = loControl.TOP - lnMove
>endfor
>THISFORM.LOCKSCREEN = .F.
>endif

I guess I was looking too deep. Your suggestion makes perfect sense.

Thanx.
Fred Lauckner

You know, it works on my computer. I don't know what your problem is.

.Net aint so bad.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform