日期:2008-05-06 浏览次数:20682 次
    Private m_ValueMember As String    Private m_DisplayMember As String    <Category("Data")> _    Public Property ValueMember() As String        Get            Return m_ValueMember        End Get        Set(ByVal Value As String)            m_ValueMember = Value        End Set    End Property    <Category("Data")> _    Public Property DisplayMember() As String        Get            Return m_DisplayMember        End Get        Set(ByVal Value As String)            m_DisplayMember = Value        End Set    End PropertyDim myNewLeafNode As TreeLeafNodeDim currObject As ObjectcurrObject = cm.List(currentListIndex)If Me.DisplayMember <> "" AndAlso Me.ValueMember <> "" Then ' 添加叶节点? Dim pdValue As System.ComponentModel.PropertyDescriptor Dim pdDisplay As System.ComponentModel.PropertyDescriptor pdValue = cm.GetItemProperties()(Me.ValueMember) pdDisplay = cm.GetItemProperties()(Me.DisplayMember) myNewLeafNode = _ New TreeLeafNode(CStr(pdDisplay.GetValue(currObject)), _ currObject, _ pdValue.GetValue(currObject), _ currentListIndex)
Protected Overrides Sub OnAfterSelect _ (ByVal e As System.Windows.Forms.TreeViewEventArgs)    Dim