Afbeelding maken van een form in VB 6.0

[Verwijderd]

Weet iemand hoe ik een afbeelding van een formulier kan maken met VB 6.0.

Deze heb ik nodig om een afdrukvoorbeeld te kunnen generen. De afbeelding moet vervolgens in een picturebox worden geplaatst.

Hoe kan ik dit doen?

Ik was bezig geweest met printscreentjes, maar dit werkte helaas niet omdat een deel van het form buiten het scherm viel .....

Resolutie veranderen is geen oplossing.

mvg JW

[curry684]

WM_PRINT en WM_PRINTCLIENT.

[KeeZ]

is er niet iets mogelijk met formname.paintpicture of wat dan ook.........

[Sponge]

WM_PRINT e.d. die kopieren toch plaatje in het geheugen (clipboard)? Dat is toch verschrikkelijk? .. dat doet VB ook, als je VB opstart dan komt er een icoontje in het geheugen ipv de code die je toevallig op het clipboard had...

Denk dat je idd met PaintPicture/ Bitblt, CreateDC bezig moet. (volgens mij heeft www.vbapi.net hier wel wat voor beeldjes voor), en anders wel op www.pscode.com als je zoekt op "print preview" oid. MEestal weet ik 100% zeker te zeggen dat er iets op www.pscode.com hierover is, maar nu weet ik dat helaas niet...

[Crazy D]

Check de CaptureWindow API. Ik heb helaas voor je niet zo een sample om te posten, maar wel een stukje....

Visual Basic .NET:

Public Function CaptureForm(frmSrc As Form) As Picture
    Set CaptureForm = CaptureWindow(frmSrc.hWnd, False, _
                  0, 0, frmSrc.ScaleX(frmSrc.Width, vbTwips, vbPixels),  _
                  frmSrc.ScaleY(frmSrc.Height, vbTwips, vbPixels))
End Function

Voor enkel de client-area van je form kun je

Visual Basic .NET:

Public Function CaptureContentsOfForm(frmSrc As Form) As Picture
    Set CaptureContentsOfForm = CaptureWindow(frmSrc.hWnd, True, 0, 0, _
           frmSrc.ScaleX(frmSrc.ScaleWidth, frmSrc.ScaleMode, vbPixels),  _
           frmSrc.ScaleY(frmSrc.ScaleHeight, frmSrc.ScaleMode, vbPixels))
End Function

gebruiken.

Aanroepen als

Visual Basic .NET:

img.Picture = CaptureForm(Me)

Waarbij img een Image control is die het plaatje gaat tonen... (maar die gebruik ik alleen maar omdat die kan stretchen en dat was wel makkelijk picturebox kan uiteraard ook).

Kan zijn dat je wat moet spelen met de form eerst visible False te zetten voordat je de functie aanroept, kweet even niet meer waarom (hoe vaak maak je dan ook een programmaatje wat z'n eigen formpje kan captureren en die capture op dezelfde form tonen...). Vergeet ook niet af en toe de image leeg te maken, anders krijg je leuke effecten...

(hmm dat is code uit 1997 )

[KeeZ]

Bedankt voor de hulp...

Maar helaas kent hij de functie CaptureWindow niet...:-(

hoe kan ik dat oplossen?

gr. J.

[Crazy D]

Oh ik zat geloof ik niet op te letten, CaptureWindow is een losse functie die de nodige API functies aanroept.. uh...
Ik heb de hele module maar ff op m'n site gezet... modCapture.rar.
Ik heb hier ooit (in 97 dus....) met een vriend mee zitten spelen, een deel hebben we eerlijk van een of andere sample geript, en er het nodige omheen gebouwt.

[curry684]

41.6C.6D.61.72 schreef op 05 March 2003 @ 19:18:
WM_PRINT e.d. die kopieren toch plaatje in het geheugen (clipboard)? Dat is toch verschrikkelijk? .. dat doet VB ook, als je VB opstart dan komt er een icoontje in het geheugen ipv de code die je toevallig op het clipboard had...

Denk dat je idd met PaintPicture/ Bitblt, CreateDC bezig moet. (volgens mij heeft www.vbapi.net hier wel wat voor beeldjes voor), en anders wel op www.pscode.com als je zoekt op "print preview" oid. MEestal weet ik 100% zeker te zeggen dat er iets op www.pscode.com hierover is, maar nu weet ik dat helaas niet...

Wat een zwets. Als je nu eens de helpfiles van WM_PRINT op zou zoeken dan zou je zien dat dat de 1-line methode is om een willekeurig control zichzelf te laten painten op een gegeven willekeurig DC. Oftewel TS is in exact 1 regel code klaar met z'n hele probleem.

* curry684 ergert zich dood aan mensen die een hoop onzin blaten zonder zeker te weten waar ze het over hebben of op z'n minst een voorbehoud over de betrouwbaarheid van hun informatie maken.

[KeeZ]

GEEF DAN DE CODE HOE JE DAT KAN GEBRUIKEN !!!! ??? OM HET PROBLEEM OP TE LOSSEN !

[KeeZ]

THNX cRAzY d

[.oisyn]

bliep, schreeuwen doe je maar ergens anders