问一个我认为比较复杂的问题，求解！ - 编程论坛

#2

wube2012-05-12 14:55

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

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

#3

wube2012-05-12 15:22

http://topic.

#4

事业男儿2012-05-12 20:22

小飞侠你跟我说的代码倒是有点像,但是关闭界面后按钮就消失了,再说,也没有我说的那个增加名字和链接的对话框,我很笨麻烦说详细点.谢谢!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

#5

风吹过b2012-05-12 20:33

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

第一部分
动态增加控件，要求该控件为一个控件数组。
第一个按钮，如你在四楼的代码就可以用来增加按钮。
增加按钮后，你要弹出一个对话框，也就是你一楼第二个图，然后把内容保存下来，这里以保存到 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属性，与不兼容。