Form magnétique qui se colle au bordure de l'écran

Télécharger le projet
Commenter

Description

Cette source vous montre comme il est possible de rendre l'effet de magnétisme, un peu comme winamp pour ceux qui connaissent

Source / Exemple : 


Private Type Ecran
    X As Integer
    Y As Integer
End Type
Private Function get_Res() As Ecran
    get_Res.X = Screen.Width \ Screen.TwipsPerPixelX
    get_Res.Y = Screen.Height \ Screen.TwipsPerPixelY
End Function
Private Sub form_load()
Timer1.Interval = 1
End Sub
'détermine la position la position de la form tous les x secondes
Private Sub Timer1_Timer()
If Form1.Top < 480 Then '480 est une mesure en twip
Form1.Top = 0 'colle la form contre la bordure du haut
End If
If Form1.Top > (((get_Res.Y * 15) - Form1.Height) - 800) Then '*15 signifie que je multiplie la largeur de l'écran (mesure en twip) que je multiplie par 15 pour avoir la mesure en pixels
Form1.Top = (((get_Res.Y * 15) - Form1.Height) - (420)) 'colle la form contre la barre des taches
End If
If Form1.Left > (((get_Res.X * 15) - Form1.Width) - 480) Then
Form1.Left = ((get_Res.X * 15) - Form1.Width) 'colle la form contre la bordure de droite
End If
If Form1.Left < 480 Then
Form1.Left = 0 'colle la form contre la bordure de gauche
End If
End Sub

Conclusion :


Pour le moment aucun bug connu. Ca serait sympa que vous puissiez tester le code sous différentes résolution, j'ai les conçu sous 800*600 et normalement fontionne sous toutes les résolutions. merci d'avance pour vos remarques constructives et vos notes...
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 (cs_cosmic)