VB中关于给文字添加下划线和删除线
发布网友
发布时间：2022-03-27 09:47
共2个回答
热心网友
时间：2022-03-27 11:16
Private Sub Check1_Click()
Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)
End Sub
Private Sub Check2_Click()
Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)
End Sub
热心网友
时间：2022-03-27 12:34
Private Sub Check1_Click()
Label1.Font.Underline = Check1
End Sub
Private Sub Check2_Click()
Label1.Font.Strikethrough = Check2
End Sub追问删除线可以用，下划线运行出现错误
追答那就看你控件名称是不是对了，我这运行是没问题的。还有出现的是什么错误。你的代码又是怎样的。
