过程声明与同名事件或过程的描述不匹配

2025-04-16 18:55:26

推荐回答（1个）

回答1：

出现这个错误提示的原因通常是事件过程的声明语句中含有错误的参数，比如你这个，ChkBold、ChkItalic和ChkUnderline这三个多选框控件显然都是单个的控件，不是控件数组，所以括号里面的Index As Integer就是多余的、画蛇添足的，只有控件数组才有这个参数（代表数组中触发事件的那个数组成员的索引号）。
此外我还把你的代码优化了一下：
Option Explicit
Private Sub ChkBold_Click()
TxtContent.FontBold = ChkBold.Value = 1
End Sub
Private Sub ChkItalic_Click()
TxtContent.FontItalic = ChkItalic.Value = 1
End Sub

Private Sub ChkUnderline_Click()
TxtContent.FontUnderline = ChkUnderline.Value = 1
End Sub