查看完整版本: 如何将整个画面暗下来，如同关机前一般

如何将整个画面暗下来，如同关机前一般

　　** Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

** Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
** Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
** Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
** 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
** Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
** 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
** Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
** Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long

** bybits(1 To 16) As Byte
** hBitmap As Long, hBrush As Long
** hDesktopWnd As Long
注释：将图变暗，如同待关机一般
** Sub Command1_Click()
Dim rop As Long, res As Long
Dim hdc5 As Long, width5 As Long, height5 As Long
注释：如果只要让Picture1有效果将底下三行unMark取代 hdc5, width5, height5三个值
注释：hdc5 = Picture1.hdc
注释：width5 = Picture1.ScaleWidth
注释：height5 = Picture1.ScaleHeight

注释：底下三行设定整个萤幕都暗下来
hdc5 = GetDC(0)
width5 = Screen.Width \ Screen.TwipsPerPixelX
height5 = Screen.Height \ Screen.TwipsPerPixelY

rop =