Question

[倾家荡产求助]VB编写程序，动态添加控件并保存设置

小弟想编写一个程序，实现动态添加控件，并把设置保存。
举例：做一个软件工具包，可实现自定义添加软件：类别设置为系统软件，网络软件，多媒体工具，点击系统软件，出现CPU-Z，360安全卫士等；点网络软件，出现QQ,MSN等各种软件为绿色软件，文件夹放在本程序目录，最重要的实现可以可以动态添加类别和软件，比如添加一个“其他工具”类别，里面可以再添加“WinRAR”等。
跪求！！如何添加控件，并保存设置，下次打开是添加好的。
效果类似下图

Answer 1

参看音速启动

动态加载参考http://hi.baidu.com/xiaoyufen/blog/item/c20ddcc41901abca38db495b.html/cmtid/3a98b3fb2ea409244e4aea78

保存设置可写ini文件

还有就是实现拖放 

给你一点参考

Private Sub Command1_Click()

SSTab1.Tabs = SSTab1.Tabs + 1

SSTab1.TabCaption(SSTab1.Tabs - 1) = InputBox("请输入自定义类别名称")

End Sub

Private Sub Form_Load()

SSTab1.Tabs = 3

SSTab1.TabsPerRow = 3

SSTab1.TabCaption(0) = "系统软件"

SSTab1.TabCaption(1) = "网络软件"

SSTab1.TabCaption(2) = "多媒体软件"

End Sub

Private Sub List1_DblClick(Index As Integer)

Shell "Explorer " & List1(SSTab1.Tab).List(List1(SSTab1.Tab).ListIndex), vbNormalFocus

End Sub

Private Sub SSTab1_OLEDragDrop(Data As TabDlg.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)

List1(SSTab1.Tab).AddItem Data.Files(1)

End Sub

选项卡控件在microsoft tabbed dialog control

list1是控件数组

设置sstab1的ole属性

Answer 2

做控件数组就行了，增加只要load
如果不用数组 , createobject("vb.command")