Text 291, 69 rader
Skriven 2005-03-04 05:01:00 av "ak" <ak@myspamtrap.Com> (1:278/230)
Ärende: Re: Saving VB6 Form as Image
====================================


Perhaps you didn't find it on Randys site.
Go there again and look for:
Highlighting External Windows using DrawFocusRect and InflateRect
then pick:
Variations on Mimicking the PrintScreen Function Using BitBlt.

Using this method: place in invisible pictureBox
on your form and set its AutoRedraw = True
and use;  SavePicture PictureBox1.Image, "path\fileName"

If you are content by saving only a bitmap
of the circles and texts. And then used the
Print function to print the texts, you'd probably
could do the work with this - taken from vb-help:

This example uses the SavePicture statement to save a graphic drawn into a
Form object's Picture property. To try this example, paste the code into the
Declarations section of a Form object, and then run the example and click
the Form object.

 ' Declare variables.
 Dim CX, CY, Limit, Radius as Integer, Msg as String
 ScaleMode = vbPixels ' Set scale to pixels.
 AutoRedraw = True ' Turn on AutoRedraw.
 Width = Height ' Change width to match height.
 CX = ScaleWidth / 2 ' Set X position.
 CY = ScaleHeight / 2 ' Set Y position.
 Limit = CX ' Limit size of circles.
 For Radius = 0 To Limit ' Set radius.
  Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

DoEvents ' Yield for other processing.
 Next Radius
 Msg = "Choose OK to save the graphics from this form "
 Msg = Msg & "to a bitmap file."
 MsgBox Msg
 SavePicture Image, "TEST.BMP" ' Save picture to file.

ako

"Vallarasu" <karthikeyarajan@rediffmail.com> skrev i en meddelelse
news:a82b6635.0503032059.cdcbe2b@posting.google.com...
> Hai AKO,
>
>   I have a PICTURE drawn on a form.
>
>   I wanted to save it as a picture programmatically.
>
>   I have used Labels for text in the picture.
>   Iam using the Me.Circle Method to draw circles.
>   The picture is drawn on the Form.
>
>   I just need to save this Form's image as a picture.
>
>   In VB.NET , the method call is SavePicture Me.Image, "Destination file
> path"
>
>   I need to know the equivalent method in VB 6.0
>
> Please Help!
> Karthik




--- UseNet To RIME Gateway @ 3/4/05 4:57:43 AM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)