更改动态标签的对齐方式

Question

我制作了一个处理标签文字对齐的程序。

我用过：

Dim con7 As Control
For Each con7 In Me.Controls
    con7.TextAlign = 'whatever is needed
Next

但问题是TextAlign部分。出现的问题是TextAlign不是所有控件的属性。解决这个问题的最佳方法是什么？

Answer 1

您尝试将每个子控件分配给Label类型的变量，但是，正如错误消息所示，您显然至少有一个控件不是Label。有两种方法可以处理，但最简单的方法是使用Me.Controls.OfType(Of Label)()，这将过滤除Label控制之外的所有控件。

Answer 2

您不需要以下代码：

Dim con7 As Control

con7在循环中声明。

由于您只想循环浏览标签，请使用以下代码：

For Each lbl In Me.Controls.OfType(Of Label)()

    lbl.TextAlign = ...

Next