If bIsWinNT Then ''''WinNT操作系统
With Combo1
.AddItem "0 - 关闭程序并以其它用户身份登陆"
.AddItem "1 - 关闭计算机"
.AddItem "2 - 重新启动计算机"
.Text = ""
End With
Else ''''Win95/98操作系统
End If
Command1.Caption = "关闭系统对话框"
Command2.Caption = "关闭或重新启动计算机"
End Sub
运行程序,点击“关闭系统对话框”按钮就可以弹出关闭系统对话框。在Combo1中选择关闭系统、重新启动或者关闭程序并以其它用户身份登陆项再点击“关闭或重新启动计算机”按钮,系统就会弹出提示对话框提示是否执行相应的操作,点击“是”就可以执行了。
E-Mail vbcode@21cn.com
上一页 [1] [2]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18