在VB 中如何使用代码添加一个按钮，然后还要使这个按钮具有链接的功能

来源：百度知道 编辑：UC知道 时间：2024/05/20 20:32:34
比如说我做一个程序，是那种网站链接的，直接在VB中作没问题，但程序做好以后可能还有需要添加，这个应该怎么做？

就是我作一个程序，程序中有一些按钮，这些按钮点击可以链接到一些网站，但程序中的网站是固定的几种，如果我想添加其他的网站怎么做？

做成控件数组示例：
新建.exe工程，在form1添加COMMAND1命令按钮，复制再粘贴，提示是否创建控件数组，选是，再加一个文本框用来设定新网址或内容，在加一个COMMAND2按钮来添加按钮。
代码：
Option Explicit

Dim web(100) As String
Dim maxIndex As Integer

Private Sub Command1_Click(Index As Integer)
MsgBox web(Index + 1)
End Sub

Private Sub Command2_Click()
Load Command1(maxIndex)
With Command1(maxIndex)
.Left = Command1(maxIndex - 1).Left + 735
.Top = Command1(maxIndex - 1).Top
.Visible = True
.Caption = maxIndex + 1
End With
maxIndex = maxIndex + 1
web(maxIndex) = Text1
End Sub

Private Sub Form_Load()
web(1) = "http://www.aaa.com"
web(2) = "http://www.bbb.com"
maxIndex = 2
End Sub

把要链接的网站写在一个