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