Ajout dynamique de controles...simplement...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 921 fois - Téléchargée 50 fois

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

Ajouter un commentaire

Commentaires

cs_Ether
Messages postés
13
Date d'inscription
mercredi 23 janvier 2002
Statut
Membre
Dernière intervention
24 octobre 2009

merci ca viens de m'aider
nabilham9128113
Messages postés
6
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2010

interéssant !!
isetala
Messages postés
5
Date d'inscription
mercredi 12 octobre 2005
Statut
Membre
Dernière intervention
4 janvier 2006

bien ;)
cs_jibouze
Messages postés
9
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
22 mars 2005

pour les noms d'objets, je déclare un tableau dynamique où je peux stocker les noms des contrôles.
Ou si tu sais à l'avance le nombre exact d'objets que tu auras, déclares un tableau avec une dimension et une taille finie.
jbracque
Messages postés
6
Date d'inscription
mercredi 28 avril 2004
Statut
Membre
Dernière intervention
27 mai 2004

Ca marche pas mal ton truc !
Mais j'ai une question.
Comment fais-tu pour ajouter plusieurs contrôle à la suite ?
J'ai pensé mettre comme nom de controle "new_label"+format(i) mais dans ce cas comment accéder à cet objet pour en changer le caption, etc..??

Peux-tu le répondre à ce sujet ?
Merci

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.