免费使用Anole示例——动态创建带有排序功能和下拉列表风格的组合框

　　经常有网友询问如何免费使用Anole控件，其实方法很简单，只要您使用代码动态建立控件就可以不弹出注册对话框了。动态创建控件主方法与ＶＢ的标准方法一致，这在ＭＳＤＮ中也有相应的说明。需要指出的是，这不是一个ＢＵＧ，而是作者故意留下的一个后门，以方便学生或自由软件开发者。

　　下面我通过一个例子 给大家演示一下：

　　这个例子演示了如何动态建立 ComboBox 控件，并设置 Sort 和 Style 属性。工程需要一个窗体，三个Lable控件。

　　Option Explicit

　　Private WithEvents acComboBox1 As acComboBox

　　Private Sub acComboBox1_SelectedIndexChanged(ListIdx As Long)
　　　　'' 注意，这里使用了 SelectedIndexChanged 事件
　　　　Label1.Caption = "Text: " & acComboBox1.List(ListIdx)
　　　　Label2.Caption = "Listindex: " & acComboBox1.ListIndex
　　　　Label3.Caption = "ItemData: " & acComboBox1.ItemData(ListIdx)
　　End Sub

　　Private Sub Form_Load()
　　　　'' 动态建立控件
　　　　Set acComboBox1 = Me.Controls.Add("AnoleComboBox.acComboBox", "acComboBox1")
　　　　
　　　　With Me!acComboBox1
　　　　　　.Visible = True
　　　　　　.Width = 3000
　　　　　　.Height = 400
　　　　End With

　　　　Dim i As Long

　　　　For i = 0 To 50
　　　　　　acComboBox1.AddItem "项目" & CStr(i)
　　　　　　acComboBox1.ItemData(acComboBox1.NewIndex) = i
　　　　Next

　　　　'' 注意，下面的属性是在运行时改变的，现在您应该可以看到它的优势了
　　　　acComboBox1.Sorted = True
　　　　acComboBox1.Style = vbComboDropdownList
　　End Sub