如上图所示，如何点击右下角的按钮可以在界面上增加按钮和链接，有源码的老师，麻烦你们贴出来学习一下，点击增加按钮和链接效果如下图所示

[ 本帖最后由 事业男儿 于 2012-5-12 11:16 编辑 ]

vb 动态增加表单控件
http://www.

[ 本帖最后由 wube 于 2012-5-12 14:59 编辑 ]

http://topic.

小飞侠你跟我说的代码倒是有点像,但是关闭界面后按钮就消失了,再说,也没有我说的那个增加名字和链接的对话框,我很笨麻烦说详细点.谢谢!Private Sub cmdBtn_Click(Index As Integer)
Dim btn     As CommandButton
Dim iIndex     As Integer
iIndex = cmdBtn.Count
If iIndex <= 32767 Then
Load cmdBtn(iIndex)
Set btn = cmdBtn(iIndex)
With btn
.Top = cmdBtn(iIndex - 1).Top + 620
.Caption = "Command " & iIndex + 1
.Visible = True
End With
Set btn = Nothing
End If
End Sub

增加按钮 和 给按钮再加增加功能，分二部分做。
第一部分，增加按钮
第二部分，响应功能

第一部分
动态增加控件，要求该控件为一个控件数组。
第一个按钮，如你在四楼的代码就可以用来增加按钮。
增加按钮后，你要弹出一个对话框，也就是你一楼第二个图，然后把内容保存下来，这里以保存到 TAG 属性为例。
dim s as string
s=名称 & vbcrlf & 地址
cmdBtn(iIndex).tag=s

第二部分：
Private sub cmdBtn_Click(Index as integer)
dim s() as string
'取网址
s=split(cmdbtn(index).tag,vbcrlf)
'然后打开地址就是
WebBrowser1.Navigate  s(1)
end sub

'注意，使用TAG属性，与 不兼容。