Untuk menggerakkan Form yang sengaja tidak diberi border (BorderStyle=None) ketikkan kode berikut di bagian 'General' Form tersebut :
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, di bagian 'Form_MouseDown' ketikkan :
If Button = 1 Then 'klik kiri ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If
dan sekarang form tanpa borderpun bisa digerakan ... :-)
dikutip dari : putravb dengan sedikit perubahan
0 komentar "Menggerakan form tanpa Border di VB6", Baca atau Masukkan Komentar
Posting Komentar