windows之家1.卸载控件
------------------------------------------------------ 最新修改回答： 对不起我没注意，您的控件是windowless类型的控件，比如 image,label,flash,shape等都是这样的，这样有两个方法卸载，不过思想都是一样的，就是把它放进一个由窗口句柄的容器里： 1。
直接放进picbox里，或者根本就用picturebox代替你的图形控件，只要你要用的不是image的strenth属性，完全可以用picbox代替。 2。
如果您要用的恰好是image的strenth属性，可以自己定义一个用户控件，在里面设置一个只读属性“hWnd”，就可以由程序正常卸载了。 但是label空间就不一样了，无论怎样，只要您把它放进picbox还是其他容器，背景透明的功能都无法实现。
如果您的自定义控件不熟悉的话，可以发邮件给我，我给你个例子。 由于我的粗心给您带来的不便敬请原谅 ———————————————————————— 上面几位大虾没有把问题搞清楚，是卸载非动态控件，而不是卸载系统中的什么 一般情况下卸载动态加载的控件只需unload ，而对非动态加载的控件无效，不过可以让他自己关闭就行了 我们可以用sendmessage关闭窗口，同样也可以关闭控件 先在窗体中声明如下Api及常量 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_CLOSE = &H10 然后在关闭的地方调用 SendMessage Command1。
hwnd, WM_CLOSE, 0, 0 只要是有。 hwnd属性的控件都可以这样卸载，没有的我就没办法了 给你我这个程序，按command3就可以卸载command1 ————————————————————————————— 不好意思，我上传的附件中的exe没有更新，你重新生成一下，或者直接在vb环境下运行，我这里没有vb，没法在生成，请见谅 —————————————————————————————— 参见 。
2.在VB中终止Windows95的运行
在Visual Basic 程序中，可以使用 Windows API 的 ExitWindowsEx 函数来从程序中重新启动计算机系 统。
要使用该函数，需要将如下声明语句包含在窗体的通常声明部分中： Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long ExitWindowsEx 函数需要 2 个参数，可以使用一个或多个下面的标识的组合来告诉 ExitWindowsEx 函 数希望进行哪种关机过程。 EWX_FORCE 所有进程都被强制终止 EWX_LOGOFF 所有的进程被强制止，并且用户退出登录（logged off） EWX_POWEROFF 计算机系统被关机，并且如果支持节电特性则计算机被物理关机 EWX_REBOOT 计算机系统被关机并重新启动 EWX_SHUTDOWN 计算机被物理地安全地关机 下面的样例程序中使用了上面的三个标识的组合。
该标识组合（EWX_LOGOFF,EWX_FORCE，以及EWX_REBOOT） 告诉 Windows 退出所有正在执行的进程，使用户退出网络登录，使计算机系统处于准备状态以供 用户关机。 样例程序的使用： 1，在 VB 中开始一个新的项目，采用缺省的方法建立 Form1; 2，将如下常量和声明语句添加到 Form1 的通常声明部分中（注意该声明语句需要书写在一行内）： Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const EWX_POWEROFF = 8 Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT 3，在 Form1 上添加一个命令按钮控件，采用缺省的方法建立 Comand1， 将它的 Caption 属性设置为“ 重 新启动计算机”； 4，将如下代码添加到 Command1 的单击事件中： Private Sub Command1_Click() Dim X As Long X = ExitWindowsEx(EWX_RESET, dwReserved) End Sub 按下 F5 来运行上述样例程序，单击命令按钮，即可重新启动计算机系统。
转载请注明出处windows之家 » win10安装vb卸载在程序里找不到