Question

vb中代码中的下划线怎么打

vb中代码中的下划线怎么打

Answer 1

VB中用代码方式给文字添加下划线和删除线，代码如下：
//Underline属性添加下划线
Private Sub Check1_Click()
Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)
End Sub

//Strikethrough属性添加删除线
Private Sub Check2_Click()
Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)
End Sub