帮忙看看这里哪里错了？？

来源：百度知道 编辑：UC知道 时间：2024/07/02 17:26:05
Private Sub Check1_Click(Index As Integer)
If Check1.Value = 1 Then
Text1.FontBold = True
Else: Text1.FontBold = False
End If

End Sub

Private Sub Check2_Click(Index As Integer)
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else: Text1.FontUnderline = False
End If
End Sub

Private Sub Opt1_Click()
Text1.FontSize = 16
End Sub

Private Sub Opt2_Click()
Text1.FontSize = 24
End Sub
楼下的朋友那个还是不行阿。。。。
奇怪了。。。。
就是说方法不对 或 找不到数据管理什么的

改成下面这个就好了
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
Text1.FontBold = True
Else: Text1.FontBold = False
End If

End Sub

Private Sub Check2_Click(Index As Integer)
If Check1(Index).Value = 1 Then
Text1.FontUnderline = True
Else: Text1.FontUnderline = False
End If
End Sub

Private Sub Opt1_Click()
Text1.FontSize = 16
End Sub

Private Sub Opt2_Click()
Text1.FontSize = 24
End Sub

Private Sub Check1_Click()
Text1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Text1.FontUnderline = Check2.Value
End Sub

Private Sub Opt1_Click()
Text1.FontSize = 16
End Sub

Private Sub Opt2_Click()
Text1.FontSize = 24
End Sub

=================================
把完整的错误信息附上 并指定黄线所在行的代码

Private Sub Check1_Click()
If Check1.Value