Bouger une form sans bordure ( borderstyle = 0-none)

Commenter

Contenu du snippet

Comment faire pour que votre form soit bougeable sans cette horrible barre de MICROSOFT

Source / Exemple : 


'ca c est a mettre dans le general

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private dx As Integer, dy As Integer, dwn As Integer

Private Type POINTAPI
   X As Long
   Y As Long
End Type

'celui ci dans me mousedown

Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
dx = X
dy = Y
dwn = True
End Sub

'celui ci dans le mouse move

Private Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
If dwn Then
    Move Left + (X - dx), Top + (Y - dy)
    u% = DoEvents 'make sure it cleans up
    'u est un integer
End If
End Sub

'et celui la dans le mouse up

Private Sub Form_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
dwn = False
End Sub

Conclusion :


vous pouvez mettre se code dans la form OU SUR NIMPORTE KOI D'AUTRE (a condition que ce soit touchable bien sur, du genre un hlbpanel, un label, ect ... ), ce qui fera bouger votre form quand vous cliquerez dessus

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.