如何创建一个简单的(用户控制)DLL

• 下载source - 71.3 KB
• 下载demo - 1 97.1 KB

首先 CodeProject适用于所有级别的程序员。本文仅针对初学者和从未构建过DLL的VB程序员。关于更复杂的组合框，请参阅我的第一篇文章:ExCB - Extended Multi Column组合框 介绍 可下载的文件包含完整的项目，但我将展示创建这个控件的基本步骤，一个可以永久显示一列或多列的组合框(比如“field boxes”，不管有没有标签)和一个用于“record”选择的列表。 DLL通常是一个控件，由其他System.Windows组成。由用户为特定目的创建的表单控件，通常是灵活的、可参数化的，并可随时执行多个任务。 与其他控件一样，UserControl也有自己的属性、方法和事件，其中一些是我们创建的。 在开发DLL时，最好使用另一个简单的WinForms项目来测试控件，这两个项目都在解决方案中，这样我们就可以深入测试和调试控件的行为。 构建用户控件 打开Visual Studio,开始一个新项目,选择类库和给它的名字MCCB,将项目名称的程序集名称和根名称空间,但和给你一个VB公共类class1菜单项目,选择添加用户控制和给它的名字MCCB,这将是未来你的控制- VS创建另一个类的名称和显示了模板- 150 x150广场,更像是一个面板比像一种形式… 在本例中，目标是创建一个使用标签永久公开一列或多列的组合框。我们创建第一列，所有其他列将在运行时创建。我们还需要一个下拉列表和一个打开列表的按钮。 将控件的大小调整为appx。200x200，并改变其背景色为任何其他(轻微)。在运行时，这个颜色将被改变为颜色。控件，但在设计时，在调整控件大小时，我们需要一个可视化引用。让我们从标签(标题/标题)开始:从工具箱中选择一个标签。更改以下属性:Name="Hdr0"， AutoSize=False, BackColor=WhiteSmoke, BorderStyle=FixedSingle, Location=0;0, Size=100;19, Text="Hdr0"， TextAlign= middleleft现在框显示字段值。代替文本框，我们将使用标签…是一个较轻的控件，而且不写入或更改值。选择另一个标签并改变以下属性:Name="Box0"， AutoSize=False, BackColor=White, BorderStyle=FixedSingle, ForeColor=Navy, Location=0;18, Size=100;20, Text="Box0"， TextAlign= middleleft接下来，列表。选择一个列表视图并改变属性:Name="MyLV"， View=Details, BorderStyle=FixedSingle, FullRowSelect=True, GridLines=True, HeaderStyle=None, Location=0;37, MultiSelect=False, Size=119;138。它的列表有8行，没有头…我们还将创建第一列:添加一列并更改属性:Name="lvCol0"， Text=""， Width=97。为什么是97年?为了完美地对齐，ListView列的宽度必须是对应标签/框的宽度减1，除了第一列，它必须是减3…最后是按钮，它必须显示任何类型的“向下箭头”。它可以是一个按钮、一个图片框，甚至是一个简单的标签。我们用标签来做。选择一个标签并改变属性:Name="LblDrop"， AutoSize=False, BackColor=WhiteSmoke, BorderStyle=FixedSingle, Location=99;18, Size=20;20, Text=""。在属性图像-本地资源-导入:DArrow。png，位于文件夹。\图像 一切都很好，对齐了，对吧?但是，当控件要放在表单上时，列表必须隐藏……因此，为了防止在设计时垂直调整大小，因为头部+框的实际高度是38，添加这第一个代码，在UserControl的调整大小事件: 隐藏,复制Code

Private Sub MCCB_Resize(sender As Object, e As EventArgs) Handles Me.Resize
	Me.Height = 38
End Sub

