control/ClsMultColumnComboBox.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ClsMultColumnComboBox
    Inherits ComboBox

    Private m_ColumnWidths As String '栏目宽度字串：100;150;200等
    Private m_ColumnTitles As String '栏目标题字串：Name;Code;Sexy等
    Private m_ColumnNames As String '栏目成员名称：Name;Code;Sexy等,如果是类，则是类中属性，如果是table，则是字段名称
    Private m_ColumnIndexs As String '栏目成员所在索引IList接口实现；如0;1;3等
    Private m_SelectedValue2 As Object '所选行的第二个返回值。由第二个返回索引指定,此属性和下面属性配合使用，在EditingControl的selectedItem中赋值
    Private m_SelectedIndex2 As Int32 '所选行的第二个返回值索引。

    Public Sub New()
        MyBase.New()

        m_SelectedIndex2 = -1
        Me.DrawMode = DrawMode.OwnerDrawFixed
    End Sub


    <System.ComponentModel.Browsable(True), System.ComponentModel.Description("各栏的宽度值，以分号分隔。")>
    Public Property ColumnWidths As String
        Get
            Return m_ColumnWidths
        End Get
        Set(value As String)
            m_ColumnWidths = value
        End Set
    End Property

    <System.ComponentModel.Browsable(True), System.ComponentModel.Description("各栏的标题，以分号分隔。")>
    Public Property ColumnTitles As String
        Get
            Return m_ColumnTitles
        End Get
        Set(value As String)
            m_ColumnTitles = value
        End Set
    End Property

    Public Property ColumnNames As String
        Get
            Return m_ColumnNames
        End Get
        Set(value As String)
            m_ColumnNames = value
        End Set
    End Property

    Public Property ColumnIndexs As String
        Get
            Return m_ColumnIndexs
        End Get
        Set(value As String)
            m_ColumnIndexs = value
        End Set
    End Property

    Public Property SelectedValue2 As Object
        Get
            Return m_SelectedValue2
        End Get