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
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.