简单的问题，怎样为控件添加属性？

Question

我用VB做了一个控件，里面包含有按钮控件，现在我想为自己做的控件添加一个属性，通过该属性设置的TRUE或者FALSE来决定按钮的Visible属性。
可我不知道怎么来添加属性，向各位高手请教了，应该怎么写？
谢谢！

Answer 1

'设置属性
Public Property Let ButtonVisible(Byval Value As Boolean)
     按钮控件.Visible=Value
End Property
'读取属性
Public Property Get ButtonVisible() As Boolean
     ButtonVisible=按钮控件.Visible
End Property

Answer 2

一般的，在控件的变量声明处：
dim m_prop as yourType
const m_def_prop=yourPropDefault'属性
public property let Prop(byval V as yourType)
  m_prop=v
  propertychanged "Prop"
end property
public property get Prop()as yourType
  Prop=m_prop
end propertyprivate usercontrol_readproperty(...)
..
  Prop()=prog.readproperty("Prop",m_def_PropDefault)
end sub
private usercontrol_writeproperty(..)
  prog.writeproperty "Prop",m_Prop,m_def_propdefault
end sub
对于你的问题，可以在property let中，将在变量声明去掉（常量最好不去），然后将上面变量出现的地方，改为字控件属性的引用（如将m_prop 改为 command1.visible)