您的位置：程序门 -> vb -> 控件

请教checkbox控件实现和optionbutton控件一样的功能遇到的一个小问题..在线等...

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教checkbox控件实现和optionbutton控件一样的功能遇到的一个小问题..在线等...[已结贴,结贴人:guxing110]

发表于：2007-06-04 09:19:46 楼主

新建一个窗体。在窗体上面添加四个checkbox是数组０－2。控件数组名是check1
然后添加以下代码。

private sub check1_click（index as integer)
select case index
case 0
check1.item（0).value = 1
check1.item（1).value = 0
check1.item（2).value = 0
case 1
check1.item（0).value = 0
check1.item（1).value = 1
check1.item（2).value = 0
case 2
check1.item（0).value = 0
check1.item（1).value = 0
check1.item（2).value = 1
end select
end sub

我想要实现的功能是当按其中一个checkbox时根据index值。只选中index的那个。其余的取消选中。

上面那些代码说堆栈空间溢出。我一步一步调式时发现选了好几次。
在线等。。

发表于：2007-06-04 09:44:411楼得分:20

private sub check1_click（index as integer)
if check1.item（index) = 0 then exit sub
select case index
case 0
check1.item（1).value = 0
check1.item（2).value = 0
case 1
check1.item（0).value = 0
check1.item（2).value = 0
case 2
check1.item（0).value = 0
check1.item（1).value = 0
end select
end sub

发表于：2007-06-04 09:53:282楼得分:0

谢谢...

下一篇：哪位用过 vfoutbar 这个控件？（最后10分）
上一篇：如果改变combobox下拉列表的颜色？

其他资讯