可以转到一个页面.如何实现?
楼上的答案非常正确,最简便,但不太适合optionbutton多的情况
这样的时候你可以建立一个控件组(你把控件复制粘贴的时候系统就会提示你是否建立数组,选是就可以了):
例如:option1(0)~~option1(9)
private sub command1_click()
dim i as option
for each i in optionbutton
if i。
value=true then
select case i。index
case 0
执行第一个任务
case 1
执行第二个任务
case。
。。。。。。
end select
end if
next
end sub
如果你的任务也是数组形式那就更好了
private sub command1_click()
dim i as option
for each i in optionbutton
if i。
value=true then
msgbox "执行第" & i。index & "个任务"
end if
next
end sub
这样可以优化代码。
[展开]
Private Sub Command1_Click() If Option1.Value = True Then Form2.Show Else If Option2.Value = True Then Form3.Show End If End Sub 详细可见程序:
线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是...