CISA FotoGallery

Statistiche

Tot. visite contenuti : 927956
Home Articoli tecnici API Spostare una form senza la barra del titolo

Spostare una form senza la barra del titolo

opo aver impostato a "Nessuno" lo stile del Bordo della nostra Form risulterà impossibile spostarla.

Per ovviare a questo possiamo ricorrere all'uso delle API, in particolare SendMessage per imporre alla nostra Form la posizione.

CODICE

Option Compare Database
Option Explicit

Private Declare Function
SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long
Private Declare Function
ReleaseCapture Lib "user32" () As Long
Private Const
HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1


Private Sub Corpo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Dim
ReturnVal As Long
        Dim
z
        z = ReleaseCapture()
        ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub


Alessandro