VB里Option选定后 用command

来源：百度知道 编辑：UC知道 时间：2024/05/30 21:19:38
我在窗口上建立了frame 然后在frame里放入5个option 然后 我打算这5个option显示5的网站名字 单选后 按command 来打开该网站 ````不知道要如何写？
有没简单点的？ 太复杂了``看不懂

建立option数组
dim ss as string
private sub option_click(index as integer)
ss=option(index).caption
end sub
private sub command_click()
select case ss
case "百度"
shell "explorer http://www.baidu.com"
case "新 浪"
shell "explorer http://www.sinaa.com"
end select
end sub

加我百度hi或QQ（554928675 答案：左俞平），我发给你源程序 !!!说了几次了

再窗体上新建一个option为option1，然后新建一个command button 为CmdRun。选中option1，按复制，再在窗体上按粘贴会问你是否创建控件数组，选是。粘贴5个。
把每个option1的Caption属性写上网站地址。然后打开代码，这样输入：

Option Explicit
Public a As Integer

Private Sub CmdRun_Click()
Open App.Path & "open.bat" For Output As #1
Print #1, "start " & Option1(a).Caption
Close #1
Shell App.Path &