Cara Membuat Form Border None Dapat Di Gerakkan Oleh Mouse

Jumat, 05 April 2013


Teman-teman pasti pernah membuat aplikasi dengan form type : " none " tetapi untuk type ini tidak bisa di gerakkan oleh mouse.? berikut cara memasukkan source kode dan source kodenya.

Pertama klik dua kali pada form dengan border NONE tersebut dan lihat di kanan atas pilih dan cari [ Mouse_Move ] kemudian masukkan kode 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

klik disini untuk copy cepat source kode...........

Setelah itu tekan tombol F5 kemudian lihat hasilnya.. Terima Kasih.
Jangan lupa follow saya untuk supportnya @kenhondar

1 komentar :