Tags

, , , , , , , , , , ,

Membuat efek pada button di VB6 memang tidak semudah di Delphi, karena pada Delphi terdapat fungsi onMouseOver, sedangkan pada VB6 tidak ada. Tetapi ada cara untuk mengakali hal tersebut. Berikut adalah langkah2nya untuk membuat tombol menjadi berwarna merah dengan font 14 pada saat mouse berada di atasnya:

  1. Deklarasikan dan isi di form_load 2 variabel berikut (Catatan: deklarasi ini tidak diharuskan dan dapat disesuaikan dengan kebutuhan):
  2. Private OrigColorAs Long
    Private OrigSize As Integer

    Private Sub Form_Load()
    OrigColor = Command1.BackColor
    OrigSize = Command1.Font.Size
    End Sub

  3. Untuk membuat event mouseover pada button, double klik pada button dan pilih event mouse move, kemudian masukkan kode di bawah ini:
  4. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single)
    Command1.BackColor = vbRed
    Command1.Font.Size = 14
    End Sub

  5. Untuk membuat button kembali ke asal pada saat pointer mouse keluar dari tombol, double klik pada form dan pilih event mousemove, kemudian masukkan kode di bawah ini:
  6. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _Y As Single)
    Command1.Font.Size = OrigSize
    Command1.BackColor = OrigColor
    End Sub

Sebelum

Sebelum

Sesudah

Sesudah

Fungsi-fungsi di atas bukan hanya untuk mengubah warna saja, tetapi juga bisa untuk berbagai macam efek. Silakan dicoba, semoga dapat membantu.