Vb.net - 设置控件边距值

Question

所以，我正在以编程方式添加一个标签，我需要将顶部边距稍微更改为值 8。我不能以明显的方式做到这一点，所以我的想法有什么问题？

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

这给了我错误“表达式是一个值，因此不能成为赋值的目标”。

Answer 1

Label.Margin返回 Padding 对象。

自 Padding是一个结构，它实际上会返回一个副本。您正在更改 Top该副本的值(value)，而不是实际控制的 margin 。由于这不会有明显的影响，VB 正确地阻止了它。

您需要分配一个全新的边距。事实上，Margin属性(或者更确切地说，Padding 类)可以说是损坏的，因为它不允许简单的方法来更改单个值。

不幸的是，我们只能忍受它。因此，只需更改 Top值，我们需要写:

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

很奇怪吧？