现在是创建测试和调试控件的项目的时候了。保存项目并启动Windows Forms应用程序类型的新项目，将其命名为MCCB_Test - VS将提供一个表单模板(Form1)。保存第二个项目。添加UserControl项目:菜单文件-添加现有项目-浏览MCCB项目并打开MCCB。vbproj—创建一个解决方案‘MCCB_Test’，这两个项目都在解决方案资源管理器中。选择MCCB项目，菜单BUILD - BUILD MCCB。打开工具箱，看看顶部…控制MCCB已经在那里了。双击它—该控件被放置在表单中，名称为Mccb1。调整大小——如你所见，只允许水平调整大小。开始解决方案——很好，控制就在那里!!现在您可以管理这两个项目。插入一段代码，菜单构建—重新构建MCCB，如果需要检查或更改Form1中的控制属性，如果需要，为调试porposes定义断点，然后开始解决方案。一件容易的事。 我们要创建一组属性。通常，属性必须是公共的，并指定其数据类型。可以查看和更改自定义属性值，就像IDE Properties窗口中的任何其他属性一样，也可以在运行时查看和更改。所有的性质，除了一个，都可能是b在IDE属性窗口中读取和修改。它们中的一些会改变控件的外观:标题和框的高度，边框样式，标题的前景色和背景色，框和列表。这些属性意味着要重新绘制控件，稍后我们将看到。它们有自己定义的数据类型——整数、字节、颜色、BorderStyle——这些可以通过预定义的对话框、组合框或文本框来更改。但是，尽管属性ListFontStyle和LayerOrder处理字节值，而不是简单的输入数字的文本框，但我们更喜欢使用具有描述性文本的组合框来表示允许的值。为此，我们必须声明枚举列表的数据类型。最后，属性SelectedIndex只能在运行时使用。，必须是不可浏览和隐藏的。点击这里查看所有属性 选择并打开MCCB.vb Code选项卡。允许进口的引用,需要指定一些属性的属性,如类别,描述,可浏览或DesignerSerializationVisibility,并宣布两个Enum类型和两个变量——一些属性值(变量的_Name属性的名称,之前一个下划线),一些供内部使用: 隐藏,复制Code

Imports System.ComponentModel   ' For PropertyAttributes

公开课MCCB 隐藏,复制Code

 Public Enum LFStyle         ' for Property ListFontStyle
      SameAsControl = 0
      AlwaysRegular = 1
End Enum

隐藏,复制Code

 Public Enum LayOrder        ' for Property LayerOrder
     Normal = 0
     BringToFront = 1
     SendToBack = 2
End Enum

隐藏,收缩,复制Code

' Property variables
Private _MaxItemsDisp As Integer = 8
Private _HeaderHeight As Byte = 19
Private _HeaderBackColor As Color = Color.WhiteSmoke
Private _HeaderForeColor As Color = Color.Black
Private _HeaderBorderStyle As BorderStyle = Windows.Forms.BorderStyle.FixedSingle
Private _BoxHeight As Byte = 20
Private _BoxBackColor As Color = Color.White
Private _BoxForeColor As Color = Color.MediumBlue
Private _BoxBorderStyle As BorderStyle = Windows.Forms.BorderStyle.FixedSingle
Private _ListBackColor As Color = Color.White
Private _ListForeColor As Color = Color.Black
Private _ListBorderStyle As BorderStyle = Windows.Forms.BorderStyle.FixedSingle
Private _ListFontStyle As Byte = 0      ' 0-SameAsControl, 1-AlwaysRegular
Private _LayerOrder As Byte = 0         ' 0-Normal, 1-BringToFront, 2-SendToBack
Private _SelectedIndex As Integer = -1
' Internal variables
Private _ColumnCount As Integer = 0
Private _ColumnIndex As Integer = 0
Private _TotalWidth As Integer = 99
Private _LeftLocation As Integer = 0
Private _ItemsCount As Integer = 0
Private _Me_MinHeight As Integer = _HeaderHeight + _BoxHeight - 1
Private _ListHeight As Integer = 0
Private _ShowList As Boolean = False    ' used in Resize event
Private _FNIlastIdx As Integer = -1     ' Last ColumnIndex searched
Private _FNIlastStr As String = ""      ' Last String searched
Private _FNI_iFrom As Integer = -1
Private _Error As String = "Error"

