VB中如何用代码给文字添加删除线?
发布网友
发布时间:2022-04-29 16:29
我来回答
共2个回答
热心网友
时间:2022-05-19 13:59
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
热心网友
时间:2022-05-19 13:59
使用控件的FontStrikethru属性即可设置删除线
数值排序方法很多,我用冒泡法。三个数排序直接比较就行了
Sub
Command1_click
Dim
a,
b,
c
a
=
inputbox("请输入第一个数")
b
=
inputbox("请输入第二个数")
c
=
inputbox("请输入第三个数")
If
a>b
and
b>c
then
Print
a;b;c
end
if
if
a>b
and
b
c
then
print
a;c;b
else
print
c;b;a
end
if
'以下略
end
sub