Question

VB6.0 用户控件 自定义属性

我想自定义一个属性，比如该属性值为1时，隐藏用户控件中的picture1。
然后我做了之后把属性值设为1，发现也能隐藏。
但是一运行发现没用，picture1还是能看见，而且运行结束后那个值又变回了默认的值。
我想肯定是哪里有什么东西没有弄……

所以想请教下具体是怎么自定义属性的。

Answer 1

我估计你只是在属性过程当中加了隐藏图片框的代码，也就是只在设置属性时才会起作用。
另外还有两个过程名字大概是ReadProperties和WriteProperties，分别用于从属性数据包中读取属性值和保存设计时的属性值到数据包。没次打开设计窗口或运行时都会被调用ReadProperties，所以你应该在该过程设置Picture1的隐藏属性。
你最好到外接程序对话框中找控件接口向导来添加自定义属性，这样它会同时在前面两个过程中添加相应的语句来保存和读取该属性值。

Answer 2

定义属性用let,读取用get