如前所述，大多数属性都意味着要重新绘制控件。而重绘控件则意味着要引发的“调整大小”事件。每当列表被下拉或隐藏时，也将调用Resize事件。，当“按钮”LblDrop被单击时。因此，Resize事件必须处理两种不同的情况:1)列表将被下拉(如果有项目要显示)，具有正确的高度;2)列表将被隐藏。为了控制它的行为，我们创建了一个变量_ShowList，它的初始值为False，从而确保在设计模式中正确缩放。让我们改变UserControl的Resize事件。注意，_Me_MinHeight = _HeaderHeight + _BoxHeight - 1，所以_Me_MinHeight总是表示控件的(最小)高度，不包含列表，列表的高度是要显示的行数，每个行17像素[16(行高)+ 1(分隔行)]+ 1(最后一行): 隐藏,复制Code

Private Sub MCCB_Resize(sender As Object, e As EventArgs) Handles Me.Resize
    'Me.Height = 38     ' Replaced by the code below:
    If _ShowList And _ItemsCount > 0 Then
        _ListHeight = Math.Min(_ItemsCount, _MaxItemsDisp) * 17 + 1
    Else
        _ListHeight = 0
    End If
    Me.Height = _Me_MinHeight + _ListHeight
    MyLV.Height = _ListHeight
End Sub

Resize事件也将从其他一些情况调用，但是变量_ShowList必须设置为所需的值。那么，让我们创建一个唯一的子程序来设置变量的值并调用Resize事件，它将在以下每种情况下被调用: 隐藏,复制Code

Private Sub ShowHideList(Show As Boolean)
    _ShowList = Show
    MCCB_Resize(Nothing, Nothing)
End Sub

现在，当标签LblDrop被单击时，让我们提供一种机制来下拉或隐藏列表。而且，当鼠标经过标签时，它的背景色变成橙色，光标变为手型。那么，让我们使用鼠标悬停，鼠标离开，然后点击: 隐藏,复制Code

Private Sub LblDrop_MouseHover(sender As Object, e As EventArgs) Handles LblDrop.MouseHover
    Me.Cursor = Cursors.Hand
    sender.BackColor = Color.Orange
End Sub

隐藏,复制Code

Private Sub LblDrop_MouseLeave(sender As Object, e As EventArgs) Handles LblDrop.MouseLeave
    Me.Cursor = Cursors.Default
    sender.BackColor = Color.WhiteSmoke
End Sub

隐藏,复制Code

Private Sub LblDrop_Click(sender As Object, e As EventArgs) Handles LblDrop.Click
    ShowHideList(Show:=(Me.Height <= _Me_MinHeight))
End Sub

现在创建第一个属性。默认情况下，属性是可读的(Get部分)和可写的(Set路径)。但是，也可以将它们声明为只读(仅获取部分)或只读(仅设置部分)。此外，还可以指定一些属性。在本例中，包括类别(现有的或新的，属性将被包括在其中)和描述(出现在属性窗口底部的解释)。若要读取属性，请返回相关变量的值。要编写属性，请将它的关联变量设置为指定的值，如果该值要立即生效，请编写操作代码。在本例中，只需调用子ShowHideList，参数为True，以设置变量_ShowList并下拉列表: 隐藏,复制Code

<Category("_MCCB specifics")> _
<Description("Maximum Items Displyed by the List")> _
    Public Property MaxItemsDisp() As Byte
        Get
            ' Get - if the Property is readable (or ReadOnly)
            Return _MaxItemsDisp
        End Get
        Set(ByVal value As Byte)
            ' Set - if the Property is writable (or WriteOnly)
            _MaxItemsDisp = value
            ShowHideList(True) ' Action
        End Set
    End Property

