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.
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.