Aimanter une form

Télécharger le projet
Commenter

Description

Ben on approche la form et hop elle est collé a l'écran.

Source / Exemple : 


Dim MonX, MonY

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MonX = X
MonY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = Me.Left - (MonX - X)      'recalcule les positions de la feuille dans les
TempY = Me.Top - (MonY - Y)       'les variables pour éviter le clignotement

If Abs(TempX) < 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((TempX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = TempX
End If

If Abs(TempY) < 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((TempY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = TempY
End If
End If
End Sub

Conclusion :


ELLE N'EST PAS DE MOI CETTE SOURCE.
Télécharger le projet

Codes Sources

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 (AVSoft)