现在，让我们创建第一个方法，它将允许添加列和设置一些(固定)属性。要从外部访问，该方法必须是公共的。对该方法的第一次调用不会创建新列，而是更改已经存在的列。该方法将接受三个参数: 宽度——要求。列的宽度，以像素为单位。值为0将创建一个隐藏列。文本——要求。列的标题(标题)。对齐,可选的。列的水平对齐。保留默认值(如果未指定)。HorizontalAlignment值(0=左，1=右，2=中心)被用来定义列表视图列的TextAlign属性(或者，例如，文本框)。但是，标签使用了其他值(内容对齐)，除了水平位置之外，还反映了垂直位置(顶部、中间、底部)。我们的' header '和'Boxes'是'middle'对齐的，所以HorizontalAlignment值(0,1和2)必须转换为'middle' ContentAlignment值(分别为16,64和32)。 隐藏,收缩,复制Code

Public Sub AddColumn(Width As Integer, Text As String, _
                     Optional Align As HorizontalAlignment = 0)
    Dim Lbl_Align As ContentAlignment = If(Align = 1, 64, _
                                           If(Align = 2, 32, 16))
    Dim Hdr As Label
    Dim Box As Label
    Me.SuspendLayout()
    _ColumnCount += 1
    _ColumnIndex = _ColumnCount - 1
    If _ColumnCount = 1 Then   ' First Column, already exists
        Hdr = Hdr0                          ' Existing Header
        Box = Box0                          ' Existing Box
        MyLV.Width = Width + 19             ' Existing List. Initial
        ' value, including the "Button" (LblDrop)
        lvCol0.Width = Width - 3            ' Existing ListView Column
        _TotalWidth = Width - 1             ' Initial value
        Me.BackColor = Color.Transparent
    Else                        ' Column is to be created
        Hdr = New Label                         ' New Header
        Hdr.Name = "Hdr" & _ColumnIndex.ToString
        Hdr.Left = _TotalWidth
        Box = New Label                         ' New Box
        Box.Name = "Box" & _ColumnIndex.ToString
        Box.Left = _TotalWidth
        MyLV.Columns.Add(New ColumnHeader)      ' New ListView Column
        MyLV.Columns(_ColumnIndex).Name = "lvCol" & _ColumnIndex.ToString
        MyLV.Columns(_ColumnIndex).Text = ""
        MyLV.Columns(_ColumnIndex).Width = Math.Max(Width - 1, 0)
        MyLV.Columns(_ColumnIndex).TextAlign = Align
        MyLV.Width += Width - 1     ' Accum.
        _TotalWidth += Width - 1    ' Accum.
    End If
    Hdr.Width = Width           ' Header
    Hdr.Text = Text
    Hdr.TextAlign = Lbl_Align
    Box.Width = Width           ' Box
    Box.Text = ""
    Box.TextAlign = Lbl_Align
    LblDrop.Left = _TotalWidth  ' DropDown "Button"
    LblDrop.Height = _BoxHeight
    If _ColumnCount > 1 Then    ' All but first
        Controls.AddRange({Box, Hdr})
    End If
    Me.ResumeLayout(True)
    RedrawControls()
End Sub

如何调用这个方法的例子: 隐藏,复制Code

Mccb1.AddColumn(140, "Name")    ' Align not specified = HorizontalAlignment.Left
Mccb1.AddColumn(35, "Age", HorizontalAlignment.Center)
Mccb1.AddColumn(90, "Due date", 2)  ' 2 = HorizontalAlignment.Center
Mccb1.AddColumn(90, "Amount (US$)", HorizontalAlignment.Right)

如前所述，AddColumn方法创建新列，并设置其不可更改的属性。但是要完全完成在组件设置时，我们必须初始化可以随时更改的属性。因此，我们将创建一个特定的(私有的)子例程(RedrawControls)，它也被AddColumn方法(最后一条指令)调用:注意，因为控件的大小改变了(Me)。高度,. Me.Width)，控件的调整大小事件将被触发: 隐藏,收缩,复制Code

