Sejmutí obrazovky

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" _
                                    (ByVal hDestDC As Long, _
                                     ByVal x As Long, _
                                     ByVal y As Long, _
                                     ByVal nWidth As Long, _
                                     ByVal nHeight As Long, _
                                     ByVal hSrcDC As Long, _
                                     ByVal xSrc As Long, _
                                     ByVal ySrc As Long, _
                                     ByVal dwRop As Long) As Long

Na událost Load formuláře:

Private Sub Form_Load()

   Dim A As Long
   Dim s As Long

   Form1.AutoRedraw = True
   Form1.ScaleMode = 1

   A = GetDesktopWindow()
   s = GetDC(A)
   BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, s, 0, 0, vbSrcCopy

End Sub

Spusťte projekt. Pozadí formuláře pak bude identické s aktuální obrazovkou před spuštěním.

Zpět