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