Controles

Réponse acceptée !

re salut
dans ce cas il faut que tu crée un groupe de controle.
tu renseignes la propriété Index du bouton...
ensuite tu n'auras qu'un code
sub Command_Click (index as integer)

end sub

ceci te permettra de générer également des controle de manières dynamiques et ils aurant un nouvel index...



Pat

 Don't Worry , Be Happy

---

lorsque le problème est résolu, pensez Réponse Acceptée

Réponse acceptée !

exemple de chargement dynamique d'un controle
dim newindex as integer
Newindex = 2
load        Commande(NewIndex)
commande(newindex).caption = "New Bouton"
Commande(NewIndex).Top = Position par rapport au top du controle container (en général le form)
Commande(NewIndex).Left = Position par rapport au left du controle container (en général le form)

sub Commande_Click(Index as Integer)
   if index = 2 then
      msgbox "Vous venez de cliquer sur le bouton 2"
   endif
end sub

bon dev

Pat

 Don't Worry , Be Happy

---

lorsque le problème est résolu, pensez Réponse Acceptée

Réponse acceptée !
Bonjour,
Avec Vb6 tu peut créer un tableau de controles, je m'explique ...
Tu crée un premier bouton, tu fais un copier/coller de ce bouton, la l'éditeur va te signalé que ce controle existe déjà, et il va te proposé de créer un tableau de controles, tu réponds 'oui'.

tu aura donc un tableau de bouton (  MesBoutons(index) )
qui contiendra tes 3 boutons ( MesBoutons(0), MesBoutons(1), MesBoutons(2) )

Donc ensuite tu n'as plus qu' a faire l'appel à la procédure souhaitée sur l'évènement 'Click' de ton tableau de bouton :
      
    Private Sub MesBoutons_click( index asinteger )
          call MaProcédure
    End Sub
 
voilà, la soluce est la...

@+          --TonySoft--