Cara Membuat Aplikasi Menggambar dengan Gerakan Mouse di Visual Bic 6.0.
Pada pertemuan kali ini saya akan berbagi tips dan trik bagaimana cara membuat aplikasi menggambar dengan Gerakan mouse di Visual Bic 6.0. Seperti sebuah aplikasi Paint yang terdapat di MS.Office, dimana kita dapat menulis dan menggambar hanya dengan mengklik symbol pen pada tool, kemudian menggerakannya dengan mouse.
Pergerakan mouse dapat dikombinasikan dengan metode grafik atau gambar dan warna yang dapat dibuat di sebuah form Visual Basic. Aplikasi ini menggabungkan gerakan MouseMove dan MouseDown, dan mengilustrasikan program menggambar.
Berikut adalah cara membuat Aplikasi Menggambar dengan Gerakan Mouse di Visual Bic 6.0.:
Cara Membuat Aplikasi Menggambar dengan Gerakan Mouse di Visual Bic 6.0.
- Buka Proyek Standard EXE baru
- Tambahkan sebuah kontrol tombol CommandButton dengan proprties Caption “Clear”
- Masukkan kode berikut dalam Prosedur Form_MouseDown ( ), Prosedur Form_MouseMove ( ) dan prosedur Command1_Click ( ).
Source Kode :
Form1.Cls
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y)
End If
End Sub
Setelah mengetik kode di atas jangan lupa simpan kemudian jalankan program
Keterangan :
Nilai Button 1 menunjukkan bahwa tombol kiri mouse diklik. Kode yang ditulis dalam event MouseDown mengubah CurrentX dan CurrentY ke koordinat ketika tombol mouse baru saja diklik.
Cara Pengoprasian :
Klik mouse Anda sambil di tahan kemudian gerakan mouse sesuai dengan Gerakan dimana Anda akan menggambar atau menulis. Gambar berikut mengilustrasikan aksi gabungan MouseDown dan MouseMove.
 |
| Efek Mouse Move dan Mouse Down |
Program ini menggunakan dua konsep Visual Basic yang berhubungan dengan grafik, metode Line dan properti CurrentX dan CurrentY. Metode garis lebih cocok untuk menggambar garis dalam Form dan Gerakan mouse akan menghasilkan garis dengan koordinat X = 2500, Y = 2000, X = 5000, Y = 5500
Line (2500, 2000) - (5000, 5500)
Properti CurrentX dan CurrentY tidak terlihat di jendela properti Form karena tidak dapat diset pada waktu desain. Setelah menggunakan metode Garis untuk menggambar garis dalam Form, Visual Basic secara otomatis menetapkan koordinat titik akhir garis ke properti CurrentX dan CurrentY dari Form tempat garis digambar.
Berikut adalah contoh lain dari peristiwa MouseMove untuk setiap piksel yang digerakkan mouse dan sejumlah pesan mouse yang dihasilkan per detik oleh lingkungan operasi. Aplikasi berikut mengilustrasikan seberapa sering kejadian Form_MouseMove ( ) dijalankan.
- Buka proyek EXE standar baru
- Tempatkan kontrol CommandButton dengan Caption Clear dan atur namanya sebagai Command1
Masukan kode berikut dibawah ini dalam Event Command1_Click ( ) dan Form_MouseMove ( ).
Form1.Cls
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Circle (X, Y), 70
End Sub
Prosedur di atas hanya menggambar lingkaran kecil di lokasi mouse saat ini menggunakan metode Lingkaran. Parameter x, y mewakili pusat lingkaran, dan parameter kedua mewakili jari-jari lingkaran.
Simpan aplikasi dan jalankan Program.
Anda dapat melihat bahwa ketika mouse digerakkan di dalam Form, lingkaran-lingkaran digambar di sepanjang jalur pergerakan mouse seperti yang ditunjukkan pada gambar di bawah ini.
 |
| Efek Mouse Move Circle |
Dan Anda juga bisa melihat lingkaran-lingkaran itu berjarak lebar saat mouse digerakkan dengan cepat. Setiap lingkaran kecil merupakan indikasi bahwa peristiwa MouseMove terjadi dan prosedur Form_MouseMove ( ) dijalankan.
Demikian tips dan trik dari saya Cara Membuat Aplikasi Menggambar dengan Gerakan Mouse di Visual Basic 6.0, semoga bermanfaat
No comments:
Post a Comment