Saving a clipboard image to a file?

[Trancedified]

Hello,

I ran a few searches on the forum on how to do screenshots. That part is working fine, but how would you save the screenshot to the C:\ ??

So far I have:

Form1.Picture1.Picture = Clipboard.GetData()
SavePicture Clipboard.GetData, "C:\snap\six.jpg"

Any suggestions?

chris

[temp_12000]

Originally posted by Trancedified
Hello,

Form1.Picture1.Picture = Clipboard.GetData()
SavePicture Clipboard.GetData, "C:\snap\six.jpg"

chris

try:

Form1.Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Dim myPic As New StdPicture
Set myPic = Clipboard.GetData(vbCFBitmap)
SavePicture myPic, "C:\snap\six.jpg"

[Trancedified]

Temp,

Thanks for your reply but i get an error here:

SavePicture myPic, "C:\snap\six.jpg"

[temp_12000]

Originally posted by Trancedified
Temp,

Thanks for your reply but i get an error here:

SavePicture myPic, "C:\snap\six.jpg"

You need save it as BMP:
SavePicture myPic, "C:\snap\six.bmp"

to save it as JPG, you need do some extra work.

[Trancedified]

Temp,


I tried it again w/ a bmp extension, but the same error comes up as the previous post. Here's my screenshot code and the sub that saves the .bmp is on the bottom.

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
 
Private Declare Sub Sleep Lib "kernel32" (ByVal sleepTime As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Dim blnAboveVer4 As Boolean
 
Private Function SnapShot()
 
    If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT, 1, 0, 0
    Else
        keybd_event VK_MENU, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
        keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
    End If
        
End Function
 
Private Sub cmdSave_Click()
    Form1.Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Dim myPic As New StdPicture
    Set myPic = Clipboard.GetData(vbCFBitmap)
    [B]SavePicture myPic, "C:\snap\six.bmp"[/B] 
End Sub

Any other ideas?

Thanks,


Chris

[BuggyProgrammer]

if that is your whole program, then you forgot to call

SnapShot


you are also going to need a little pause between screenshot taking and file saving or else you would get an error sometimes.

[NoteMe]

If you want to save it as a JPG, look here...

http://www.vbforums.com/showthread.p...hreadid=274353


BTW our Good Old Platipus just uploaded his new PNG controll. Look for the thread in the game section. So if you want PNG picture you can probably use his controll. Havn't tested it yet tho'


ØØ

[Trancedified]

Buggy,

Here's the remainder of the my code and I added the call to SnapShot. I still get the same error on the text that's bold.

"invalid property value"

Private Sub cmdSixShow_Click()
    Call Disable
    Me.Timer1.Enabled = True
    Picture13.Picture = Clipboard.GetData(vbCFBitmap)
    Dim myPic As New StdPicture
    Set myPic = Clipboard.GetData(vbCFBitmap)
    [B]SavePicture myPic, "C:\snap\six.bmp"[/B] 
    
End Sub
 
Public Sub Timer1_Timer()
    timer1.interval = 100
    Timer1.Enabled = False
    cboSelection.Visible = False
    Call SnapShot
    Call Enable
End Sub

Any other suggestions?

[BuggyProgrammer]

try

SavePicture picture13.picture, "C:\snap\six.bmp"

[Trancedified]

Yeah same error "Invalid Property Value"

Any other ideas? keep 'em coming!


Chris

[NoteMe]

Do you have a picturebox called Picture13 on your form. Becuase that cod eshould work. And you also have to have the path C:\snap\, might also consider turning the autoredraw property to true..