步 驟

　　1、創建一個Form1窗體，設置2個Command按鈕，將Command1和Command2的Caption屬性分別設置為：“變暗”和“恢復”。

　　2、在窗體代碼模塊中聲明API函數和相應的類型，代碼如下：

　　Private Type RECT

　　Left As Long

　　Top As Long

　　Right As Long

　　Bottom As Long

　　End Type

　　Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

　　Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

　　Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

　　Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long

　　Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

　　Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long

　　Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

　　Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

　　3、編寫代碼實現程序功能，由于版面所限，具體代碼將放到CCE網站(http://www.cce.com.cn)。

　　以上就是屏幕變暗的方法。如果要使窗體、圖片框等對象變暗，只要使窗體或圖片框等對象獲取句柄即可，修改Command1_Click過程和Command2_Click過程中的以下語句即可實現窗體變暗。

　　hdc5=Form1.Hdc;

　　Width5=Form1.width;

　　height5=Form1.height;

　　ReleaseDC(Form1.hwnd,hdct)

　　aa=InvalidateRect (Form1.hwnd,bottom,1)。

　　以上程序在VB6.中文版，Windwos 98 環境中運行通過。有興趣的朋友可以去試一試，看到這種效果是不是覺得很驚奇呢!

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等級考試二級VB輔導實例編程匯總