Gemme PictureBox som billede

Ja det kan du godt! Du skal nærmest tage et screenshot af pictureboxen og det gøres sådan her:


* To pictureboxe
* En commandbutton
* Forskællge comtroller i picture1, dvs. textboxe, labels og så videre.


--------Generel----------

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

-------Command Button---------

Private Sub Command2_Click()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

DoEvents

BitBlt Picture2.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy

End Sub



-----------

Sådan gøres det!

Programmet overfører picture1's indhold til picture2's, men som et billede i picture2!

/KantoRaZa\

For at gemme billedet:

Indsæt dette i command knappen:
Husk at oprette picture3! Dens autoredraw skal være 1!!!

-------------------------------
Picture3.Width = Picture1.Width
Picture3.Height = Picture1.Height

DoEvents

' Venter
MousePointer = 11

For x = 0 To Picture2.ScaleWidth Step 10
For Y = 0 To Picture2.ScaleHeight Step 10
    Picture3.PSet (x, Y), Picture2.Point(x, Y)
Next Y
Next x

MousePointer = 1

DoEvents

SavePicture Picture3.Image, "c:\Billede.jpg"
-------------------------


/KantoRaza\

>> KantoRaza

MANGE TAK for dit sublimt udførte og beskrivende svar! Det var præcis den kode jeg var på udkik efter. *Tak for tippet, du er bare alle tiders - hejhej*. Nice!

-Sion
www.VBweb.tk

Tak.