Ex. concrets ! deplacer une form avec la methode du clique-tire

Commenter

Contenu du snippet

Cette série de noyaux de code ou d'outils, peuvent être utilisés pour créer des programmes entiers, beaucoup plus simplement.
Très peu sont directement de moi, mais souvent décortiqués afin de les rendre beaucoup plus compréhensible et simple de ré-utilisation.

Source / Exemple : 


'Copiez-collez ce code dans une de vos form et testez !

Private Down As Integer, DepartX As Integer, DepartY As Integer

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Down = True And Button = 1 Then
        If X > DepartX Then
            Form1.Left = Form1.Left + Abs((X - DepartX))
        ElseIf X < DepartX Then
            Form1.Left = Form1.Left - Abs((X - DepartX))
        End If
        
        If Y > DepartY Then
            Form1.Top = Form1.Top + Abs((Y - DepartY))
        ElseIf Y < DepartY Then
            Form1.Top = Form1.Top - Abs((Y - DepartY))
        End If
    End If
    
End Sub

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

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.

Du même auteur (Ludolpif)