Клубове

Drag Window

1 отговора 75 прегледа
FlexMaster #1

Drag Window

Zdraveite kak moje da se napravi formata chrez "dragvaneto" na nqkoi label ili image da se mesti i samiq Prozorec! Pomognete che nestava neshto!

Отговор
wqw в отговор на FlexMaster #2

Re: Drag Window

Сложи един Label контрол във Form1 и пробвай това: 
Option Explicit



Private Const WM_SYSCOMMAND         As Long = &H112

Private Const SC_MOVEBYMOUSE        As Long = &HF010& + 2



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

Private Declare Function ReleaseCapture Lib "user32" () As Long



Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Call ReleaseCapture

    Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MOVEBYMOUSE, ByVal 0)

End Sub

cheers,
</wqw>

Отговор
Отговор в темата