Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Tiling forms on a screen
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00363093
Message ID:
00363454
Vues:
18
This sample will have to be tweaked to compensate for border widths, but this paints the general idea.

Dave
*!* Begin Code Sample

PUBLIC oForm1
PUBLIC oForm2
PUBLIC oForm3
PUBLIC oForm4

oForm1 = CREAT([Form])
oForm2 = CREAT([Form])
oForm3 = CREAT([Form])
oForm4 = CREAT([Form])

oForm1.SHOW
oForm2.SHOW
oForm3.SHOW
oForm4.SHOW

MESSAGEBOX([Click OK to tile Forms.])

oForm1.WIDTH = _SCREEN.WIDTH/2
oForm2.WIDTH = _SCREEN.WIDTH/2
oForm3.WIDTH = _SCREEN.WIDTH/2
oForm4.WIDTH = _SCREEN.WIDTH/2
oForm1.HEIGHT = _SCREEN.HEIGHT/2
oForm2.HEIGHT = _SCREEN.HEIGHT/2
oForm3.HEIGHT = _SCREEN.HEIGHT/2
oForm4.HEIGHT = _SCREEN.HEIGHT/2
oForm2.LEFT = _SCREEN.WIDTH/2
oForm3.TOP = _SCREEN.HEIGHT/2
oForm4.LEFT = _SCREEN.WIDTH/2
oForm4.TOP = _SCREEN.HEIGHT/2

*!* End Code Sample
>How can I find out about how to tile all the visible forms on a screen in a VFP6 application? Is there a call to a Windows API that causes the same behavior as the traditional menu choce (Windows/Tile)? I would ideally like to have the forms tiled either vertically or horizonatally.
>
>Thanks.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform