Question sur creation de menu dynamique

Question

Salut

jai trouver ce code pour creer des menus dynamique dans mon appli
cela marche bien seulement jai un soucis, comment supprimer avec un bouton une entr&#233;e du menu ?

Private Sub FichiersRecents()
'-Ajouter dans la base des registres le nom et chemin des 4 derniers fichiers enregistr&#233;s
 On Error Resume Next
'-D&#233;clarations
  Dim NomFich As String
  Dim X As Integer
  Dim T As Boolean
  Dim Nbres As Integer
  
   
'-Init:
  NomFich = Text22.Text
  
  Nbres = menu.Count '-Nbres d'entr&#233;es de la collection
  
  '-Ajouter la 1&#232;re entr&#233;e
    If Nbres = 0 Then
    
          menu.Add NomFich
      
    Else
    
     
         '-Obtenir l'&#233;tendu de la collection et v&#233;rifier si le chemin et Nom
         'du fichier n'existe d&#233;ja pas dans la liste
           For X = 1 To Nbres
           
               If LCase(NomFich) = LCase(menu.Item(X)) Then
                   T = True
                   Exit For
               End If
               
           Next
    
       
              If T = False Then
              
              If Nbres = 4 Then
              
                  '-Supprimer la derniere entr&#233;e si les entr&#233;es sont au nombres de 4
                    menu.Remove (4)
                  
              End If
              
                  '-Ajouter la nouvelle entr&#233;e en 1er
                    menu.Add NomFich, before:=1
             End If
     End If
  
  
  
Save:


'-R&#233;initialisation du menu
'-Declaration
  Dim Element As Variant
'-Init:
  X = 0
'-Boucle de lecture des elements de la collection (Si la collection est vide il n'y &#224; pas de lecture
'des &#233;lements)
  For Each Element In menu
           '-Incr&#233;mentation compteur
             X = X + 1
             
                '-Rafraichir le menu
                '-Rendre visible la barre s&#233;paratrice
                  Mnu(0).Visible = True
                '-Afficher le chemin dans le menu attention l'index des menu
                'commence &#224; 0 et fini &#224; 4 soit (0 + X)
                  Mnu(X).Caption = Element
                '-Rendre visible le menu
                  Mnu(X).Visible = True
                '-*****


 
           '-Ecriture dans la base des registre
             SaveSetting App.EXEName, "MenuRecent", "Fichier" & X & "=", CStr(Element)
  Next Element
End Sub

SynePing : Logiciel de Tennis de Table 
Http://www.syneping.com

cs_DARKSIDIOUS · Answer

Tu as &#233;tudi&#233; un peu ton code : tu a tout ce qui te faut pour savoir comment supprimer un &#233;l&#233;ment du menu :



'-Supprimer la derniere entr&#233;e si les entr&#233;es sont au nombres de 4
menu.Remove (4)




DarK Sidious

[Administrateur et responsable VB/API du site  ProgOtoP]

foliop · Answer

oui jai vu ca apres mon post sorry

par contre ya un truc que je vois pas comment faire
je voudrai avoir une alerte si la personne rentre plus de 4 choses, comment faire ?

SynePing : Logiciel de Tennis de Table 
Http://www.syneping.com

Question sur creation de menu dynamique

2 réponses

Discussions similaires