changer le style d'un bouton dynamiquementRésolu

Question

Bonjour,
j'ai un probleme concernant mes boutons dynamiquement crees!
Je souhaite associer une image a un bouton, j'ai fait comme suit : 

        Set bouton = Controls.Add("VB.CommandButton", tabOrdi(i, 0))
        Set bouton.Container = SSTab1
 
    With bouton
        .Visible = True
        .Width = 800
        .Top = 600
        .Left = 200
        .Height = 800
       '.Style = 1
       ' .Picture = "d:\IUP\IHM\images\boitier.bmp"

voila le problem c'est que je ne peux pas changer ni le style, et que lors de l'execution si je ne met que  .Picture = "d:\IUP\IHM\images\boitier.bmp"
il me fait une erreur : type incompatible.
je ne compren vraiment pas pourquoi!

aidez moi svp

Gobillot · Accepted Answer

non tu as le premier &#224; d&#233;clarer celui qui a l'index &#224; z&#233;ro et qui sert de r&#233;f&#233;rence pour les autres, ensuite tu utilises i comme index.

For i = 1 To nbordi - 1
     Load Command1(i)
     Y =  i * 1100 + 100 + 500
     Set Command1(i).Container = SStab1
     Command1(i).Move 200, Y, 800, 800
     Command1(i).Visible = True
     Next

Daniel

Gobillot · Answer

La propri&#233;t&#233; Style est en read Only m&#234;me pour un Bouton normal.
il ne reste plus qu'&#224; changer de m&#233;thode, Command1 est un bouton avec Style Graphical et Index = 0

    Load Command1(1)
    Command1(1).Move 200, 600, 800, 800
    Command1(1).Visible = True
    Set Command1(1).Container = SStab1
    Command1(1).Picture = LoadPicture(
"d:\IUP\IHM\images\boitier.bmp"
)

Daniel

cs_HZ · Answer

ah...
le probleme c'est que je cr&#233;e des boutons dans une boucle for : 

For i = 0 To nbordi - 1
    If (i = 0) Then
        Set bouton = Controls.Add("VB.CommandButton", tabOrdi(i, 0))
        Set bouton.Container = SSTab1
    With bouton
        .Visible = True
        .Width = 800
        .Top = 600
        .Left = 200
        .Height = 800
     '  .Style = 1
       ' .Picture = "d:\IUP\IHM\images\boitier.bmp"
    End With
    Else
        Set bouton = Controls.Add("VB.CommandButton", tabOrdi(i, 0))
        Set bouton.Container = SSTab1
        With bouton
            .Visible = True
            .Width = 800
            .Top = i * 1100 + 100 + 500
            .Left = 200
            .Height = 800
           ' .Style = 1
        End With
    End If   
Next

Donc il faudrait declarer tous les boutons avant ?
dans ce cas ce n'est pas possible pour mon projet

cs_HZ · Answer

Euh je comprend pas tout la. 
Je suis vraiment debutant ...

Commande1(i) c'est quoi exactement? une fonction a faire?
je vois pas trop comment faire 

c'est sympa de m'aider parceque la je nage vraiment j'avance pas :s

cs_HZ · Answer

Merci! ca marche enfin !

c'est dur le vb -_-

vive le java lol

Gobillot · Answer

c'est tr&#232;s bien le VB

Command1 c'est le nom du Bouton  (Name)
Command1(0) celui que as cr&#233;er avec Index =  0 et qui sert de r&#233;f&#233;rence
Command1 (i)   pour acc&#233;der au Bouton d'index  = i
Load Command(i) cr&#233;e dynamiquement un bouton avec les m&#234;mes propri&#233;t&#233;s que celui de r&#233;f&#233;rence

Daniel

cs_HZ · Answer

merci

Changer le style d'un bouton dynamiquement

7 réponses

Discussions similaires