AIDE - Couleur label

Question

Bonjour,

Voici mon probleme:
je change dynamiquement la couleur du background d un label (label.backcolor = vbred par exemple). Ca met bien la bonne couleur dans les propri&#233;t&#233;s de mon label mais celui ci reste incolore.
Pourtant si je copie la meme valuer dans les propietes, la couleur apparait...

Je comprends rien, alors merci pour vos r&#233;ponses
Mag

cs_DARKSIDIOUS · Answer

La propri&#233;t&#233; BackStyle est &#224; Opaque ?

DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

tititu · Answer

merci. c etait effectivement le probleme.
Maintenant, j en ai un autre...(!)
Comment fait-on pour definir dynamiquement un evenement lors d un clic sur le label. En fait je veux pourvoir afficher dynamiquement une liste qd je clic sur un label...

Mag

cs_DARKSIDIOUS · Answer

Private Sub Label_Click()



    'met ton code ici



End Sub


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

tititu · Answer

oui mais le pb c est que je cree mon labale dynamiquement dans un modulede la maniere suivante : 
                Set controle(nb_controle) = CreateControl("f_qui_est_ou_kupka", acLabel)
                controle(nb_controle).Name = nb_controle
                controle(nb_controle).Top = pos_ini_top
                controle(nb_controle).Left = pos_ini_left
                controle(nb_controle).Height = 200
                controle(nb_controle).SpecialEffect = 0
(etc.)
donc il faut que j arrive a controler le clic dynamiquement car je construit mes labels au fur et a mesure sans savoir combien je vais en avoir...
Mag

cs_DARKSIDIOUS · Answer

A ce moment l&#224;, au lieu de passer par un CreateControl en latebound,
passe par une instanciation en earlybound avec un patron de label
index&#233; &#224; 0 :



    Call Load(Label1(nb_control))

    Label1(nb_controle).Top = pos_ini_top


    'etc.


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

tititu · Answer

J ai pas tout compris...tu peux detailler stp

(merci pour tes reponses si rapides, c est top!)

Mag

cs_DARKSIDIOUS · Answer

Ben avec un CreateControl, je ne connais pas de moyens facile pour
intercepter les &#233;v&#233;nements (c'est toujours possible &#224; faire, mais il
existe des m&#233;thodes plus compliqu&#233;es que d'autres).



Ce que je te conseille de faire : cr&#233;e un label "patron", c'est &#224; dire,
int&#233;grer un label dans ta feuille qui te servira de base pour les
autres labels cr&#233;e dynamiquement.



Ce label doit avoir sa propri&#233;t&#233; "Index" &#224; 0.



Ensuite, pour cr&#233;er un nouveau label, au lieu de faire un
CreateControl, il te suffit d'instancier une nouvelle instance du
patron :



Call Load(Label1(nb_controle))



Attention : il faut bien entendu un num&#233;ro diff&#233;rent d'index pour chaque contr&#244;le qui porte le m&#234;me nom !



Ensuite, tu peux y acc&#232;der comme un contr&#244;le label classique, sauf qu'il faut le num&#233;ro d'index :



Label1(1).Top = 120

Label1(1).Visible = True

'etc.



Pour intercepter les &#233;v&#233;nements, il s'agit de la m&#234;me sub que celle du patron :



Private Sub Label1_Click (byval Index As Integer)



Select Case Index



        Case 1



            'il s'agit du label index&#233; &#224; 1



        Case 2

        
            'il s'agit du label index&#233; &#224; 2

        'etc.



End Select



End Sub



Enfin, pour d&#233;charger un label : Call Unload(Label1(Index))


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

tititu · Answer

nickel merci beaucoup
je vais faire comme ca!
Mag

tititu · Answer

juste une petite chose...je ne trouve pas la propriete index du label...existe-t-elle sous access97?

Mag

AIDE - Couleur label

9 réponses

Discussions similaires