Private Sub RedrawControls()
    Me.SuspendLayout()
    MyLV.Top = _HeaderHeight + _BoxHeight - 2
    MyLV.BackColor = _ListBackColor
    MyLV.ForeColor = _ListForeColor
    MyLV.BorderStyle = _ListBorderStyle
    Dim Name As String
    For iCtr As Integer = 0 To _ColumnIndex ' For each Column...
        Name = "Box" & iCtr.ToString
        Controls(Name).Top = _HeaderHeight - 1
        Controls(Name).Height = _BoxHeight
        Controls(Name).BackColor = _BoxBackColor
        Controls(Name).ForeColor = _BoxForeColor
        Dim Lbl As Label = CType(Controls(Name), Label)
        Lbl.BorderStyle = _BoxBorderStyle
        Name = "Hdr" & iCtr.ToString
        Controls(Name).Height = _HeaderHeight
        Controls(Name).BackColor = _HeaderBackColor
        Controls(Name).ForeColor = _HeaderForeColor
        Lbl = CType(Controls(Name), Label)
        Lbl.BorderStyle = _HeaderBorderStyle
    Next
    LblDrop.Top = _HeaderHeight - 1
    LblDrop.Height = _BoxHeight
    _Me_MinHeight = _HeaderHeight + _BoxHeight - 1
    Me.Height = _Me_MinHeight
    Me.Width = _TotalWidth + 20 ' 20=LblDrop.Width
    Me.ResumeLayout(True)
End Sub

查看所提供的源项目。代码或复制调用RedrawControls的所有其他属性。特别注意两个操作不同的属性:第一个是ListFontStyle，它的类型是由Enum LFStyle定义的，它设置变量_ListFontStyle并调用每当字体改变时发生的事件(FontChanged)。第二个是LayerOrder，它的类型是由枚举LayOrder定义的，它设置变量_LayerOrder，但是它的操作是在之前执行的，这取决于它之前的值。为什么?因为，如果a和b没有任何疑问，那么将值设置为0 (Normal)就意味着要更改最后的行为。该操作也必须在控件加载时在控件的加载事件中执行。让我们看看Load和FontChanged事件，以及两个属性: 隐藏,复制Code

Private Sub MCCB_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    If _LayerOrder = 1 Then
        Me.BringToFront()
    ElseIf _LayerOrder = 2 Then
        Me.SendToBack()
    End If
End Sub

隐藏,复制Code

Private Sub MCCB_FontChanged(sender As Object, e As EventArgs) Handles Me.FontChanged
    MyLV.Font = New Font(Me.Font, If(_ListFontStyle = 0, _
                                    Me.Font.Style, FontStyle.Regular))
End Sub

隐藏,复制Code

<Category("_MCCB specifics")> _
<Description("Action in List when Control's Font changes to Bold")> _
Public Property ListFontStyle() As LFStyle
    Get
        Return _ListFontStyle
    End Get
    Set(ByVal value As LFStyle)
        _ListFontStyle = value
        MCCB_FontChanged(Nothing, Nothing)
    End Set
End Property

隐藏,复制Code

<Category("_MCCB specifics")> _
<Description("Control's Layer Order Action")> _
Public Property LayerOrder() As LayOrder
    Get
        Return _LayerOrder
    End Get
    Set(ByVal value As LayOrder)
        If value = 1 OrElse (value = 0 And _LayerOrder = 2) Then
            Me.BringToFront()
        ElseIf value = 2 OrElse (value = 0 And _LayerOrder = 1) Then
            Me.SendToBack()
        End If
        _LayerOrder = value
    End Set
End Property

让我们创建一个为列表提供内容的方法。它需要一个字符串数组，每个子项一个字符串，包括任何隐藏列。它很简单，因为这样的数组可以直接转换为所需的ListViewItem类型。返回一个布尔值，表示操作的成功(True)或失败(False): 隐藏,复制Code

Public Function AddRow(SubItems As Array) As Boolean
    Dim OK As Boolean = False
    If SubItems.Length > _ColumnIndex + 1 Then
        MsgBox("SubItems (" & SubItems.Length.ToString & _
               ") exceeds the number of Columns (" & _
               (_ColumnIndex + 1).ToString & ")...", _
               MsgBoxStyle.Critical, _Error)
    Else
        Try
            MyLV.Items.Add(New ListViewItem(SubItems))
            _ItemsCount += 1
            OK = True
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, _Error)
        End Try
    End If
    Return OK
