[VB6] Muovere un form

[DilanDog]

Qualcuno mi sa dire come posso fare per muovere un form "acchiappandolo" sul corpo del form stesso anzichè sulla barra del titolo? Vorrei fare un form senza bordi, quindi anche senza barra del titolo visibile, però vorrei poterlo spostare trascinandolo con il mouse. Ho provato con il mouse_move ma viene uno schifo, qualche suggerimento? Forse c'è qualche windows message (via API) da intercettare/inviare?

[Robby78]

Con le API è decisamente + elegante, ma bisognerebbe documentarsi un po' e nn ne ho voglia; col mousemove però ho provato e mi sembra che funzioni bene.... prova con questo codice:

Codice: Seleziona tutto

Dim bClick As Boolean
Option Explicit

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    bClick = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static nX As Single
    Static nY As Single
   
    If bClick Then
        If nX <> 0 Then
            Me.Left = Me.Left + X - nX
        Else
            nX = X
        End If
        If nY <> 0 Then
            Me.Top = Me.Top + Y - nY
        Else
            nY = Y
        End If
    Else
        nX = 0
        nY = 0
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    bClick = False
End Sub


[Silver Black]

Qualcuno mi sa dire come posso fare per muovere un form "acchiappandolo" sul corpo del form stesso anzichè sulla barra del titolo? Forse c'è qualche windows message (via API) da intercettare/inviare?

Esatto, l'API SendMessage:

Codice: Seleziona tutto


Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Const EM_GETLINECOUNT = &HBA



Public Sub MoveFormByDragDrop(MouseButton As Integer, objForm As Form)
'-------------------------------------------------------------------------
' Muove una finestra come se si usasse il drag&drop sulla barra del titolo
'-------------------------------------------------------------------------

  If MouseButton = vbLeftButton Then
      ReleaseCapture
      SendMessage objForm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  End If
   
End Sub



Ciao!

[Robby78]

...

bella lì!! buono a sapersi

[Silver Black]

...

bella lì!! buono a sapersi

Grazie! E ovviamente la chiamata a MoveFormByDragDrop va messa nell'evento MouseDown della form che ci interessa muovere, passando il parametro Button e la stessa form:

Codice: Seleziona tutto

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MoveFormByDragDrop(Button, Me)
End Sub


[DilanDog]

Grazie a tutti e due, la soluzione con l'API poi è proprio quella che cercavo, sapevo che c'era da qualche parte