VB关闭编程

首先你用的关机方法是正规的API调用方式吗？这个问题和您采用的方法有莫大的关系，很有可能进行API调用时编程有错误，从而破坏系统的关机模块，建议再仔细分析一下源码，不行的话把源码流言给我，我帮您分析一下！

1、首先，在打开的VB编程软件中，写上一个程序框架。2、然后就可以在这里输入各种语句，根据自己需要可以多输几句。3、然后找到自己输入的两个语句块的中间部分。4、接着在中间的部分中，输入语句 【Exit sub】。5、最后输入完成后，就可以点击页面上方的运行选项按钮，去运行测试了。

检查这个程序是否结束运行，如果结束再继续就可以了下面是示例代码 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Lon...

接下来，就可以利用 FindWindow 函数获取窗口句柄，然后向这个窗口发送 WM_CLOSE 或 WM_QUIT 信息让窗口自行关闭:Handle = FindWindow("IEFrame", vbNullString)PostMessage Handle,WM_CLOSE,0,0 或 PostMessage Handle,WM_QUIT,0,0 均可。来源: 芯友网 http://www.xy-365.com 详细点击：http:...

希望能帮到你……private m_Action as long '这个变量来标示是什么打开或者关闭动作 Private Sub Command1_Click()if m_Action=0 then 'm_Action=0 标示打开 '---你的打开代码 else 'm_Action=1 标示关闭 '---你的关闭代码 end if end Sub ...

双击你需要添加功能的组件，填入相关代码。比如我有一个按钮叫“关闭”，双击这个关闭，在转到的代码行位置填写UNLOADME

'在窗体上添加text1和command1两个控件，text1用于输入要关闭的窗口的标题，command1用于执行关闭。'然后复制代码代码，运行后即可实现上述功能。'===窗体代码部分=== Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWind...

要关闭窗体，你需要在代码中调用Unload语句，其基本语法如下：Unload object 这里的object应替换为你要卸载的Form对象的名称，无论是窗体本身的名称还是控件数组中的元素。当窗体不再需要，或者你需要恢复其初始状态，比如清空数据或重新设置属性，卸载操作就显得很有必要。在VB编程中，unload语句是关闭窗体的...

x1.Quit Set x1 = Nothing '释放内存 Set x1Book = Nothing Set x1Sheet = Nothing 这部分代码才会导致你说的进程没关闭的问题。如果是程序中间出错你可以在程序开始处加入ON ERROR GOTO XX 语名。然后在错误处理开始处判断X1是否退出，如果否在判断语句后加入上面几行代码就OK了。

windows 关机在dos下操作是：shutdown -s -t 0 在VB中，你可以使用 shell 调用这个命令 Shell "shutdown -s -t 0"上面不行的话，你可以试试带路径的：Shell "%windir%\system32\shutdown.exe -s -t 0"