Vb.net - Estableciendo un valor de margen de control

Question

Entonces, estoy agregando una etiqueta programáticamente y estoy necesitando alterar un poco el margen superior al valor 8. No puedo hacer eso de la manera obvia, Entonces, ¿qué pasa con mi forma de pensar?

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

Esto me da el error "expresión es un valor y por lo tanto no puede ser el objetivo de una misión".

Answer 1

Label.Margin devuelve un objeto Padding.

Dado que Padding es una estructura, en realidad devolverá una copia . Está cambiando el valor de Top de esa copia, no del margen del control real. Como eso no tendría ningún efecto notable, VB lo previene correctamente.

Debe asignar un margen completamente nuevo. De hecho, la propiedad Margin (o más bien, la clase Padding) está posiblemente rota, ya que no permite una manera fácil de cambiar los valores individuales.

Desafortunadamente, solo tenemos que vivir con eso. Así que para cambiar sólo el valor Top, tenemos que escribir:

Dim old As Padding = LabelAdapter.Margin 
LabelAdapter.Margin = New Padding(old.Left, 8, old.Right, old.Bottom) 

raro, ¿eh?