APPEARANCE WINDOWS

Merubah tampilan windows

Assalamualaikum wr, wb..

Adakalanya kita merubah-rubah tampilan windows pada komputer kita agar kelihatan berbeda, dengan mengatur pada bagian Appearance Windows dengan cara klik kanan pada desktop dan memilih Appearance properties, Nah dengan program Visual Basic juga kita bisa membuat program yang berfungsi untuk melakukan hal itu. Untuk merubah tampilan window ini saya akan berikan contoh sederhana saja dan nantinya anda kembangkan sendiri.

Baiklah kita akan mulai untuk membuat program yang dapat merubah tampilan windows kita.

Langkah-langkah :

1. Buka program Visual Basic anda dan mulai dengan form baru.

2. Masukan satu komponen tombol sebagai pencetus program

3. Double klik pada area form dan masukan kode berikut pada bagian Declaration :

Private Const COLOR_SCROLLBAR = 0 'Warna Scrollbar
Private Const COLOR_BACKGROUND = 1 'Warna background yang tidak menggunakan wallpaper
Private Const COLOR_ACTIVECAPTION = 2 'Warna tulisan pada window aktif
Private Const COLOR_INACTIVECAPTION = 3 'Warna tulisan pada window yang tidak aktif
Private Const COLOR_MENU = 4 'Menu
Private Const COLOR_WINDOW = 5 'background Windows
Private Const COLOR_WINDOWFRAME = 6 'Frame Window
Private Const COLOR_MENUTEXT = 7 'Text Window
Private Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Private Const COLOR_CAPTIONTEXT = 9 'Tulisan dalam Caption window
Private Const COLOR_ACTIVEBORDER = 10 'Border window yang aktif
Private Const COLOR_INACTIVEBORDER = 11 'Border window yang tidak aktif
Private Const COLOR_APPWORKSPACE = 12 'Background untuk MDI desktop
Private Const COLOR_HIGHLIGHT = 13 'background dari item yang dipilih
Private Const COLOR_HIGHLIGHTTEXT = 14 'Item menu yang dipilih
Private Const COLOR_BTNFACE = 15 'Tombol/Button
Private Const COLOR_BTNSHADOW = 16 '3D Bayangan tombol
Private Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Private Const COLOR_BTNTEXT = 18 'Teks tombol
Private Const COLOR_INACTIVECAPTIONTEXT = 19 'Teks window yang tidak aktif
Private Const COLOR_BTNHIGHLIGHT = 20 '3D tombol yang dipilih
Private Declare Function SetSysColors Lib "User32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

4. Lalu masukan kode berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
'Set title bar dari form yang aktif menjadi biru
Dim lngReturn As Long
lngReturn = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(0, 0, 255))
Me.Appearance = lngReturn

'Set warna tombol dari form yang aktif menjadi merah
lngReturn = SetSysColors(1, COLOR_BTNFACE, RGB(255, 0, 0))
Me.Appearance = lngReturn

'Set warna tulisan tombol jadi hijau
lngReturn = SetSysColors(1, COLOR_BTNTEXT, RGB(0, 255, 0))
Me.Appearance = lngReturn
End Sub

5. Program diatas akan merubah tampilan window menjadi merah Caption pada title bar berwarna biru dan 

    tulisan pada window jadi berwarna hijau. 

6. Yang kita atur hanya tiga macam saja karna itu hanya sebagai contoh, Anda bisa mengatur hal lainnya dengan cara diatas tinggal mengganti konstanta seperti COLOR_ACTIVECAPTION dengan konstanta lainnya yang ada pada area Declaration. Selamat mencoba..

Wassalam.. n smoga bermanfaat..