Menu sources

Des icones dans les menus

Attention cet exemple n'est pas aussi compliqué que l'on croit
Tout est dans le mimétisme ;-)



Contrairement à d'autres méthodes disponibles pour arriver à ce résultat, on n'utilise ici aucune API

Nouveauté les captions séparateurs ( "-" ) sont gérés




Regarder bien l'animation ci-dessus avant de lire la réponse car ce menu n'en n'est pas un ;-)
...
...
...
...
...
...
Le menu qui apparait est en fait une FORM que l'on affiche par dessus au bon endroit
La FORM fonctionne ici un peu comme un OCX, il suffit de l'ajouter a un projet on ne retouche jamais son code
elle comporte des événements donc on la déclare de cette manière :

( Sources convertis en 6 couleurs avec mon programme VB to HTML)


Dim WithEvents MyMenu As IcoMenu



Private Sub Form_Load()

    

    Set MyMenu = New IcoMenu

    

    With MyMenu

        .SetItem 0, "New", Image1(0).Picture

        .SetItem 1, "Open ...", Image1(1).Picture

        .SetItem 2, "Save", Image1(2).Picture

        .SetItem 3, "Save as ..."

        .SetItem 4, "Exit", Image1(3).Picture, "exit"

    End With

    

End Sub