Barre de menu verticale assez complete

Soyez le premier à donner votre avis sur cette source.

Vue 10 565 fois - Téléchargée 1 594 fois

Description

Barre de boutons verticale
peut se coller automatiquement à gauche (aux autres bords aussi mais le graphisme n'est pas géré en conséquence)
chaque bouton est éditable séparément et pour chaque état (3 états : Up, Over, Down)
pour chaque bouton on peut éditer :
- Le nom
- Le texte affiché
- La hauteur en nb de pixel (-1 pour donner la valeur Default_item_Hauteur du control)
- Si Visible
- Si Enable
- Si lié au suivant (si le bouton est collé au bouton suivant ou au bord du bas)
- Le mode d'affichage entre Texte & Icone (en ligne ou en colonne)
- Togle (si le composant se comporte comme une checkBox)
- Groupe (utile si togle) tous les boutons dont le groupe porte le même nom (sauf vide) fonctionne comme des option bouton (toujours que 1 bouton eDown a la fois)

Par état :
- COuleur de fond
- Couleur de Bordure
- Couleur du texte
- Font du texte
- Addresse du fichier icone (relatif a l'instance de l'application) forcement un ".ico"
- Dimension de l'icone pour l'affichage (en Pxl ; image forcement carrée)
- La transparence

Cette source est une ré-implémentation (a ma sauce ^^) du travail de
http://www.vbfrance.com/codes/MENU-FIREFOX_30088.aspx
Ma version est plus complète et avec un propertyPage, néanmoins, je ne gère pas d'ascenseur.

Une propertyPage est implémenté afin de pouvoir éditer "aisément" (je me comprends ^^) les composants dans l'environnement VBE

Source / Exemple :


'tout est dans le zip

Conclusion :


Tout commentaire, si tant est qu'il est constructif, est le bienvenu

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Flocreate
Messages postés
307
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
27 mai 2012
3 -
bon en fait c moche comme méthode de configuration ^^
je vais faire une property page et dégager les méthodes inutiles.

en passant, existe t il en vb6 un moyen de copier un objet dans un autre par VALEUR et non par REFERENCE, je suis pas tres au point avec les pointeurs en VB6
typiquement dans un tableau quand on fait un agrandissement + décalage, quel est le résultat ?
init .......................[A B]
redim preserve T(1 to 3) ...[A B ?]
Set T(3)=T(2) ..............[A ? B] ou [A B B]
set T(2)=new obj ...........[A C B] ou [A C C]
Flocreate
Messages postés
307
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
27 mai 2012
3 -
bon, je ne sais pas si c'est tres propre mais c le moyen le plus simple que j'ai trouvé pour ne pas avoir a coder le clonage
j'utilise l'ecriture et la lecture dans un propertybag pour cloner
Flocreate
Messages postés
307
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
27 mai 2012
3 -
property page faite.
Flocreate
Messages postés
307
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
27 mai 2012
3 -
/!\ fuite mémoire, une de plus.

Call GetIconInfo(hIcone, liCone)
doit impérativement être suivi de
Call DeleteObject(liCone.hbmColor) 'empeche fuite memoire
Call DeleteObject(liCone.hbmMask) 'empeche fuite memoire

merci msdn ^^
domf40
Messages postés
6
Date d'inscription
mercredi 19 mars 2003
Statut
Membre
Dernière intervention
10 janvier 2013
-
Très bon source.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.