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
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