VB里Option选定后用command

发布网友发布时间：2022-04-29 20:27

共3个回答

热心网友时间：2022-06-22 09:47

加我百度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 & "open.bat"
Kill App.Path & "open.bat"
End Sub

Private Sub Option1_Click(Index As Integer)
a = Index
End Sub

加我百度hi，我发给你源程序

热心网友时间：2022-06-22 09:47

建立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

热心网友时间：2022-06-22 09:48

这个用word的超链接就能做到

VB里Option选定后 用command

VB里Option选定后用command