Bermain-main dengan PictureBox

Berikut ini contoh, mengolah gambar pada PictureBox, yaitu mengenai memutar gambar 90derajat, dan bagaimana membuatnya transparan.



Tambahkan 2 buah PictureBox, namai dengan picSumber dan picTarget. Ubah properti Autoredraw = True.
Tambahkan 2 buah Command, namai dengan cmdPutar90 dan cmdTransparan

Baris Kode:

Code:


Option Explicit

Private Sub cmdPutar90_Click()
    Dim x, y
    'Mengubah Scalemode menjadi Pixel
    Me.picSumber.ScaleMode = 3
    Me.picTarget.ScaleMode = 3
    'Membersihkan picTarget
    picTarget.Cls
    'Menggambar dan memutar 90º picTarget
    For y = 0 To Me.picSumber.ScaleHeight
        For x = 0 To Me.picSumber.ScaleWidth
            Me.picTarget.PSet (x, y), _
            Me.picSumber.Point(y, x)
        Next
    Next
End Sub

Private Sub cmdTransparan_Click()
    Dim XRd, YRd, PelX, PelY, PelC, ScrX, ScrY
    Me.picTarget.ScaleMode = 1
    '
    ScrX = Screen.TwipsPerPixelX
    ScrY = Screen.TwipsPerPixelY
    'Membersihkan picTarget
    picTarget.Cls
    'Mengubah Scalemode picTarget
    Me.picTarget.ScaleMode = 1
    'Menggambar transparan picTarget
    For YRd = 0 To (picSumber.ScaleHeight - 1)
        PelY = picSumber.Top + (YRd * ScrY)
        For XRd = 0 To (picSumber.ScaleWidth - 1)
            PelX = picSumber.Left + (XRd * ScrX)
            PelC = picSumber.Point(XRd, YRd)
            If PelC <> picSumber.Point(0, 0) And PelC > 0 Then
                picTarget.Line (PelX, PelY)- _
                Step(ScrX, ScrY), PelC, BF
            End If
        Next XRd
        DoEvents
    Next YRd
End Sub