更改動態標籤的對齊方式

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