checkbox如何在三态间切换？

Question

checkbox如何在三态间切换？如何具体实现三种状态的选定呢?(接正极/接负极/悬空)
在现实世界中，不仅仅是0/1，真/假等两种状态，常常是有三种状态存在，如-1/0/1 ，接正极/接负极/悬空。
数量关系：
4*24*3
4组*24对电位*3种状态有什么比较好的方法？
check box?  
option botton?
还是用其它部件？ 
用combo太占用窗体空间。我个人认为checkbox最合适，有三态，请问如何设置其属性，能在三态间切换？请各位大侠指点指点。赵全
[email protected]
2003.7.22

Answer 1

Check1.Value = 0选
Check1.Value = 1不选
Check1.Value = 2灰

Answer 2

个人认为用Option Button数组实现比较好，用于控制只能选中一种状态,都不用写代码控制单选的情况Private Sub Option1_Click(Index As Integer)
    Select Case Index
        Case 0 '接正级
        Case 1 '接负级
        Case 2 '悬空
    End Select
End Sub

Answer 3

左键切换悬空和接正极，右键选择接负极：Option Explicit
Dim strCap(2) As String
Dim lngClr(2) As LongPrivate Sub Check1_Click()
    Check1.Caption = strCap(Check1.Value)
    Check1.ForeColor = lngClr(Check1.Value)
End SubPrivate Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then Check1.Value = 2
End SubPrivate Sub Form_Load()
strCap(0) = "悬空"
strCap(1) = "接正级"
strCap(2) = "接负级"
lngClr(0) = vbBlack
lngClr(1) = vbRed
lngClr(2) = vbBlue
End Sub