动态添加SKIN皮肤控件报错
Private WithEvents Command1 As CommandButton
Private WithEvents Skin1 As Skin
Set Command1 = Controls.Add(", "Command1")
Command1.Visible = True
Set Skin1 = Controls.Add("vb.Skin", "Skin1") '这里报错,显示“无效的类串”(部件里已经添加了SKIN皮肤控件)
[此贴子已经被作者于2023-10-20 11:07编辑过]