Senin, 04 April 2011

Membuat aplikasi gadget sederhana dengan fungsi Mouse Down dan Mouse Move di VB.NET/Visual Studios 2008

Posted at 09.33 by thegudangupil
Pertama buatlah project Windows Forms Aplication dan beri nama projek ini Aplikasi sederhana,
*Gambar bisa diperbesar dengan double klik pada setiap gambar
Setelah berada pada halam kerja, klik Form dan lihat pada bagian Tab Properties Form1, Rubah lah Bagian FormBordeStyle menjadi None
Setelah itu carilah BackColor dan rubahlah menjadi waran Lime
dilanjut dengan merubah TransparencyKey menjadi Lime juga
kemudian pada bagian Text di Properties Form1 kosongkan
maka tampilan Form1 akan seperti contoh gambar dibawah ini, langkah selanjutnya menambahkan PictureBox ke Form1
bila sudah selesai ditambahkan pada Form1 klik PictureBox dan lihat properties PictureBox1
pada bagian image tambahkan sebuah gambar *dicontohkan dengan gambar berebentuk file *.gif
setelah diklik akan tampil wizard seperti gambar dibawah ini, klik Local resource dan klik Import... dan carilah gambar ber ekstensi *.gif untuk dimasukan ke aplikasi ini..
bila sudah maka tampilanya seperti berikut klik Ok jika sudah

maka tampilanya pada form gambar yang kita tambhkan akan seperti ini, untuk langkah selanjutnya klik panah kecil pada PictureBox di Form1 dan rubah Size Mode menjadi AutoSize.
Setelah itu klik form yang berwarna Lime hingga timbul node-node putih kemudia geser hingga gambar yang kita masukan kelihatan seutuhnya
contoh gambar terlihat seutuhnya pada Form

Double klik pada gambar / PictureBox1 setelah masuk pada bagian listing code, carilah MouseDown seperti pada gambar
Setelah muncul Deklarasi untuk MouseDown masukan code sebagi berikut :
X = Control.MousePosition.X - Me.Location.X
Y = Control.MousePosition.Y - Me.Location.Y


tambahkan code berikut setalah deklarasi Public Class Form1
Dim NewPoint As New System.Drawing.Point()
Dim X, Y As Integer

Bila sudah dimasukan semuda codenya sekarang carilah fungsi MouseMove seperti di contoh Gambar
Setelah itu masukan code berikut pada deklarasi MouseMove
If e.Button = MouseButtons.Left Then
   NewPoint = Control.MousePosition
   NewPoint.X -= (X)
   NewPoint.Y -= (Y)
Me.Location = NewPoint
End If


Setelah selesai semua langkah dilakukan, saat untuk mencoba aplikasi ini silahkan jalankan dengan menekan tombol debugging atau F5
hasilnya aplikasi ini bisa di kontrol oleh mouse

*Sumber gambar Ayam Berdanasa diambil dari pencarian Gambar di Google (bingung gambar ini banyak digunakan hehe...)

Selamat mencoba dan berkreasi...!!!

Related Post



Tidak ada komentar:

Posting Komentar