creation dynamique de boutons et autres controlesRésolu

Question

Salut, j'aimerais pouvoir cr&#233;er de mani&#232;re automatique des controles. En effet j'ai une base de donn&#233;es et je voudrais &#224; partir des donn&#233;es de celle ci pouvoir cr&#233;er un formulaire avec des labels contenant des donn&#233;es et des boutons pour effectuer certaines taches. Chaque ligne d'enregistrement de la base de donn&#233;e sera construite de la meme mani&#232;re, deux labels pour les donn&#233;es et 3 boutons pour effectuer diverses taches.

En attente de votre aide ....

jpleroisse · Accepted Answer

Bonsoir,

Voici un code qui cr&#233;e 2 commandButtons et 2 Labels dynamiques sur une Form



Option Explicit

Dim WithEvents obj1  As CommandButton

Dim WithEvents obj2  As CommandButton

Dim WithEvents lbl1  As Label

Dim WithEvents lbl2  As Label



Private Sub Form_Load()

  Set obj1 = Controls.Add("VB.CommandButton", "button")

 obj1.Visible = True

obj1.Top = 100

obj1.Left = 100

obj1.Caption = "Valider"



  Set obj2 = Controls.Add("VB.CommandButton", "button1")

 obj2.Visible = True

obj2.Top = 100

obj2.Left = 1400

obj2.Caption = "Extraire"



  Set lbl1 = Controls.Add("VB.Label", "Donn&#233;e")

 lbl1.Visible = True

lbl1.Top = 1000

lbl1.Left = 100

lbl1.AutoSize = True

lbl1.Caption = "Mes donn&#233;es"



  Set lbl2 = Controls.Add("VB.Label", "Donn&#233;e1")

 lbl2.Visible = True

lbl2.Top = 1000

lbl2.Left = 1400

lbl2.AutoSize = True

lbl2.Caption = "Mes donn&#233;es 1"

End Sub



Private Sub obj1_Click()

MsgBox "Bonjour"

End Sub



Private Sub obj2_Click()

MsgBox "Au revoir"

End Sub



Private Sub lbl2_Click()

lbl1.BackColor = vbYellow

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Creation dynamique de boutons et autres controles

1 réponse

Discussions similaires