41.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 33 行

<p>将所有窗口最小化</p>
<p></p>
<p>一些应用软件提供了一种方便的功能，只需要一个操作就可以将Windows桌面上的</p>
<p>所有窗口最小化。首先，我们要遍历桌面上的所有窗口；其次，要判断窗口类型，</p>
<p>桌面上的很多窗口无法最小化，或者窗口是不可见的，如中文Win 95中的输入法窗</p>
<p>口。最后，将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。 </p>
<p></p>
<p>　　首先，在Project中加入一个Module文件；然后，在Module中加入以下代码： </p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　Public Declare Function EnumWindows Lib "user32" _ </p>
<p></p>
<p>　　 (ByVal lpEnumFunc As Long, ByVal lParam _ </p>
<p></p>
<p>　　 As Long) As Long </p>
<p></p>
<p>　　Declare Function GetWindowLong Lib "user32" Alias _ </p>
<p></p>
<p>　　 "GetWindowLongA" (ByVal hwnd As Long, _ </p>
<p></p>
<p>　　 ByVal nIndex As Long) As Long </p>
<p></p>
<p>　　Declare Function ShowWindow Lib "user32" (ByVal _ </p>
<p></p>
<p>　　 hwnd As Long, ByVal nCmdShow As Long) As Long </p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　Public Const WS_MINIMIZEBOX = &H20000 </p>
<p></p>
<p>　　Public Const WS_VISIB</p>