End Function

如何调用这个方法的例子: 隐藏,复制Code

Dim vAge As Byte = 35
Dim vDate As String = Today.ToShortDateString
Dim vValue As Single = 1234.56
If Mccb1.AddRow({"John Smith", vAge.ToString, vDate, Format(vValue, "#,###.00")}) = False Then
   ' Something went wrong...
End If

当选择列表行时，必须在相应的框中显示该行的子项。为了执行这个任务，让我们创建一个子ShowSelectedItem，以及要执行这个任务的三种情况:1-我们的控件的属性(不可浏览和隐藏)SelectedIndex, 2-我们的控件的方法FindNextItem和3- ListView事件ItemSelectionChanged。我们控制火灾的事件(ItemSelectionChanged)(代码片段# 1),选择是提高了,每当一个新行,并提供一个字符串数组的值的所有子项选定行,也简单的子()(代码片段# 2)用于显示一个错误消息,当检测到无效的负折射率,和一个函数(GetSubItems)准备上述一系列字符串,用于方法FindNextItem: 隐藏,复制Code

Public Event ItemSelectionChanged(SubItems As Array)

隐藏,复制Code

Private Sub MsgNoNeg(Prefx As String)
    MsgBox(Prefx & " cannot be negative...", _
           MsgBoxStyle.Critical, _Error)
End Sub

隐藏,复制Code

Private Sub ShowSelectedItem()
    Dim BoxName As String
    For iCtr As Integer = 0 To _ColumnIndex
        BoxName = "Box" & iCtr.ToString
        Controls(BoxName).Text = MyLV.Items(_SelectedIndex).SubItems(iCtr).Text
    Next
End Sub

隐藏,复制Code

Private Function GetSubItems() As Array
    Dim SubItems(_ColumnIndex) As String
    For iSI As Integer = 0 To _ColumnIndex
        SubItems(iSI) = MyLV.Items(_SelectedIndex).SubItems(iSI).Text
    Next
    Return SubItems
End Function

隐藏,复制Code

 <Browsable(False)> _
<DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Property SelectedIndex() As Integer
    Get
        Return _SelectedIndex
    End Get
    Set(ByVal value As Integer)
        If value < 0 Then
            MsgNoNeg("Index")
        Else
            If value >= _ItemsCount Then
                MsgBox("Last Index = " & (_ItemsCount - 1).ToString, _
                       MsgBoxStyle.Critical, _Error)
            Else
                If _SelectedIndex >= 0 Then
                    MyLV.Items(_SelectedIndex).Selected = False
                End If
                _SelectedIndex = value
                MyLV.Items(_SelectedIndex).Selected = True
                ShowSelectedItem()
                ShowHideList(Show:=False)    'Close List
            End If
        End If
    End Set
End Property

隐藏,收缩,复制Code

Public Function FindNextItem(ColumnIndex As Integer, SearchString As String) As Array
    Dim FoundItem(_ColumnIndex) As String
    If ColumnIndex >= 0 Then
        If ColumnIndex > _ColumnIndex Then
            MsgBox("Maximum ColumnIndex is " & _ColumnIndex.ToString & "...", _
                   MsgBoxStyle.Critical, _Error)
        Else
            If ColumnIndex = _FNIlastIdx And SearchString = _FNIlastStr Then
                ' Same values, serch next
                _FNI_iFrom += 1
            Else
                ' New values, search first
                _FNI_iFrom = 0
                _FNIlastIdx = ColumnIndex
                _FNIlastStr = SearchString
            End If
            If _FNI_iFrom >= 0 Then

                Dim Found As Boolean = False
                Dim iCtr As Integer
                For iCtr = _FNI_iFrom To _ItemsCount - 1
                    If Strings.InStr(MyLV.Items(iCtr).SubItems(ColumnIndex).Text, _
                                     SearchString, CompareMethod.Text) > 0 Then
                        ' Item found...
                        Found = True
                        _SelectedIndex = iCtr
                        FoundItem = GetSubItems()
                        ' Select Item
                        If _SelectedIndex >= 0 Then
                            MyLV.Items(_SelectedIndex).Selected = False
                        End If
                        MyLV.Items(_SelectedIndex).Selected = True
                        ShowSelectedItem()
                        ShowHideList(True)
                        Exit For
                    End If
                Next
                _FNI_iFrom = iCtr
                If Found = False And iCtr = _ItemsCount Then
                    MsgBox("No match...", MsgBoxStyle.Information, "Info")
                    FoundItem = Nothing
                End If
            End If
        End If
    Else
        MsgNoNeg("ColumnIndex")
    End If
    Return FoundItem
End Function

隐藏,复制Code

Private Sub MyLV_ItemSelectionChanged(sender As Object, e As ListViewItemSelectionChangedEventArgs) _
            Handles MyLV.ItemSelectionChanged
    Dim FoundItem(_ColumnIndex) As String
    If e.IsSelected Then
        _SelectedIndex = e.ItemIndex
        ShowSelectedItem()
        ShowHideList(False)     ' Close List
        RaiseEvent ItemSelectionChanged(GetSubItems)
    End If
End Sub

还有两个简单的方法，Clear和下拉列表: 隐藏,复制Code

Public Sub Clear()
    MyLV.Items.Clear()
    _ItemsCount = 0
    For iCtr As Integer = 0 To _ColumnIndex
        Controls("Box" & iCtr.ToString).Text = ""
    Next
    ShowHideList(False)     ' Close the List
End Sub

隐藏,复制Code

Public Sub DropDown()
    ShowHideList(True)      ' Drop-down the List
End Sub

这是所有。我组织控制的代码在区域: 隐藏,复制Code

Imports
Enums & Variables
Public Properties
Public Methods
Public Event
Control Events
Private Subs/Functions
Initialization

#区域“初始化”是由设计器生成的代码。 最后，在你的WinForms应用程序: 将MCCB.dll复制到它的启动路径(在项目中\bin\调试或\bin\Release)，然后在Visual Studio中最终的. exe文件夹中添加一个Reference: Menu Project - Add Reference…-浏览…- mccb .dll在工具箱中放置一个图标():菜单工具-选择工具箱项目…- .NET框架组件-浏览…——MCCB.dll。该图标将出现在所有Windows窗体组下。 控件本身的属性、方法和事件的简要描述 属性 盒子的背面颜色(es)。Box borderstyle -框的边框样式。盒子前色-盒子的前色。箱高-箱高(es)。标题的背面颜色。标题的边框样式。标题前的颜色。HeaderHeight -标题的高度。控制的层命令动作。ListBackColor -列表的返回颜色。列表的边框样式。ListFontStyle -当控件的字体更改为粗体时，在列表中操作。ListForeColor—列表的前颜色。MaxItemsDisp—列表中显示的最大项数。SelectedIndex—在列表中被选择(或将要被选择)的项目的索引。 方法 AddColumn(宽度为整数，文本为字符串，[Align As HorizontalAlignment = horizontalalignated .Left])—添加一个列，给定它的宽度(以像素为单位)，它的(标题)文本和它的对齐方式(左、中、右)。AddRow(子条目为数组)——向列表中添加一行，给定一个字符串数组。返回一个布尔值，指示操作的成功(真)或失败(假)。清除——清除控件的列表和框。下拉列表-下拉列表。FindNextItem(ColumnIndex作为整数，SearchString作为字符串)作为数组——在给定的列的值中查找给定字符串的下一个出现点。选择发生匹配的行及其子数组物品返回。当没有更多匹配时，数组什么也不是，但是最后选中的行仍然是选中的。 事件 ItemSelectionChanged(子项目作为数组)——当从列表中选择了新行时发生。 历史 09.年3月。2016 -第一岗位 本文转载于：http://www.diyabc.com/frontweb/news365.html