[Compu-Mania] VB auto scale image on form

[Dike]

From: "Dike" <[EMAIL PROTECTED]>

err..
Mo minta tulung nih, gimana caranya sich supaya kita bisa load image menjadi
seperti background di form kita, tapi langsung ngisi penuh dari form itu?
Saya coba bikin cuman kok kalo di simpen pas di Form_load nggak jalan, musti
di simpen di sub lain, terus run misal pake tombol kayak di bawah.... ada
yang tau nggak gimana caranya supaya pas load?

Makasih banyak and sorry saya paste programnya..

TIA,
Dike

Private Sub Command1_Click()
redraw
End Sub

Private Sub redraw()
Dim wid As Single
Dim hgt As Single

    wid = pic1.ScaleWidth * (Form1.ScaleWidth / pic1.ScaleWidth)
    hgt = pic1.ScaleHeight * (Form1.ScaleHeight / pic1.ScaleHeight)
    pic2.Cls
    pic2.Move 0, 0, wid, hgt
    DoEvents
    pic2.PaintPicture pic1.Picture, _
        0, 0, wid, hgt, 0, 0, _
        pic1.ScaleWidth, _
        pic1.ScaleHeight

End Sub

--
Compu-Mania MailingList, provided by PT Centrin Online Tbk
Unsubscribe: [EMAIL PROTECTED], body: unsubscribe Compu-Mania
Archive: http://www.mail-archive.com/compu-mania@titan.centrin.net.id/
Info: [EMAIL PROTECTED], body: help