Membuat tombol mirip flash dengan excel - Cara kerja atau sifat flash identik dengan animasi, yaitu gambar yang bisa bergerak namun dengan fps yang rendah, untuk kali ini admin asis10.com akan memberikan tips atau cara membuat tombol flash dalam userform excel. Tombol flash merupakan media interaksi antara pengguna dengan aplikasi yang akan kita buat. Misalnya begini ketika pengguna hendak mengklik tombol keluar maka tombol tersebut akan berubah menjadi merah, dan ketika pengguna meninggalkan area tombol tersebut maka warna tombol tersebut aka kembali seperti semula

Lihat ilustrasinya sebagaimana gambar dibawah ini


Bagaimana cara Membuat tombol mirip flash dengan excel ? ikuti langkah langkahnya dibawah ini

Buka Mirosoft Excel, masuk langsung kejendela VBE dengan menekan tombol ALT+F11
Insert Userform, seret dua kontrol tombol Commandbutton


Sekarang tentukan warna dasar dari kedua tombol, disini saya akan menentukan warna tombol dengan backgroud abu abu dan warna font hitam

Dan warna tombol akan berubah ketika pengguna mengarahkan kursor kearea tombol, warna background tombol akan berubah menjadi merah dan warna font akan berubah menjadi putih

Anda bisa mengambil kode warna pada jendela properties, pilih background atau Fore Color

Kode macro mengembalikan warna tombol kewarna dasar (yang telah ditentukan sebelumnya)
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H8000000F&
CommandButton2.BackColor = &H8000000F&
End Sub

Menjadikan tombol pertama menjadi warna merah

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HFF&
End Sub

Menjadikan tombol kedua menjadi warna merah

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &HFF&
End Sub



Jika semua logika diatas ditulis dalam area code userform maka menjadi seperti ini

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HFF&
CommandButton1.ForeColor = &H8000000F&
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &HFF&
CommandButton2.ForeColor = &H8000000F&
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H8000000F&
CommandButton2.BackColor = &H8000000F&
CommandButton1.ForeColor = &H80000012&
CommandButton2.ForeColor = &H80000012&
End Sub

Sampai disini anda sudah berhasil Membuat tombol mirip flash dengan excel, silahkan dites terlebih dahulu.

Bagaimana kalau tombolnya diganti dengan gambar ?? untuk membuat tombol flash dengan gambar ikuti kembali langkah langkag dibawah ini

Buat desig form dengan 4 kontrol image, lihat design form dibawah ini


Siapkan empat gambar extensi jpg, bmp, gif, ico


Insert kekontrol image , sehingga menjadi seperti ini


Atur properties kontrol image1 dan image2 menjadi Visible False


Seret kontrol Image3 dan Image4 sejajar dengan Image1 dan Image2

Klik kanan pada mouse anda, lalu pilih View Code kemudian ketik kode maro dibawah ini

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image3.Visible = False
Image1.Visible = True
End Sub
Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image4.Visible = False
Image2.Visible = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = True
End Sub

Simpan dan silahkan dicoba

Download sampelnya pada link donwload ini

Follow IG Wasis Zain atau Like fanpage Asis10.com

Demikianlah cara Membuat tombol mirip flash dengan excel artikel serupa cara membuat teks berjalan dengan excel, semoga bermanfaat
No comments