Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Apakah Objek PictureBox Anda Bisa Seperti Ini ?

| Comments

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 :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 :)

visual basic

Tentang Penulis

Software developer yang fokus mengembangkan aplikasi di atas platform .NET (Desktop, ASP.NET MVC, Web Service) dan Android. Senang mempelajari teknologi baru terutama di bidang OOP, Design Pattern, ORM, Database dan Continuous Integration & Deployment.
Saat ini bekerja sebagai staf IT di salah satu PTS di Yogyakarta sebagai senior software developer. Di waktu luang insya Alloh akan terus berbagi pengalaman di blog ini :)

« Membuat menu cantik dengan VBSmart Menu XP Properties KeyPreview MDIForm kok enggak ada ya ? »

Comments