Question

在VB中如何动态创建控件

Private Sub Command1_Click()

要求如下：
·创建一个Label控件
·Caption = Label1
·Top = 200
·Width = 7000
·Visible = True

Answer 1

Public IsExists As Boolean

Private Sub Command1_Click()
Dim lbl As Label
If IsExists = False Then
Set lbl = Me.Controls.Add("VB.Label", "lbl")
IsExists = True
lbl.Caption = "Label1"
lbl.Top = 200
lbl.Width = 7000
lbl.Visible = True
End If
End Sub

Answer 2

Private Sub Command1_Click()
Dim Label1 As Label
Set Label1 = Me.Controls.Add("vb.label", "l1")
With Label1
.Caption = "Label1"
.Top = 200
.Width = 7000
.Visible = True
End With
End Sub