请问VB中用户自定义控件自定义属性的问题！！！！！！！！！！！！！！

[atangge_Yeer]

VB新手请问，我现在自定义一个TreeView控件，继承自TreeView，怎么给自定义控件加自定义属性，我需要这个Tree加一个DataSouce属性存放sql语句，让这个自定义控件可以从数据库读取数据，请问怎么添加自定义属性？

[shoppo0505]

默认treeview控件应该有个datasourceID，属性，你新建一个datasource，然后把ID填入datasourceID属性就可以了，不用新建属性。

[atangge_Yeer]

1L老哥，没有datasource属性啊？

[123工艺品]

Public Property DataSouce() As string Get Return xxxx End Get Set(ByVal value As Boolean) xxxx = value End Set End Property

[FainSheeg]

标准定义看3楼，把你的根据DataSource添加node的代码写在set块里面

[ruhong1]

不用这么麻烦，每个控件都有一个.tag属性，就是给你传这些东西的，赋值给tag再读出来就行了。

[raynors]

3楼的代码是对的，要达到完整功能 ，还需建立一个数据更新过程

    Public Event DateUpdated()

    Public mdt As Data.DataTable
    Public Property DataSouce As Data.DataTable
        Get
            Return mdt
        End Get
        Set(ByVal value As Data.DataTable)
            mdt = value
        End Set
    End Property

    Private Sub DataUpdated()
        '更新过程 
        RaiseEvent DateUpdated()
    End Sub

[raynors]

Public Event DateUpdated() Public mdt As Data.DataTable Public Property DataSouce As Data.DataTable Get Return mdt End Get Set(ByVal value As Data.DataTable) mdt = value CALL DataUpdated() End Set End Property Private Sub DataUpdated() '更新过程 RaiseEvent DateUpdated() End Sub

[u014745984]

][/img] [size=18pxxxxxxxxxx]999[/size] vvvvvvv