Déplacement d'un Formulaire sans bordure

Signaler
Messages postés
3
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
13 juillet 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
J'aimerais savoir comment je peut faire bouger un formulaire sans bordure avec visual basic 2008 express édition. J'ai vu sur certain forum des codes mais ceux ci ne fonctionne pas avec ma version de visual. merci d avance

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
BONJOUR AUSSI

WWW.CODYX.ORG



<hr />
'    DÉPLACER UNE FORME SANS BARRE DE TITRE
'    http://www.codyx.org/snippet_deplacer-forme-sans-barre-titre_23.aspx#71
'    Posté par [ Pym Corp ] le 22/03/2006
<hr />



Private Declare Function
ReleaseCapture Lib"user32" () As Integer
Private Const HTCAPTION As
Integer = 2
Private Const WM_NCLBUTTONDOWN
As Integer = &HA1S
Private
Declare Function SendMessage Lib"user32"Alias"SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
Private Sub Form_MouseDown(ByVal
sender As Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    If
e.Button = Windows.Forms.MouseButtons.Left Then
        ReleaseCapture()
       
SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN,
HTCAPTION, 0)
    End If
End Sub








<hr size="2" width="100%" />