vb中编译错误：未找到方法或数据成员

来源：百度知道 编辑：UC知道 时间：2024/06/17 05:21:02
Private Sub C1_Click()
If Ch1.Value = 1 & Ch2.Value = 2 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch1.check
End If
If Ch2.Value = 1 & Ch1.Value = 2 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch2.check
End If
If Ch3.Value = 1 & Ch2.Value = 2 & Ch1.Value = 2 Then
Print "我的爱好是" & Ch3.check
End If
If Ch1.Value = 1 & Ch2.Value = 1 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch1.check & "和" & Ch2.check
End If
If Ch1.Value = 1 & Ch3.Value = 1 & Ch2.Value = 2 Then
Print "我的爱好是" & Ch1.check & "和" & Ch3.check
End If
If Ch2.Value = 1 & Ch3.Value = 1 & Ch1.Value = 2 Then
Print "我的爱好是" & Ch2.check & "和" & Ch3.check
End If
If Ch1.Value = 1 & Ch2.Value = 1 & Ch3.Value = 1 Then
Print "我的爱好是" & Ch1.check & Ch2.check & "和"

checkbox没有check这个属性！~ 你要的应该是caption

Private Sub C1_Click()
If Ch1.Value = 1 & Ch2.Value = 2 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch1.caption
End If
If Ch2.Value = 1 & Ch1.Value = 2 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch2.caption
End If
If Ch3.Value = 1 & Ch2.Value = 2 & Ch1.Value = 2 Then
Print "我的爱好是" & Ch3.caption
End If
If Ch1.Value = 1 & Ch2.Value = 1 & Ch3.Value = 2 Then
Print "我的爱好是" & Ch1.caption & "和" & Ch2.caption
End If
If Ch1.Value = 1 & Ch3.Value = 1 & Ch2.Value = 2 Then
Print "我的爱好是" & Ch1.caption & "和" & Ch3.caption
End If
If Ch2.Value = 1 & Ch3.Value = 1 & Ch1.Value = 2 Then
Print "我的爱好是" & Ch2.caption & "和" & Ch3.caption
End If
If Ch1.Value = 1 & Ch2.Value = 1 & Ch3.Value = 1 Then