Saturday, April 6, 2013

Cara Membuat Form Border None Dapat Di Gerakkan Oleh Mouse Visual Basic

Balik lagi pada pembahasan soal Visual Basic, kali ini saya akan membagikan sebuah cara agar Form dengan border None agar dapat di gerakan menggunakan mouse, memang pengaturan awal dari border None ini memang tidak dapat di kontrol pergerakannya oleh mouse maka dengan itu butuh beberapa kode tambahan yang dapat menggerakannya.


Oke kalau begitu langsung saja tanpa banyak basa-basi silahkan di aplikasikan cara berikut beserta kode yang harus kalian masukkan.

Baca Juga : Cara Membuat Aplikasi Sederhana Menggunakan Visual Basic

#1 : Klik dua kali pada form dengan border NONE kemudian lihat di sisi kanan atas, pilih dan cari Mouse_Move kemudian langsung salin masukkan kode berwarna merah berikut langsung ke dalamnya.

If Me.WindowState <> 0 Then Exit Sub
 
Static l As Integer, t As Integer
If Button = 1 Then
  Me.Left = (Me.Left + X) - l
  Me.Top = (Me.Top + Y) - t
Else
  l = X
  t = Y
End If

#2 : Setelah itu coba di test dengan menekan tombol F5 kemudian lihat hasilnya..


Bagaimana cukup simple kan? tentu sebuah aplikasi haruslah dapat di gerakan bayangkan kalau kalian membuka aplikasi yang diam di tempat dan tidak bisa di gerakan sama sekali rasanya menjengkelkan sekali ya, baik sekian dulu postingan saya kali ini next saya akan membagikan lebih banyak lagi tips dan trik buat kalian yang sedang bermain-main dengan Visual Basic.

Semoga informasi ini bermanfaat, Terima Kasih!

1 comment


EmoticonEmoticon