我编写的如下代码:
Private Sub Check2_Click(Index As Integer)
If Check2.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
但是编写完成后运行却弹出如下提示
另外,在编写代码的过程中,提示代码也没有发现check2控件有value属性,如下图所示
我编写的如下代码:
Private Sub Check2_Click(Index As Integer)
If Check2.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
但是编写完成后运行却弹出如下提示
另外,在编写代码的过程中,提示代码也没有发现check2控件有value属性,如下图所示
重新安装一下控件
你的CHECK2是多个,而且是用复制的方法放到界面中的,你选择了“是”,也就是生成了控件数组
每个CHECK2的的单击,都会触发CLICK事件,但会传一个参数INDEX,来区分你到底按下了哪个CHECK2
INDEX从0开始,1 2 3 依次类推
所以,你应该写成:
Private Sub Check2_Click(Index As Integer) If Check2(Index).Value = 1 Then
其他的不用变化即可!