ControlesRésolu

Question

Bonjour,

J'ai 3 boutons sur lesquels j'exécute exactement le même code, peut on remplacer les 3 "Private Sub Command_click" par un seul comme suit :

AVANT
Private Sub Command1_click()
    ......
End Sub
Private Sub Command2_click()

    ......
End Sub
Private Sub Command3_click()
    ......
End Sub
APRES
Private Sub CommandX_click()
    ......
End Sub

Avec un exemple, ce serait sympa

D'avance merci
Cordialement

pneau · Accepted Answer

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 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

pneau · Answer

salut
non, tu ne peux pas par contre tu peux mettre ton code commun dans une procédure et appeller la procédure dans tes command_click

sub MaProc()
...
lecode de la proc
..
end sub

Private Sub Command1_click()
    Maproc
End Sub
Private Sub Command2_click()
    MaProc
End Sub
Private Sub Command3_click()
    MaProc
End Sub
@]+

Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

wiking_division · Answer

Merci à toi pneau.

Ne peut on pas utiliser la notion objet Collection? Si oui, comment?
En VB, je crois que l'on peut gérer de façon dynamique les contrôles (ajout, suppression). Si par exemple on en crée un nouveau, il n'y a pas de code associé. Alors comment utilise t'on ce new contrôle?

Cordialement

pneau · Answer

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 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

TonySoft · Answer

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--

TonySoft · Answer

Oupss, désolé, je suis un peu en retard... je suis partie sur mon autre Pc (qui a vb6) pour verifier, j'ai saisi mon message, mais entre temps, pneau à été plus rapide que moi 

@+      --TonySoft--

wiking_division · Answer

Merci pour ces réponses, c'est exactement ce que je cherchais.....

Cordialement

TonySoft · Answer

Bonjour Wiking, 

    Pense à valider une ou plusieurs des réponses, de manière à ce que le sujet apparaisse comme un problème résolu dans le forum.

     Les tableaux de controles sont très partique en visual basic 6, dommage que cela n'existe plus en vb.net 2005 ...

    Bonne journée

    A bientot sur le réseau CodeS SourceS.       --TonySoft--

Controles

8 réponses

Votre réponse

Discussions similaires