VB 版 (精华区)

发信人: happyok (好高兴,好高兴), 信区: VB
标  题: 显示关闭对话框
发信站: 哈工大紫丁香 (2000年07月16日11:16:58 星期天), 转信

'说明：表单一个；命令按钮一个为CmdShutDown
Option Explicit
Private Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal You
rGuess As Long) As Long
Private Sub cmdShutDown_Click()
ShutDownDialog 0 '显示关闭计算机对话框
End Sub

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.97.206.203]