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:

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

Perihal Novian Agung
Pengangguran

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: