Printable View
Hi,
I'm developing a program for work that need to capture the current screen and save it as some sort of graphic file (like a screen capture). I think there should be some kind of api routine that will do the trick, but I'm not sure. Please Help
Thanks
Richard Lange
[email protected]
Hi, I took this code from one example from this site but add the save feature.
Kayan.Code: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
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
SavePicture Me.Image, "image.bmp"
End Sub
Hi
what if a want to save and send a form as a bmp file to a mail receptionist. I can start up my outlook express and want to send a form with e-mail.
Quote:
Hi, I took this code from one example from this site but add the save feature.
Kayan.Code: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
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
SavePicture Me.Image, "image.bmp"
End Sub