Efek Shadow CommandButton Visual Basic 6.0

Efek Shadow CommandButton Visual Basic 6.0 - Biasanya ketika kita membuat sebuah Commandbutton yang muncul adalah ukuran standar dari visual basic. Untuk memepercantik tampilan form Anda bisa menambahkan sedikit kode untuk memperoleh efek dari Commandbutton. 

CommandButton biasanya digunakan untuk untuk membuat tombol dalam form, dimana didalam Commandbutton tersebut mempunyai properti untuk fungsi tertentu. Diantara properti itu adalah fungsi "BackColor, Style, Height, Width dan lain-lain".

Kita bisa memodifikasi sendiri tampilan Commandbutton kita dengan cara mengatur fungsi tersebut sehingga dapat memodifikasi tampilan Commandbuttn yang berbeda. Di antara modifikasi yang kita bahas kali ini adalah dengan menambah efek pada Commandbutton.Di antaranya sebagai berikut :

1. Efek Bayangan (Shadow) pada Commandbutton.

2. Efek Warna CommandButton

Dari kedua efek tersebut di harapkan tampilan form Anda lebih unik dan menarik sehingga menampilkan kesan form lebih hidup tidak monoton yang selalu tampil itu-itu saja. Kali ini tip dan trik visual basic akan membahasnya satu per satu dari kedua efek tersebut :

1. Efek Bayangan (Shadow)

Berikut adalah source code dari efek Commandbutton Shadow:

Option Explicit

Public Function Shadow(frm As Form, ctl As Control, Optional shWidth = 3, Optional color = vbGrayed)

    Dim oldWidth As Integer

    Dim oldScale As Integer

    With frm

        oldWidth = .DrawWidth

        oldScale = .ScaleMode

        .ScaleMode = 3

          .DrawWidth = 1

        frm.Line (ctl.Left + shWidth, ctl.Top + shWidth)-Step(ctl.Width - 1, ctl.Height - 1), color, BF

        .DrawWidth = oldWidth

        .ScaleMode = oldScale

    End With

End Function

Private Sub Form_Activate()

Shadow Me, Command1, 4, vbBlack

End Sub

2.  Efek Warna CommandButton

Berikut adalah source code dari efek warna Commandbutton :

Sebelum menulis kode sebaiknya Anda susun terlebih dahulu control CommandButtonnya pada form dan mengatur dibagian propertinya :

Sekarang tanamkan sebuah Commanbutton ke form kemudian atur propertinya dengan Style :1 - Graphical. Setelah itu Anda ketik kode dibawah ini untuk meambahkan efek warna :

Private Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = vbRed

End Sub

Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = vbWhite

End Sub

Keterangan :

• Untuk Efek bayangan (sahadow), ketika Anda menjalankan programnya maka secara otomatis CommandButton Anda akan membentuk bayangan hitam di tepinya.Anda bisa mengganti efek bayangannya dengan warna yang lain dengan cara mengganti kode di bagian "Shadow Me, Command1, 4, vbBlack".Pada kata "vbBlack" ganti dengan warna kesukaan Anda, misalnya "vbRed".
• Untuk efek warna commandbutton, ketika program dijalankan memang tidak ada reaksi apa-apa, tetapi ketika Mouse Anda gerakan Commandbutton akan berubah menjadi putih, untuk membuktikannya coba gerakan Mouse Anda dan arahkan Mouse di atas Commandbutton, apa yang terjadi.Terjadilah perubahan warna ketika Mouse di tempatkan diatas Commandbutton tersebut.Tetapi ketika Anda tidak mengarahkan Mouse Anda lagi ke atas Commandbutton tersebut maka warna Commandbutton akan berubah menjadi putih lagi.

Demikian tip Efek Shadow CommandButton Visual Basic 6.0. Dengan tip semoga kita bisa menerapkan pada program kita yang sudah jadi, sehingga tampilan akan tampak lebih menarik lagi. Semoga bermanfaat.

Related Post: CommandButton