|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Arrastar um controle ou Formulário sem Título
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'Na parte geral do Form:
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
'No evento Mouse_Down
Dim rec&
If Button And 1 Then
ReleaseCapture
rec& = SendMessage(Me.hwnd, &HA1, 2, 0&)
End IF
'OBS.: Esta dica pode também ser usada para arrastar controles (Legal!!!).
|
|
|
|
|
