首先你到天空软件站下载这个控件: http://shareware.skycn.com/soft/532.htm 或它作者主页下载 http://www.vb99.com/product/acControl/register.asp 虽然这是个共享版控件,它在运行时弹出注册对话框,但你用下面的方法,可以随意使用而不弹出对话框:像使用其他控件一样,在工程中添加这个控件到工具箱,然后将工程属性对话框中的“删除有关未使用的ActiveX控件信息”取消,写如下面的代码:Option ExplicitPrivate WithEvents acButton As AnoleCommandButton.acButtonPrivate Sub acButton_Click() MsgBox "This is a dynamically added button." End SubPrivate Sub Form_Load() Set acButton = Controls.Add("AnoleCommandButton.acButton", "acButton") With acButton .Visible = True .Width = 2000 .Caption = "Hello" .Top = 1000 .Left = 1000 '.其他需要的属性 End With End Sub 其实这套控件中不仅是按钮,所有的控件都可以这样用,起初我以为是作者的一个漏洞,后来在帮助文档中才知道这是作者有意这样做的,目的是给一些免费软件作者或无收入软件作者留下的免费使用的方法。我一直用这套控件,无论是资源占用还是它的功能,都是非常不错。昨天我还和它的作者聊了几句,听说最近又要升级了。
http://shareware.skycn.com/soft/532.htm
或它作者主页下载
http://www.vb99.com/product/acControl/register.asp
虽然这是个共享版控件,它在运行时弹出注册对话框,但你用下面的方法,可以随意使用而不弹出对话框:像使用其他控件一样,在工程中添加这个控件到工具箱,然后将工程属性对话框中的“删除有关未使用的ActiveX控件信息”取消,写如下面的代码:Option ExplicitPrivate WithEvents acButton As AnoleCommandButton.acButtonPrivate Sub acButton_Click()
MsgBox "This is a dynamically added button."
End SubPrivate Sub Form_Load()
Set acButton = Controls.Add("AnoleCommandButton.acButton", "acButton")
With acButton
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
'.其他需要的属性
End With
End Sub
其实这套控件中不仅是按钮,所有的控件都可以这样用,起初我以为是作者的一个漏洞,后来在帮助文档中才知道这是作者有意这样做的,目的是给一些免费软件作者或无收入软件作者留下的免费使用的方法。我一直用这套控件,无论是资源占用还是它的功能,都是非常不错。昨天我还和它的作者聊了几句,听说最近又要升级了。