Keskustelu: Ohjelmointikysymykset: VB.NET: Kuvan piirtokohdan muuttaminen

Option Explicit

' luo objektimuuttuja
Private Kuva As StdPicture

Private Sub Form_Load()
    ' lataa kuva objektiin
    Set Kuva = LoadPicture("E:\yotsuba.jpg")
End Sub

Private Sub Form_Paint()
    ' piirrä kuva kohtaan 0 x 0, 100 pikselin levyisenä ja korkuisena
    ' kohdekuvasta 100 x 100 -kokoinen klippi kohdasta 150 x 150
    ' huomaa että kuvat ovat muistissa "väärin päin", siksi miinuskorkeus ja piirto kohtaan 0 x 100
    Kuva.Render Me.hDC, 0, 100, 100, -100, _
        ScaleX(150, vbPixels, vbHimetric), ScaleY(150, vbPixels, vbHimetric), _
        ScaleX(100, vbPixels, vbHimetric), ScaleY(100, vbPixels, vbHimetric), ByVal 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' tuhoa kuvaobjekti (= vapauta muisti)
    Set Kuva = Nothing
End Sub