Vb.net - Définition d'une valeur de marge de contrôle

Donc, je vais ajouter une étiquette par programmation et je suis dans le besoin de modifier la marge supérieure, un peu à la valeur 8. Je ne peux pas faire que le moyen le plus évident, alors quel est le problème avec ma façon de penser?

Dim LabelAdapter As New Label
LabelAdapter.text = "Adapter"
LabelAdapter.Margin.Top = 8

Cela me donne l'erreur "d'Expression est une valeur et ne peut donc pas être la cible d'un acte de cession".

source d'informationauteur Kenny Bones | 2011-01-29

18

Label.Margin renvoie une Padding objet.

Depuis Padding est une structure, il retourne en fait un copie. Vous êtes à la modification de la Top valeur de la copie, pas de contrôle réel de la marge. Depuis qu'aurait aucun effet notable, VB correctement l'en empêche.

Vous devez affecter une toute nouvelle marge. En fait, la Margin propriété (ou plutôt, la Padding classe) est sans doute cassé car il ne permet pas un moyen facile de changer les valeurs individuelles.

Malheureusement, nous avons juste à vivre avec elle. Donc, pour changer juste la Top valeur, nous devons écrire:
```
Dim old As Padding = LabelAdapter.Margin
LabelAdapter.Margin = New Padding(old.Left, 8, old.Right, old.Bottom)
```
Bizarre, hein?

Vous devez vous connecter pour publier un commentaire.