RSS

Memindah form tanpa menggunakan border

Untuk menggerakkan form dengan men-Drag sembarang tempat dengan script berikut :

Paste kan code ini di bagian Declarations

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Selanjutnya coding ini di bagian Form_MouseDown

If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 comment:

Posting Komentar

Langganan: Posting Komentar (Atom)