在VB 中如何使用代码添加一个按钮,然后还要使这个按钮具有链接的功能
比如说我做一个程序,是那种网站链接的,直接在VB中作没问题,但程序做好以后可能还有需要添加,这个应该怎么做?就是我作一个程序,程序中有一些按钮,这些按钮点击可以链接到一些...
比如说我做一个程序,是那种网站链接的,直接在VB中作没问题,但程序做好以后可能还有需要添加,这个应该怎么做?
就是我作一个程序,程序中有一些按钮,这些按钮点击可以链接到一些网站,但程序中的网站是固定的几种,如果我想添加其他的网站怎么做? 展开
就是我作一个程序,程序中有一些按钮,这些按钮点击可以链接到一些网站,但程序中的网站是固定的几种,如果我想添加其他的网站怎么做? 展开
2个回答
展开全部
做成控件数组示例:
新建.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
新建.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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询