Cara Membuat Form Border None Dapat Di Gerakkan Oleh Mouse Vb6


Mau membuat aplikasi dengan form type : none tetapi untuk tipe 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

Setelah itu tekan tombol F5 kemudian lihat hasilnya.

1 Response to "Cara Membuat Form Border None Dapat Di Gerakkan Oleh Mouse Vb6"