# Re: VB6 的做法 (更正)

Posted by Sephiroth on June 25, 1999 at 09:00:31:

In Reply to: VB6 的做法 posted by Sephiroth on June 24, 1999 at 17:20:30:

: VB6 动态建立控制项的方法:

: Private WithEvents mobjLabel As VB.Label

: Private Sub Form_Load()
: Set mobjLabel = Controls.Add("VB.Label", "Label1")
: With mobjLabel
: .Caption = "Label1"
: .Move 0, 0, 1500, 300
: .Visible = True
: End With
: End Sub

动态建立的控制项可以是任意控制项, 只要不把 TypeLib 打错就行了. 当然 UserControl 也可以
动态建立, 但是要注意, 如果 UserControl造不出来就必须把 Alt-P-E Upgrade ActiveX Controls
的选项取消.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

上面这句说错了, 是 Alt-P-E Make Page, Remove information about unused ActiveX Controls
的选项要取消才对!

Follow Ups: