Ajout dynamique de controles...simplement...

Commenter

Contenu du snippet

Ce petit code vous montre comment créer un controle standard en cours d'execution...Bien pratique dans certaines conditions. Destinés surtout aux débutants...et puis ceci est ma première contribution à ce site, donc pas de révolution...-)))

Source / Exemple : 


Option Explicit

Dim MonLabel As Label
Dim MonPictureBox As PictureBox

Private Sub Command1_Click()

Form1.Controls.Add "VB.Label", "NewLabel", Form1

Set MonLabel = Form1!NewLabel

With MonLabel
        .Visible = True
        .Top = 0
        .Left = 0
        .Width = 2000
        .Height = 300
        .Font.Size = 12
        .Caption = "Ceci est mon label"
End With

Form1.Controls.Add "VB.PictureBox", "NewPictureBox", Form1

Set MonPictureBox = Form1!NewPictureBox

With MonPictureBox
        .Visible = True
        .Top = 500
        .Left = 0
        .Width = 4000
        .Height = 2000
        .BackColor = vbRed
End With

End Sub

Conclusion :


Voici deux exemples : label et picturebox...mais peut-etre utilisé pour n'importe quel contole standard.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_birdie)