VB 自定义控件-UserControl

1--默认属性--

(1)属性 GET中 加上AttributeValue.VB_UserMemId = 0 '--不过貌似有问题

(2) Private Sub UserControl_InitProperties()
    　　Text1.Text = Ambient.DisplayName
　 End Sub

(3) “Tools”-“Procedure Attributes”-选择目标属性-"Advanced"-"Procedure ID" -default

2--属性  设计时，属性页不可见，运行时可见

“Tools”-“Procedure Attributes”-选择目标属性-"Advanced"- 勾选“Don't show in property browser”