dim a as integer
a=check1.value

解决方案 »

  1.   

    value 属性
       0  表示未选中
       1  表示选中
       2  表示不能进行选择
      

  2.   

    dim a as integer
    if check.value<>2 then '2是指check变灰
      a=check.value
    end if
      

  3.   

    if checkbox1.value=true then
    a=1
    else if checkbox1.value=false then
    a=0
    end if
      

  4.   

    dim a as integer
    select case check.value
       case 0
       a=0
       case else
       a=1
    end select
      

  5.   

    dim A as integer
    A=check.value
      

  6.   

    '完整代码示例:
    '在窗体上加一个 Check 和 一个 Command
    '------------------------------------Private Sub Command1_Click()
     If Check1.Value Then
        Check1.Value = 0
     Else
        Check1.Value = 1
     End If
    End Sub