-
How do I use the SavePicture Statement?
I have tried . . .
Code:
Private Sub cmdSave_Click()
frmDraw.picFrame.Picture = frmDraw.picFrame.Image
SavePicture frmDraw.picFrame.Picture, "a:\" & InputBox("Filename?", "Save File") & ".bmp"
An' blow me (ooer . . . .) if it doesn't work!
The VB help is pants 'cos it uses reserved words 'n' everything!
:) :confused:
[email protected]
-
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Sub Main()
'To get the Entire Screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)
'To get the Active Window
'Call keybd_event(vbKeySnapshot, 0, 0, 0)
SavePicture Clipboard.GetData(vbCFBitmap), "C:\Hello.bmp"
End Sub