首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

动态加载一个自定义控件时分, 控件的自定义属性为何不显示呢

2012-12-21 
动态加载一个自定义控件时候, 控件的自定义属性为何不显示呢Public mblnMasked As StringPublic Property

动态加载一个自定义控件时候, 控件的自定义属性为何不显示呢
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的问题和我的一样呀,咋弄呢,自己定义的属性无法被调用,系统说不识别的属性,急呀 

热点排行