VB中XP风格的控件
谁有VB中XP风格的控件 啊!!
changjun86@163.com
问题点数：20、回复次数：7Top
1 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2006-10-12 21:09:17 得分 0
http://www.play78.com/blog/blogview.asp?logID=362
http://www.play78.com/blog/blogview.asp?logID=40Top
2 楼zq972（最近不想写代码，好累~~~~）回复于 2006-10-12 23:05:30 得分 0
google啊Top
3 楼wydajjj（）回复于 2006-10-16 15:37:22 得分 0
刚刚看到的，牛啊！
http://blog.csdn.net/songyaowu/archive/2006/10/08/1325841.aspxTop
4 楼lc_mtt（柠檬把大飞猪裤子一脱...被大飞猪投诉了）回复于 2006-10-16 16:28:53 得分 0
网上M多，其中流传有几个是我写的^_^Top
5 楼gdgf（）回复于 2006-10-18 15:04:50 得分 0
关注,我也在找Top
6 楼wydajjj（）回复于 2007-01-24 23:30:34 得分 0
我是在去年的电脑报上看到的这个控件, 现在它已升级至2.0版。我一直用这套控件，无论是资源占用还是它的功能，都是非常不错。昨天我还和它的作者聊了几句，听说最近又要升级了。
首先你到天空软件站下载这个控件：
http://shareware.skycn.com/soft/532.htm
或它作者主页下载
http://www.vb99.com/product/acControl/register.asp
虽然这是个共享版控件，它在运行时弹出注册对话框，但你用下面的方法，可以随意使用而不弹出对话框：
像使用其他控件一样，在工程中添加这个控件到工具箱，然后将工程属性对话框中的“删除有关未使用的ActiveX控件信息”取消，写如下面的代码:
Option Explicit
Private WithEvents acButton As AnoleCommandButton.acButton
Private Sub acButton_Click()
MsgBox "This is a dynamically added button."
End Sub
Private 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://www.vb99.com
Top
7 楼greenabc（green）回复于 2007-01-30 17:01:12 得分 0
http://community.csdn.net/Expert/topic/5323/5323689.xml?temp=.2694666Top
