Question

VB中关于给文字添加下划线和删除线

有Label1,Check1和Check2，单击Check1 Label1中文字有下划线效果，单击Check2 Label1中文字出现删除线效果。代码要怎么写？

Answer 1

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

Answer 2

Private Sub Check1_Click()
Label1.Font.Underline = Check1
End Sub
Private Sub Check2_Click()
Label1.Font.Strikethrough = Check2
End Sub

追问

删除线可以用，下划线运行出现错误

追答

那就看你控件名称是不是对了，我这运行是没问题的。还有出现的是什么错误。你的代码又是怎样的。