CSDN博客

img yinweihong

零碎代码

发表于2004/9/27 2:55:00  744人阅读

分类: 其他

'显示关闭计算机对话框
Option Explicit
Private Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Private Sub cmdShutDown_Click()
ShutDownDialog 0
End Sub
-------
删除目录及其内容
Private Sub Form_Load()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.deletefolder ("D:/Folder"), True '删除只读
MsgBox "Done"
End Sub
------
输入数字1234后,字符变成1,234
format(Text1.text,"standard")
format(Text1.text,"#,###")
FormatNumber(19862736, , , , vbTrue)
------
理添加中...

阅读全文
0 0

相关文章推荐

img
取 消
img