Question

VB中编译时提示未找到方法或数据成员

Private Sub Check1_Click(Index As Integer)
If Check1.Count = 1 Then
Text3.FontName = "黑体"
Else
Text3.FontName = "宋体"
End If
End Sub
这个代码是好使的

Private Sub Check1_Click(Index As Integer)
If Check1.Value = 1 Then
Text3.FontName = "黑体"
Else
Text3.FontName = "宋体"
End If
End Sub
这个就不好使

没有编译之前的截图如下

求大神详细说下。。。。不胜感谢





Answer 1

题主那几个 CheckBox 是复制粘贴的吧？Check1 已经是控件数组而非单个控件了，也就是是这四个 CheckBox 都叫 Check1，通过它们的 Index 属性来区分它们：

Private Sub Check1_Click(Index As Integer) '所以这里有个参数Index

既然是数组，就不能简单的用 Check1.Value 来取值了，而应该用：

If Index = 1 And Check1(Index).Value = 1 Then

追问

一看就是大神，能帮我解释一下VB中count item lbound ubound什么意思么。。。