Home > Visual Basic > Apakah objek PictureBox Anda bisa seperti ini ?

Apakah objek PictureBox Anda bisa seperti ini ?

January 13, 2010

Objek PictureBox mempunyai beberapa properties yang nilainya bisa di set sehingga mempengaruhi tampilan PictureBox itu sendiri.

Berikut adalah contoh beberapa style objek PictureBox dengan memanfaatkan properties standar :

Dan kita akan menambahkan 2 style lagi yang karena keterbatasan properties yang ada mengharuskan kita sedikit bermain-main kode :

Source code lengkap :

Private Sub styleFlat1(ByVal objPicture As PictureBox)
    With objPicture
        .AutoRedraw = True
        .BorderStyle = vbBSNone
        .ScaleMode = vbPoints

        objPicture.Line (0, 0)-(.ScaleWidth, 0), &H808080
        objPicture.Line (0, 0)-(0, .ScaleWidth), &H808080
        objPicture.Line (.ScaleWidth - 1, .ScaleHeight - 1)-(.ScaleWidth - 1, 0), vbWhite
        objPicture.Line (.ScaleWidth - 1, .ScaleHeight - 1)-(0, .ScaleHeight - 1), vbWhite
    End With
End Sub

Private Sub styleFlat2(ByVal objPicture As PictureBox)
    With objPicture
        .AutoRedraw = True
        .BorderStyle = vbBSNone
        .ScaleMode = vbPoints

        objPicture.Line (0, 0)-(.ScaleWidth, 0), vbWhite
        objPicture.Line (0, 0)-(0, .ScaleWidth), vbWhite
        objPicture.Line (.ScaleWidth - 1, .ScaleHeight - 1)-(.ScaleWidth - 1, 0), &H808080
        objPicture.Line (.ScaleWidth - 1, .ScaleHeight - 1)-(0, .ScaleHeight - 1), &H808080
    End With
End Sub

Private Sub Form_Load()
    'tinggal panggil prosedure styleFlat1 & styleFlat2 disini
    Call styleFlat1(Picture4)
    Call styleFlat2(Picture5)
End Sub

Sehingga hasil akhirnya adalah :

Selamat mencoba🙂

%d bloggers like this: