vb中,怎样最小化其他的程序?

来源:百度知道 编辑:UC知道 时间:2024/05/18 14:25:59
我想让一些程序最小化到系统托盘而且还在运行
不知道要怎么弄

这个问题我不大会但是下面有个笨方法你可以试试:
任务栏中有快速启动栏,里面有“显示桌面”这个程序,你可以这么做:
用SHELLEXECUTE 的API函数来运行这个程序,你可以把它放在你的程序目录。获取你程序目录的方法是APP。PATH ,然后在将你的程序的WINDOWSSTATE设置为0 ,就可以了,效果是其他的程序都最小化你的程序正常显示。
代码:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute hwnd,"open",app.path & "\显示桌面.exe","","", SW_SHOW );
me.windowsstate=0

即可。

楼上差矣!!
最小化到系统托盘的难度不小,我不会,代码量要N多,但是只是最小化可以这样。

(先打开一个文件夹,控件动态生成,不用设计)
例程:

Private Const SW_MINIMIZE = 6
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal h