动态加载一个自定义控件时候, 控件的自定义属性为何不显示呢
Public mblnMasked As String
Public Property Get Masked() As String
Masked = mblnMasked
End Property
Public Property Let Masked(ByVal NewValue As String)
mblnMasked = NewValue
PropertyChanged "Masked"
Text1.Text = NewValue
End Property
Masked是我定义的属性,我在把控件拖到试验窗体上时候能看见Masked这个属性, 但是为何动态加载时候没有这属性了,都是控件固有的属性
[解决办法]
把你的代码直接拷过来,我加了个按钮简单试了一下,没有问题呀:
1、属性有;
2、界面显示正常。
Private Sub Command1_Click()
Load Me.UserControl11(1)
UserControl11(1).Left = UserControl11(0).Left + 2000
UserControl11(1).Top = UserControl11(0).Top + 2000
UserControl11(1).Masked = "hahaha"
UserControl11(1).Visible = True
End Sub
另外,
那个Public mblnMasked As String一般要private
[解决办法]
我用的是 Set ctl = Controls.Add("testprj.testuserctl", ctlstr, Picture_farther)
动态方法呀, 运行时候加载的 ,控件是编译完成的OCX,CTL里没有我定义的属性, 如果把控件拖入到测试窗体上有这属性,奇怪了
[解决办法]
LOAD不行,楼上的你是把控件拖入到form里一个,然后用load 建立另外的,这不是我要的效果,我要的是控件是编译好的OCX,窗体上创建的
[解决办法]
http://topic.csdn.net/t/20060710/03/4869758.html的问题和我的一样呀,咋弄呢,自己定义的属性无法被调用,系统说不识别的属性,急呀