Comment creer dynamiquement un objet graphique

Question

je souhaiterai pouvoir créer un Label (par exemple) directement a partir du code, sans passer par l'étape de dessin sur le formulaire. J'emploi ce code, mais j'ai obtien une erreur de variable non définie.

Voici mon code :

Private Sub Form_Initialize()
    Dim Lb As Label
  
    Lb.Left = 0
    Lb.Width = 1000
    Lb.Height = 500
    Lb.Caption = "ceci est un test"
End Sub

Que ce soit dans form_initialize(), ou form_load(), j'ai toujour le meme probleme...   ?-)

borntoclimb · Answer

j'ai deposer une source qui explique tout en detail. La source s'appelle "ajout dynamique de control", tu devrais y jeter un coup d'oeil.

A+

Borntoclimb

Feuxx · Answer

SLT,

voici un p'tit bout de code qui te permettra de créer dynamiquement n'inporte quel controls


Option Explicit
Private WithEvents lblObj As Label

Private Sub Form_Load()
   Set lblObj = Controls.Add("VB.label", "lblObj")
   With lblObj
      .Visible = True
      .Width = 2000
      .Caption = "Mon label dynamique"
      .Top = 1000
      .Left = 1000
   End With
End Sub

**Voila,Voili **  :big)

Comment creer dynamiquement un objet graphique

2 réponses

Discussions similaires