Visual Basic 6.0

Απ: PictureBox......help

k_kostas_71 — Fri, 12 Jan 2007 07:20:52 GMT

ΛΥΣΗ,

Public 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

Form1

Private Sub Command1_Click()
Form2.Picture1.Cls
    Form2.Picture1.Height = Me.ScaleHeight + 60
    Form2.Picture1..Width = Me.ScaleWidth + 60
    BitBlt Form2.Picture1..hDC, 0, 0, _
    Me.ScaleWidth, Me.ScaleHeight, Me.hDC, 0, 0, vbSrcCopy

SavePicture Form2.Picture1.Image, "c:\Active Window.BMP"

End Sub

Form2

Έισαγωγή ενος Picture1

Απ: PictureBox......help

KelMan — Fri, 12 Jan 2007 05:31:14 GMT

Θα πρέπει να χρησιμοποιήσεις το Windows API ώστε να κάνει ο κώδικάς σου, ό,τι περίπου κάνει και ένα screen capture πρόγραμμα. Το Picture1.Image απλά σώζει την εικόνα που έχει το PictureBox και όχι την περιοχή του.

Δες ένα παράδειγμα εδώ: http://www.codeproject.com/useritems/WindowCapture.asp

Θα πρέπει να το αλλάξεις λίγο τις παραμέτρους της BitBlt. Δες εδώ λεπτομέρειες: http://www.allapi.net/apilist/BitBlt.shtml

Τέλος, θα ήταν καλύτερο να μην χρησιμοποιείς greeklish καθώς είναι δύσκολη η ανάγνωση των δημοσιεύσεων αλλά και μετέπειτα η αναζήτηση στο site.

Απ: PictureBox......help

cap — Fri, 12 Jan 2007 04:50:33 GMT

Καλώς ήλθες Κώστα στην παρέα μας.

Για πολλοστή φορά θα παρακαλέσω να μην χρησιμοποιείτε Greekglish. Σε παρακαλώ, αν θέλεις διόρθωσε το post σου.

PictureBox......help

k_kostas_71 — Fri, 12 Jan 2007 03:35:13 GMT

Ψάνχω να βρω μια λύση για το πως θα αποθηκεύσω μια εικόνα (Picture1) σε αρχείο bmp

που θα συμπεριλαμβάνει επιπλέον στοιχεια που βρίσκονται πανω σε αυτή....για παράδειγμα ενα (textbox)

Picture1.Picture=Picture1.Image

SavePicture Picture1.Image, "c:\test.bmp"

δεν ειναι αρκετό....