2012-12-01 52 views
0

如何设置动态添加标签 我在哪里在串得到标签的名称变量 一个标签在面板如何设置动态添加标签的文本对齐

Dim instance As New Label 
    Dim stringVariable As String 

动态添加上形式负载的文本对齐事件::

instance.Location = New Point(15, 15) 
    instance.Size = New Size(60, 30) 
    instance.BorderStyle = BorderStyle.FixedSingle 
    instance.AutoSize = False 
    instance.Text = "LABEL1" 
    Me.Panel1.Controls.Add(instance) 

我被越来越名称:

for each c as control in Panel1.Controls 
    stringVariable=c.name 
    next 

但它不可能

Me.Panel1.Controls(stringVariable).textalign ?????? 
    it does not show text align property 

请帮助

回答

2
DirectCast(Me.Panel1.Controls("Label1"), Label).TextAlign = ContentAlignment.TopRight 
+0

三江源非常 – Dandy

0

我发现,这些值将请将textAlign

Public pTop_Center As Long = 2 
Public pMiddle_Center As Long = 32 
Public pBotton_Center = 512 

btn.TextAlign = pBotton_Center 
+0

这个问题已经被接受的答案,你的答案不会添加新的信息 – Guenther