Dans mon appli, je r=E9cup=E8re l'argument par la commande=20
Command(). Ce que je souhaiterais, c'est faire apparaitre=20
le libell=E9 de cet argument dans un =E9l=E9ment du menu que=20
j'ai cr=E9e avec le cr=E9ateur du menu. L'objectif =E9tant=20
d'afficher dans le menu une liste des derniers fichiers=20
ouverts.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ledev
Bonjour,
Il faut crée une collection de menu: Dans le créateur de menu, faire les menu par exemple comme ceci *Fichier *Nouveau *Ouvrir *- *Récent *- *Quitter
Ensuite, tu configure tous comme tu le souhaite, et a récent tu lui donne la propriété Index de 1 Puis sa se gère comme une collection:
dim Fichier as string 'Ouvre le fichier des doc récent Open app.path+"récent.txt" for input as 1
do while not eof(1) input #1, Fichier num=mnuRecent.ubound+1 load mnuRecent(num) mnuRecent(num).caption=Fichier loop
Private sub mnuRecent_Click() 'Code d'ouverture du fichier end sub
Voilà, a+ "Nicolas" a écrit dans le message de news:0c1701c34ada$4f83ceb0$ Bonjour,
Dans mon appli, je récupère l'argument par la commande Command(). Ce que je souhaiterais, c'est faire apparaitre le libellé de cet argument dans un élément du menu que j'ai crée avec le créateur du menu. L'objectif étant d'afficher dans le menu une liste des derniers fichiers ouverts.
Merci d'avance
Nicolas
Bonjour,
Il faut crée une collection de menu:
Dans le créateur de menu, faire les menu par exemple comme ceci
*Fichier
*Nouveau
*Ouvrir
*-
*Récent
*-
*Quitter
Ensuite, tu configure tous comme tu le souhaite, et a récent tu lui donne la
propriété Index de 1
Puis sa se gère comme une collection:
dim Fichier as string
'Ouvre le fichier des doc récent
Open app.path+"récent.txt" for input as 1
do while not eof(1)
input #1, Fichier
num=mnuRecent.ubound+1
load mnuRecent(num)
mnuRecent(num).caption=Fichier
loop
Private sub mnuRecent_Click()
'Code d'ouverture du fichier
end sub
Voilà, a+
"Nicolas" <nicolasheurtevin@wanadoo.fr> a écrit dans le message de
news:0c1701c34ada$4f83ceb0$a401280a@phx.gbl...
Bonjour,
Dans mon appli, je récupère l'argument par la commande
Command(). Ce que je souhaiterais, c'est faire apparaitre
le libellé de cet argument dans un élément du menu que
j'ai crée avec le créateur du menu. L'objectif étant
d'afficher dans le menu une liste des derniers fichiers
ouverts.
Il faut crée une collection de menu: Dans le créateur de menu, faire les menu par exemple comme ceci *Fichier *Nouveau *Ouvrir *- *Récent *- *Quitter
Ensuite, tu configure tous comme tu le souhaite, et a récent tu lui donne la propriété Index de 1 Puis sa se gère comme une collection:
dim Fichier as string 'Ouvre le fichier des doc récent Open app.path+"récent.txt" for input as 1
do while not eof(1) input #1, Fichier num=mnuRecent.ubound+1 load mnuRecent(num) mnuRecent(num).caption=Fichier loop
Private sub mnuRecent_Click() 'Code d'ouverture du fichier end sub
Voilà, a+ "Nicolas" a écrit dans le message de news:0c1701c34ada$4f83ceb0$ Bonjour,
Dans mon appli, je récupère l'argument par la commande Command(). Ce que je souhaiterais, c'est faire apparaitre le libellé de cet argument dans un élément du menu que j'ai crée avec le créateur du menu. L'objectif étant d'afficher dans le menu une liste des derniers fichiers ouverts.
