form初始化时无法生成控件

[luhui1982]

一个form ，初始的时候无法生成控件，但是，在form上建立一个按钮，点击按钮确可以生成，何解？

代码如下


Private Sub CommandButton1_Click() '这个可行

Set chbox = Me.Controls.Add("Forms.CheckBox.1", " chboxname1", Visible)

With chbox
.Top = 10
.Left = 10
.Height = 10
.Width = 6
End With

End Sub






Private Sub UserForm_Initialize() ’这个不行 ，打开form时，没看到生成任何控件


Set chbox = Me.Controls.Add("Forms.CheckBox.1", " chboxname1", Visible)

With chbox
.Top = 10
.Left = 10
.Height = 10
.Width = 6
End With


End Sub

[dsd999]

谢谢楼主分享。

• 打赏
• 举报

回复 赞

[luhui1982]

我是win7 +excel2010

• 打赏
• 举报

回复 赞

[luhui1982]

找到答案了，后面要编程true Private Sub UserForm_Initialize() ’这个不行 ，打开form时，没看到生成任何控件 Set chbox = Me.Controls.Add("Forms.CheckBox.1", " chboxname1", true) With chbox .Top = 10 .Left = 10 .Height = 10 .Width = 6 End With End Sub

• 打赏
• 举报

回复 赞

[mnxm]

恭喜楼主 jf

• 打赏
• 举报

回复 赞