MENU FIREFOX

Commentaire de BozzoDodo le 21/03/2005 22:29:34

j'ai pas tout regardé mais bravo c'est très bien fait!

Commentaire de Flocreate le 20/04/2010 07:41:37

Bonjour,
Vraiment tres bon. (9/10)

Petits bugs :
- la propriété Alligne n'est pas sauvegardée par le composant. Elle se remet à AlignLeft par défaut. (normal ou pas ?)
- impossible d'utiliser plusieur barres de menu (le subclassing ne semble pas savoir rediriger l'évènement. Ajout d'un index unique pourrait-il corriger le problème.

Améliorations envisageables (je travail actuellement dessus)
- Remplacer les cadres rectengulaires par des rectangles arrondis (facil a faire ^^)
- Ajouter une image de fond au menu (+ transparence des boutons dessus)
- Ajouter un mask d'ombre pour les boutons (vraiment accessoir)

- Pouvoir gérer et visualiser les boutons dans l'environnement de debug (sans l'annimation bien sur)

- gérer le mode horizontal
- pouvoir ajouter des séparateur & des espaces entre 2 boutons

encore bravo pour cette source vraiment jolie & fonctionnelle.

Commentaire de Flocreate le 20/04/2010 10:28:00

Arf, je viens de comprendre toute cette bidouille archi moche ;(
(Et g aussi trouvé pour le LSet)

En fait on utilise une variable globale pour se passer les infos entre modules

Pour ma part, je préfère (surtout pour un Type ne possédant que 4 attributs) passer par une classe.

on a donc
Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

la Classe
cRECT
    Public Left As Long
    Public Top As Long
    Public Right As Long
    Public Bottom As Long

et les deux fonctions dans un module
Public Function R_to_cR(ByRef R As RECT, ByRef cR As cRECT)
    R.Bottom = cR.Bottom
    R.Left = cR.Left
    R.Right = cR.Right
    R.Top = cR.Top
End Function
Public Function cR_to_R(ByRef cR As cRECT, ByRef R As RECT)
    cR.Bottom = R.Bottom
    cR.Left = R.Left
    cR.Right = R.Right
    cR.Top = R.Top
End Function

ainsi, on peut stoquer les données et se les passer entre classes

et lorsqu'on doit travailler avec les API on fait
Dim tmpR as RECT
Call cR_to_R(cR, tmpR)
Call fncAPI(blabla avec tmpR)
Call R_to_cR(tmpR, cR)


perso je trouve cela vraiment plus propre
si vous connaissez une autre méthode je suis a l'écoute

PS: j'ai corrigé le code et maintenant je peu utiliser pls controls