VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 将所有窗口最小化
发表评论(0)作者:, 平台:, 阅读:13903, 日期:2000-03-12
一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的

所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型,

桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win 95中的输入法窗

口。最后,将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。


  首先,在Project中加入一个Module文件;然后,在Module中加入以下代码:


  


  Public Declare Function EnumWindows Lib "user32" _


   (ByVal lpEnumFunc As Long, ByVal lParam _


   As Long) As Long


  Declare Function GetWindowLong Lib "user32" Alias _


   "GetWindowLongA" (ByVal hwnd As Long, _


   ByVal nIndex As Long) As Long


  Declare Function ShowWindow Lib "user32" (ByVal _


   hwnd As Long, ByVal nCmdShow As Long) As Long


  


  Public Const WS_MINIMIZEBOX = &H20000


  Public Const WS_VISIBLE = &H10000000


  


  Public Const GWL_STYLE = (-16)


  Public Const SW_MINIMIZE = 6


  


  '该函数是EnumWindows的回调函数,EnumWindows函数将遍历的


  '窗口句柄传递到hwnd参数中


  Function EnumWindowsProc(ByVal hwnd As Long,_


   ByVal lParam As Long) As Long


  


   Dim l As Long


   Dim ld As Long


  


   ld = GetWindowLong(hwnd, GWL_STYLE)


   '如果窗口具有最小化按钮并且窗口是可见的就将该窗口最小化


   If ((ld And WS_MINIMIZEBOX) = WS_MINIMIZEBOX) Then


   If ((ld And WS_VISIBLE)) Then


   If ShowWindow(hwnd, SW_MINIMIZE) Then


   End If


   End If


   End If


   EnumWindowsProc = True


  End Function


  然后在Form1中添加一个CommandButton,并在Form1的代码窗口中添加以下代

码:


  Private Sub Command1_Click()


   Dim l As Long


  


   '遍历所有的窗口


   l = EnumWindows(AddressOf EnumWindowsProc, 0)


  End Sub


  运行上面的程序,点击CommandButton,桌面上的所有窗口就会被最小化。在

上面的例程中,我们首先调用EnumWinodws函数遍历所有的窗口,每当函数遍历到

一个窗口,它就调用一次参数lpEnumFunc指定的窗口处理函数并将这个窗口的句柄

传递到窗口处理函数中,以便让它处理。那么,我们就只要在窗口处理函数中使用

GetwindowLong函数来获得并判断窗口的类型,如果窗口是可见的,并且窗口具有

最小化按钮,则将窗口最小化。


  以上程序是在Windows 95、VB5.0中运行通过的。


  (长沙矿冶研究院312信箱 410012 陈锐)