Text 317, 70 rader
Skriven 2005-03-10 12:16:00 av "ak" <ak@myspamtrap.Com> (1:278/230)
Ärende: Re: Saving VB6 Form as Image
====================================



"Vallarasu" <karthikeyarajan@rediffmail.com> skrev i en meddelelse
news:a82b6635.0503092251.7880f2e@posting.google.com...
> Please share the code for saving a Form's Image into an image file.

We're  not allowed to copy the code from the site
on to the net.
 http://vbnet.mvps.org/


The CreateCompatibleBitmap is of no use.
If you can use the secand solution I gave you then
try this one. Paste it into a new project.
Put a Command1 button on a form. And set
a bitmap, jPic or gif in the forms picture property.
Like I said, this method does not save Labels and
the forms caption button. So this procedure draw
a label and print the text in it.
After running it, load the saved bitmap into Paint
to see it. The Image is always saved as a bitmap,
never mind what kind you loaded in to the picture
property.


Private Sub Command1_Click()
    Dim x1 As Single, y1 As Single
    Dim x2 As Single, y2 As Single
    Dim edgeDist As Single, filC As Long
    Dim foreC As Long
    foreC = vbBlack
    filC = &HEEEEEE
    edgeDist = Me.TextWidth("A")
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True
    Dim str As String
    str = "Inside my Circle"
    Me.Circle (Me.ScaleWidth \ 2, _
    Me.ScaleHeight \ 2), Me.ScaleHeight \ 6
    Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(str)) \ 2
    Me.CurrentY = Me.ScaleHeight \ 2 - Me.TextHeight(str) \ 2
    foreC = vbBlue
    Me.ForeColor = foreC
    Me.Print str
    Me.FillStyle = vbSolid
    Me.FillColor = filC
    Me.ForeColor = foreC
    str = "Outside my Circle"
    x1 = Me.ScaleWidth \ 2 - Me.TextWidth(str) \ 2 - edgeDist
    y1 = Me.ScaleHeight \ 2 - Me.ScaleHeight / 3.5
    x2 = x1 + Me.TextWidth(str) + 2 * edgeDist
    y2 = y1 + Me.TextHeight(str) + 2 * edgeDist \ 3
    foreC = &H7F7F7F
    Me.ForeColor = foreC
    Me.Line (x1, y1)-(x2, y2), foreC, B
    Me.CurrentX = x1 + edgeDist
    Me.CurrentY = y1 + edgeDist \ 3
    foreC = vbBlue
    Me.ForeColor = foreC
    Me.Print str
    SavePicture Me.Image, "C:\SaveBitmap.bmp"
    Me.FillStyle = vbTransparent
End Sub




--- UseNet To RIME Gateway @ 3/10/05 12:10:01 PM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)