[vb6] - creare .jpeg

[buba88]

raga devo creare un programma che ogni tot tempo fa una "foto" dello schermo e la salva in un gile jpeg o bmp

per ora ho fatto così

in un modulo:

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1 'pressione del tasto (keyDown)
Const KEYEVENTF_KEYUP = &H2 'rilascio del tasto premuto (keyUp)

nel form:

private sub timer1_timer()
keybd_event vbKeySnapshot, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
end sub

a questo punto l'immagine e negli appunti il problema e che nn so come salvarla in un file jpeg o bmp
idee????

[buba88]

nessuna idea???????????'

[SuperMariano81]

Ecco ecco questo mi serve pure a me! :gren:
Grazie buba88 per aver sollevato il problema!
Devo realizzare un file grafico (sia esso GIF BMP o JPG) di una form ma non so dove cominciare

[twister_has_you]

Nelle dichiarazioni del form

Option Explicit
Private Declare Sub keybd_event Lib "User32.dll" (ByVal bvk As Byte, ByVal bscan As Byte, ByVal dwflags As Long, ByVal dwextrainfo As Long)

all'oggetto timer oppure ovunque tu voglia

Dim CBpic As Picture
Dim Risp1 As Long
Dim P1 As Integer, P2 As Integer, l1 As Integer, a1 As Integer
Dim Msg1, Msg2 As String
Clipboard.Clear
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
P1 = 10
P2 = 10
l1 = 190
a1 = 140
Set CBpic = Clipboard.GetData(vbCFBitmap)
SavePicture CBpic, "C:\immagine.bmp"
Set CBpic = Nothing
Clipboard.Clear

[SuperMariano81]

mmmm ok mi funziona MA mi "stampa" l'ultima form (o modulo)
che ho visualizzo nel progetto VB(6), con label, text non elaborate.
Mentre se prima metto un form3.show me le fa vedere corrette.
Grazie ancora

[buba88]

scusa ma le variabili che hai messo:
Dim Risp1 As Long
Dim P1 As Integer, P2 As Integer, l1 As Integer, a1 As Integer
Dim Msg1, Msg2 As String

nn servono a niente???
prob hai copiato il codice così comera da una ltro prog che usava quella variabili cmq grazie lo stesso

[twister_has_you]

hai ragione servono in seguito se vuoi anche stampare direttamente il form, l'avevo copiato dal software che sto scrivendo
CIAO

[SuperMariano81]

Io dovrei stampare esattamente quello che vedo nel form3....
mi potresti essere d'aiuto? grazie ancora!

[twister_has_you]

è una parte che sto ancora sviluppando questa


se vuoi fare presto però puoi inserire l'immagine che hai appena salvato in una picture e stampare con

picture1.picture =3D LoadPicture("c:\immagine.bmp")
Printer.paintpicture (picture1.picture,x,y)
'dove x e y sono le coordinate del foglio su cui verrà stampata l'imm.
Printer.EndDoc

così stampi utilizzando la stampante predefinita



ora andrò fuori se posti qualcosa ti risponderò dopo pranzo

CIAO

[SuperMariano81]

ciao,
ero a pranzo pure io, (non ci sono smiles per il pranzo??) grazie per l'idea ma io dovrei salvare in formato immagine la form elaborata.
Il tuo codice funziona benissimo, solo mi salva l'ultima "cosa" che ho aperto con vb (sia modulo, form, codice o altro....)
HO provato a fare l'exe e una volta lanciato mi salva la finestra di explorer.
Adesso provo a mettere prima un form3.show e un form3.setfocus a vedere che succede!
Grazie ancora! :tongue: