Office中国论坛/Access中国论坛

标题: [求助]自动重新启动 [打印本页]

作者: zx1688 时间: 2005-4-6 17:09
标题: [求助]自动重新启动
有什么办法让系统(ACCESS做的程序)重新启动？谢谢

作者: xinbao 时间: 2005-4-6 20:28
docmd.quit,然后做个批处理bat

作者: zx1688 时间: 2005-4-6 20:42
谢谢!能否说具体点吗？

作者: 方漠 时间: 2005-4-7 19:36
重新启动计算机的实现
在Windows下安装过程序的用户可能都有这样的体会，当安装完某些应用程序后，安装程序会要求重新启动计算机以使设置生效。那么，如果要用VB程序重新启动计算机该如何实现呢？其实利用ExitWindowsEx函数即可。
程序的编写
1．首先运行VB，然后新建一个工程（工程类型为标准EXE），然后双击Form1窗体，进入代码（Code）输入框，在其中输入：
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved
As Long)As Long
2．点击“工具箱”中的commandbutton（命令按钮）工具，即可在窗体Form1中加入一个命令按钮，然后将该按钮属性中的Caption值定义为“重新启动”。完成之后双击该按钮，进入代码（code）输入框输入以下代码：
Private Sub Command1_Click()
ExitWindowsEx &H43,0
End Sub
程序的执行
程序输入完成后，点击VB“运行”菜单中的“启动”或“全面编译”命令，然后点击“重新启动”按钮，即可重新启动计算机。

作者: ganrong 时间: 2005-4-7 19:37
提示: 作者被禁止或删除内容自动屏蔽

作者: zx1688 时间: 2005-4-11 05:01
谢谢方漠

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)