Créer des contrôles en éxécutionRésolu

Question

Voil&#224; je voudrais savoir si il est possible en VB6 de cr&#233;er des contr&#244;les (comme une msgbox ou une listbox) en &#233;x&#233;cution. 
Je m'explique : par exemple on &#224; d&#233;j&#224; un Command button dans l'appli et je veux faire en sorte que lorsque l'on clique dessus : il me cr&#233;&#233; par exemple 5 autres bouttons &#224; c&#244;t&#233;. Le code serait un peu &#224; la mani&#232;re du g&#233;n&#233;rateur de form que j'ai d&#233;pos&#233; sur ce site (source N&#176; 30625)
Si quelqu'un peut me dire comment faire ou si c'est carr&#233;ment impossible &#224; r&#233;aliser.

[mailto:M@xwells M@xwells] M@ni@c

jrivet · Accepted Answer

Salut,

Regarde si ce qui suit peut t aider

Ajoute sur une feuille un command button et met sa propriete index a 0.

Ensuite dans le code:

Dim i As Integer

For i = 1 To 5
    Load Command1(i)
    Command1(i).Caption = "Bouton " & i
    Command1(i).Top = Command1(0).Top + i * Command1(0).Height
    Command1(i).Visible = True
Next

Voila
@+
Julien

econs · Answer

Et quand tu as ces nouveaux boutons, il faut leur associer des &#233;venements Click (sinon, il ne servent &#224; rien tes boutons).

Pour les boutons cr&#233;&#233;s par jrivet, l'&#233;venement Click se d&#233;finit ainsi :







Private Sub Command1_Click(Index As Integer)

    Select Case Index

        Case 1 : 

            MsgBox "Faire l'action associ&#233;e au bouton 1"

       Case 2 : 

            MsgBox "Faire l'action associ&#233;e au bouton 2"

        Case 3,4,5 :

            MsgBox "Ne rien faire"

    End Select

End Sub

Manu

econs · Answer

Note que si tu n'as que deux boutons qui doivent "appara&#238;tre", tu peux
les cr&#233;er &#224; l'avance, mais mettre leur propri&#233;t&#233; Visible &#224; False.

Quand tu cliques sur ton bouton visible, tu mets les propri&#233;t&#233;s Visible
de tes boutons invisibles &#224; True, et hop, ils apparaissent.



D&#232;s que le nombre de bouton augmente, et si ces boutons ont des actions similaires, la m&#233;thode d&#233;crite conjointement par jrivet et moi-m&#234;me est la plus appropri&#233;e.

Manu

jpleroisse · Answer

Bonjour,

Pour compl&#233;ter la r&#233;ponse de econs, ce
code te permet de g&#233;rer les &#233;venement  Click, tu as aussi cette
fa&#231;on de cr&#233;er tes boutons dynamiques.Ce code est plus long, c'est un
choix.



Option Explicit

Dim WithEvents obj1  As CommandButton

Dim WithEvents obj2  As CommandButton

Dim WithEvents obj3  As CommandButton



Private Sub Command1_Click()

On Error Resume Next

  Set obj1 = Controls.Add("VB.CommandButton", "button")

 obj1.Visible = True

obj1.Top = 100

obj1.Left = 100

obj1.Caption = "Ouvrir"

  

  Set obj2 = Controls.Add("VB.CommandButton", "button1")

 obj2.Visible = True

obj2.Top = 600

obj2.Left = 100

obj2.Caption = "Valider"

  

  Set obj3 = Controls.Add("VB.CommandButton", "button2")

 obj3.Visible = True

obj3.Top = 1100

obj3.Left = 100

obj3.Caption = "Quitter"

End Sub



Private Sub obj1_Click()

MsgBox "Bonjour"

End Sub



Private Sub obj2_Click()

MsgBox "Ceci est un exemple !"

End Sub



Private Sub obj3_Click()

MsgBox "Au revoir"

Unload Me

End Sub



jpleroisse

cs_maxwells · Answer

Merci &#224; tous pour vos r&#233;ponses. Pour que vous sachiez, c'est
l'utilisateur qui d&#233;termine le nombres de bouttons qu'il souhaite
avoir. Je vais tester les diff&#233;rentes solutions que vous me proposer.



Merci &#224; tous.

[mailto:M@xwells M@xwells] M@ni@c



Ce site est g&#233;nial. J'ai presque toujours eu une ou plusieurs r&#233;ponses aux questions que j'ai pos&#233;es.



Merci CodesSources.COM

Créer des contrôles en éxécution

5 réponses

Discussions similaires