零碎代码

'显示关闭计算机对话框
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)
------
整理添加中...