用户控件属性问题！（一百分又来了：））

Question

用户控件添加了PID属性（可以设置，可以返回），但是在窗口中怎么不能设置！
例如：uc.PID="11111"
调试uc.PID=""。怎么回事呢？这个该怎么做？

Answer 1

是啊，看看代码先。
[email protected]
应该可以的啊，我也用过。

Answer 2

看你在get和let过程中的代码怎么写的？

Answer 3

不能只写一个空的属性过程。要这样
Private m_PID As StringPublic Property Let PID(NewValue As String)
m_PID=NewValue
'Other Function
End PropertyPublic Property Get PID() As String
PID=m_PID
'Other Function
End Property

Answer 4

我是用设计器添加的属性啊，有以下代码
'缺省属性值:
Const m_def_PID = "0"
'属性变量:
Dim m_PID As String '注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,0
Public Property Get PID() As String
    PID = m_PID
End PropertyPublic Property Let PID(ByVal New_PID As String)
    m_PID = New_PID
    PropertyChanged "PID"
End Property

Answer 5

要用PropertyBag来初始化和保存控件的属性。MSDN上讲得很详细。

Answer 6

既然使用向导创建的属性，应该已经用PropertyBag了。奇怪~~什么时候赋的值？最好放在Form_Load里面