育才学习网1. vb添加删除的代码怎么写
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。
2. vb添加删除的代码怎么写
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
3. VB的“删除桌面快捷键”代码怎么写
Private Sub Command1_Click()
If Dir(Environ("userprofile") & "\桌面\" & "qq.lnk") <> "" Then
Kill Environ("userprofile") & "\桌面\" & "qq.lnk"
End If
End Sub
====================================
这样比较好，因为有的人的系统不一定在C盘。
关于Environ（)函数
返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用
取得当前用户的用户名：Environ("username")
取得计算机名：Environ("computername")
取得windows文件夹路径：Environ("windir")
取得当前用户的用户文件夹：Environ("userprofile")
具体请看：
4. VB中如何用代码给文字添加删除线
使用控件的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 bif a>c then
print a;c;b
else
print c;b;a
end if
'以下略
end sub