Contrôle Dynamique
Source / Exemple :
Option Explicit
Dim vindex
Dim vnom
Dim WithEvents lblctl As Label
Private Sub cmdbutton_Click(Index As Integer)
'Ajouter
If Index = 0 Then
'incrémenter vindexTexte , créer une nouvelle zone
vindex = vindex + 1
vnom = "lblaffichage" & vindex
Set lblctl = Me.Controls.Add("vb.label", vnom)
With lblctl
.Alignment = vbCenter
.BorderStyle = vbFixedSingle
.Font.Name = "System"
.Height = 360
.Left = 300
.Width = 2100
End With
'placer la nouvelle zone, la rendre visible
If vindex < 1 Then
With lblctl
.Top = 450
.Visible = True
End With
Else
With lblctl
.Top = 450 + vindex * (.Height + 150)
.Visible = True
End With
End If
cmdbutton(1).Enabled = True
' maximum 7 étiquettes
If vindex >= 6 Then
cmdbutton(0).Enabled = False
End If
'supprimer
ElseIf Index = 1 Then
'supprimer la dernière zone
vnom = "lblaffichage" & vindex
Me.Controls.Remove vnom
vindex = vindex - 1
cmdbutton(0).Enabled = True
If vindex < 0 Then
cmdbutton(1).Enabled = False
End If
'quitter
Else
End
End If
End Sub
Private Sub Form_Load()
vindex = -1
MsgBox "http://www.steven007.fr.st", vbCritical, "yo v'la mon site"
End Sub
Conclusion :
http://www.steven007.fr.st ou steven007@caramail.com
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.