Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Open windows menu
Message
 
À
11/08/1997 13:28:15
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00044025
Message ID:
00044041
Vues:
32
>Is there a convenient (or automatic) way to list all open windows in a menu pad, allowing the user to choose and activate a window from the menu? This is a common feature in apps, and one would think that it would easily be provided for (like in VB). Thanks.
>
>Erik

something like this? (i think from taz trader app)
in init of form,

LOCAL lnBar

IF TYPE("oApp") == "O"
*-- Find the next available bar number
IF CNTBAR("Windows") = 0 OR ;
GETBAR("Windows", CNTBAR("Windows")) < 0 && At a Fox system BAR
lnBar = CNTBAR("Windows") + 1
ELSE
lnBar = GETBAR("Windows", CNTBAR("Windows")) + 1
ENDIF

DEFINE BAR lnBar OF Windows PROMPT thisform.caption AFTER _MLAST
lcFormName = thisform.Name
ON SELECTION BAR lnBar OF Windows ACTIVATE Window &lcFormName
ENDIF
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform