bonjour, peut on et comment ajouter dans une barre de menu d'autres choix
ex: fichier
-> Ouvrir
-> Quitter
comment inserrez entre les 2 list1, list2 ect...
j'ai oublier de priciser dynamiquement au lancement du prg suivant un
listbox
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
Picalausa François
"joel" a écrit dans le message de news: 43e1d15e$0$18336$
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui ci prend souvent la forme d'un élément désactivé ayant pour Caption quelquechose comme "(Aucun)" ayant un index 0. Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index 0: Private Sub Form_Load() AppendMenuItem "a", "ACTION_A" AppendMenuItem "b", "ACTION_B" AppendMenuItem "c", "ACTION_C" AppendMenuItem "d", "ACTION_D" AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C" RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String) Dim NewIndex As Long NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base mnuDynList(0).Visible = False End Sub
Private Sub RemoveMenuItem(Identifier As String) Dim i As Long
For i = 1 To mnuDynList.UBound If mnuDynList(i).Tag = Identifier Then Exit For End If Next i
'Supprime l'élément RemoveMenuItem2 i End Sub
Private Sub RemoveMenuItem2(Index As Long) Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then 'L'élément de base redevient visible si 'on supprime le dernier élément dynamique mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique Unload mnuDynList(Index) End If End Sub
Private Sub mnuDynList_Click(Index As Integer) MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné" End Sub
<note générale> pour compléter son post, il est inutile de créer un nouveau thread. S'autorépondre est une solution nettement plus valable, AMHA</note générale>
-- Picalausa François
"joel" <joel.decotigny@wanadoo.fr> a écrit dans le message de news:
43e1d15e$0$18336$8fcfb975@news.wanadoo.fr...
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix
j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui
ci prend souvent la forme d'un élément désactivé ayant pour Caption
quelquechose comme "(Aucun)" ayant un index 0.
Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index 0:
Private Sub Form_Load()
AppendMenuItem "a", "ACTION_A"
AppendMenuItem "b", "ACTION_B"
AppendMenuItem "c", "ACTION_C"
AppendMenuItem "d", "ACTION_D"
AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C"
RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String)
Dim NewIndex As Long
NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base
mnuDynList(0).Visible = False
End Sub
Private Sub RemoveMenuItem(Identifier As String)
Dim i As Long
For i = 1 To mnuDynList.UBound
If mnuDynList(i).Tag = Identifier Then
Exit For
End If
Next i
'Supprime l'élément
RemoveMenuItem2 i
End Sub
Private Sub RemoveMenuItem2(Index As Long)
Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then
'L'élément de base redevient visible si
'on supprime le dernier élément dynamique
mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique
Unload mnuDynList(Index)
End If
End Sub
Private Sub mnuDynList_Click(Index As Integer)
MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné"
End Sub
<note générale> pour compléter son post, il est inutile de créer un nouveau
thread. S'autorépondre est une solution nettement plus valable, AMHA</note
générale>
"joel" a écrit dans le message de news: 43e1d15e$0$18336$
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui ci prend souvent la forme d'un élément désactivé ayant pour Caption quelquechose comme "(Aucun)" ayant un index 0. Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index 0: Private Sub Form_Load() AppendMenuItem "a", "ACTION_A" AppendMenuItem "b", "ACTION_B" AppendMenuItem "c", "ACTION_C" AppendMenuItem "d", "ACTION_D" AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C" RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String) Dim NewIndex As Long NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base mnuDynList(0).Visible = False End Sub
Private Sub RemoveMenuItem(Identifier As String) Dim i As Long
For i = 1 To mnuDynList.UBound If mnuDynList(i).Tag = Identifier Then Exit For End If Next i
'Supprime l'élément RemoveMenuItem2 i End Sub
Private Sub RemoveMenuItem2(Index As Long) Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then 'L'élément de base redevient visible si 'on supprime le dernier élément dynamique mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique Unload mnuDynList(Index) End If End Sub
Private Sub mnuDynList_Click(Index As Integer) MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné" End Sub
<note générale> pour compléter son post, il est inutile de créer un nouveau thread. S'autorépondre est une solution nettement plus valable, AMHA</note générale>
-- Picalausa François
joel.decotigny
merci pour ta reponse, sa fonctionne supper...
"Picalausa François" a écrit dans le message de news: eZOcYd$
"joel" a écrit dans le message de news: 43e1d15e$0$18336$
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui ci prend souvent la forme d'un élément désactivé ayant pour Caption quelquechose comme "(Aucun)" ayant un index 0. Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index 0: Private Sub Form_Load() AppendMenuItem "a", "ACTION_A" AppendMenuItem "b", "ACTION_B" AppendMenuItem "c", "ACTION_C" AppendMenuItem "d", "ACTION_D" AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C" RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String) Dim NewIndex As Long NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base mnuDynList(0).Visible = False End Sub
Private Sub RemoveMenuItem(Identifier As String) Dim i As Long
For i = 1 To mnuDynList.UBound If mnuDynList(i).Tag = Identifier Then Exit For End If Next i
'Supprime l'élément RemoveMenuItem2 i End Sub
Private Sub RemoveMenuItem2(Index As Long) Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then 'L'élément de base redevient visible si 'on supprime le dernier élément dynamique mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique Unload mnuDynList(Index) End If End Sub
Private Sub mnuDynList_Click(Index As Integer) MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné" End Sub
<note générale> pour compléter son post, il est inutile de créer un nouveau thread. S'autorépondre est une solution nettement plus valable, AMHA</note générale>
-- Picalausa François
merci pour ta reponse, sa fonctionne supper...
"Picalausa François" <fpicalausa@chez.com> a écrit dans le message de news:
eZOcYd$JGHA.3100@tk2msftngp13.phx.gbl...
"joel" <joel.decotigny@wanadoo.fr> a écrit dans le message de news:
43e1d15e$0$18336$8fcfb975@news.wanadoo.fr...
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix
j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui
ci prend souvent la forme d'un élément désactivé ayant pour Caption
quelquechose comme "(Aucun)" ayant un index 0.
Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index
0:
Private Sub Form_Load()
AppendMenuItem "a", "ACTION_A"
AppendMenuItem "b", "ACTION_B"
AppendMenuItem "c", "ACTION_C"
AppendMenuItem "d", "ACTION_D"
AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C"
RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String)
Dim NewIndex As Long
NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base
mnuDynList(0).Visible = False
End Sub
Private Sub RemoveMenuItem(Identifier As String)
Dim i As Long
For i = 1 To mnuDynList.UBound
If mnuDynList(i).Tag = Identifier Then
Exit For
End If
Next i
'Supprime l'élément
RemoveMenuItem2 i
End Sub
Private Sub RemoveMenuItem2(Index As Long)
Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then
'L'élément de base redevient visible si
'on supprime le dernier élément dynamique
mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique
Unload mnuDynList(Index)
End If
End Sub
Private Sub mnuDynList_Click(Index As Integer)
MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné"
End Sub
<note générale> pour compléter son post, il est inutile de créer un
nouveau thread. S'autorépondre est une solution nettement plus valable,
AMHA</note générale>
"Picalausa François" a écrit dans le message de news: eZOcYd$
"joel" a écrit dans le message de news: 43e1d15e$0$18336$
bonjour, peut on et comment ajouter dans une barre de menu d'autres choix j'ai oublier de priciser dynamiquement
Hello,
Il te faudra créer un élément de base pour gérer ta liste dynamique. Celui ci prend souvent la forme d'un élément désactivé ayant pour Caption quelquechose comme "(Aucun)" ayant un index 0. Ensuite, tu peux charger et décharger les élements grâce à Load/Unload.
Pour cet exemple, nous aurons un élément de base nommé mnuDynList d'index 0: Private Sub Form_Load() AppendMenuItem "a", "ACTION_A" AppendMenuItem "b", "ACTION_B" AppendMenuItem "c", "ACTION_C" AppendMenuItem "d", "ACTION_D" AppendMenuItem "e", "ACTION_E"
RemoveMenuItem "ACTION_C" RemoveMenuItem2 1
'restent b d e
End Sub
Private Sub AppendMenuItem(Caption As String, Identifier As String) Dim NewIndex As Long NewIndex = mnuDynList.UBound + 1
'Masque l'élément de base mnuDynList(0).Visible = False End Sub
Private Sub RemoveMenuItem(Identifier As String) Dim i As Long
For i = 1 To mnuDynList.UBound If mnuDynList(i).Tag = Identifier Then Exit For End If Next i
'Supprime l'élément RemoveMenuItem2 i End Sub
Private Sub RemoveMenuItem2(Index As Long) Dim i As Long
If Index > 0 And Index <= mnuDynList.UBound Then 'L'élément de base redevient visible si 'on supprime le dernier élément dynamique mnuDynList(0).Visible = mnuDynList.Count = 2
'Supprime l'élément dynamique Unload mnuDynList(Index) End If End Sub
Private Sub mnuDynList_Click(Index As Integer) MsgBox "L'élément " & mnuDynList(Index).Tag & " a été sélectionné" End Sub
<note générale> pour compléter son post, il est inutile de créer un nouveau thread. S'autorépondre est une solution nettement plus valable, AMHA</note générale>
