Trick Mouse Move Pada Button dan Membuat Loading di Visual Basic 6.0

Assalamu'alaikum Warrahmatullahi Wabarakatuh

Selain menggunakan Autotype untuk menghias visual form agar terlihat keren dan tidak kaku, kita juga bisa menggunakan trick mouse move pada button dan membuat loading pada project.

Mouse move button adalah salah satu event yang memperlihatkan perbedaan visual pada button disaat kita akan meng-click sebuah button. Button pada tidak harus selalu menggunakan CommandButton, kita bisa menggunakan gambar sebagai event untuk button dengan tujuan untuk memperindah project. Akan tetapi picture yang dipilih sebaiknya picture yang menyatakan sebuah tombol seperti berikut :

Quit 1

Quit 2

Bagaimana cara membuatnya ? Ikuti Langkah Berikut !

1. Buka Visual Basic 6.0, dan pilih Standard.EXE

2. Tambahkan satu form lagi dengan klik Project di menubar lalu pilih add form.

3. Tekan ctrl+t, dan pilih Microsof Windows Common Control 6.0 (SP6).

4. Masukkan Toolbar berikut pada form 1 :

    - 1 CommandButton (Caption = Masuk Form 2)

    - 1 ProgressBar (Visible = False dan Max=200)

    - 1 Timer (Enabled=False dan Interval=100)

5. Atur form1 seperti berikut :

6. Masukkan Kode Berikut :

Private Sub Command1_Click()

Command1.Visible = False

Timer1.Enabled = True

ProgressBar1.Visible = True

End Sub

Private Sub Timer1_Timer()

ProgressBar1.Value = ProgressBar1.Value + 20

        If ProgressBar1.Value >= 200 Then

        Form2.Show

        Form1.Hide

        Timer1.Enabled = False

        Unload Me

        End If

End Sub

7. Masukkan Toolbar berikut pada form 2 :

    - 1 CommandButton

    - 2 Image

8. Atur Properties CommandButton seperti berikut :

    - BackCollor = warna kuning

    - Caption = Keluar

    - Style = 1-Graphical

9. Atur Properties Image 1 seperti berikut :

    - Picture = pilih gambar tombl Quit 1 diatas

    - Stretch = true dan sesuaikan ukuran

10. Atur Properties Image 2 seperti berikut :

    - Picture = pilih gambar tombl Quit 2 diatas

    - Stretch = true dan ukuran disamakan dengan image1

    - Enable = false

    - Visible = false

11. Tata Toolbar tersebut seperti form dibawah ini : 

12. Masukkan Kode Berikut :

Private Sub Command1_Click()

tato = MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo, "Smurf Miner")

If tato = vbYes Then

End

End If

End Sub

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

Command1.BackColor = vbBlue

End Sub

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

Command1.BackColor = vbYellow

Image2.Enabled = False

Image2.Visible = False

Image1.Visible = True

End Sub

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

Image2.Enabled = True

Image2.Visible = True

Image1.Visible = False

End Sub

Private Sub Image2_Click()

tato = MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo, "Smurf Miner")

If tato = vbYes Then

End

End If

End Sub

13. Jalankan Project dengan tekan F5.

 Ketika dijalankan dan di klik Masuk Form 2 maka akan seperti ini: 

Ketika kita meletakkan pointer di image form 2 maka akan seperti ini :

Ketika kita meletakkan pointer di command1 form 2 maka akan seperti ini :

Mudahkan cara membuatnya ? Apabila masih ada yang bingung comment aja ya atau nge-DM juga bisa.

Ok, Semoga Bermanfaat ya ^_^

Wassalamu'alaikum Warrahmatullahi Wabarakatuh