Ajouter dynamiquement des étiquettes au formulaire utilisateur = UserForm vide
Je suis en train d'ajouter dynamiquement des boutons à l'objet userform, mais l'objet userform vient juste de vide. Ive a simplifié l'essence même du code, autant que possible, pour la vérification des erreurs (pas que ça m'a aidé)
Sub addLabel()
UserForm2.Show
Dim theLabel As Label
Dim labelCounter As Integer
For labelCounter = 1 To 3
Set Label = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
With theLabel
.Caption = "Test" & labelCounter
.Left = 10
.Width = 50
.Top = 10
End With
End Sub
Est-il un moyen de vérifier si les boutons ont été ajoutés, mais sont invisibles? Ou pourquoi ils ne sont pas ajoutés. Toute aide grandement appréciée.
source d'informationauteur BiGXERO
Vous devez vous connecter pour publier un commentaire.
Que peu de choses:
vbModeless
- sinon le code s'arrête surUserForm2.Show
Label
puis à l'aide deWith
surtheLabel
Vous devrez ensuite incrémenter la position de vos trois étiquettes afin d'éviter les chevauchements (qui je l'ai fait à l'aide de
Top
).essayer de code ci-dessous