Sert a aimanter une fenetre sur le bord de l'ecran un peu comme Winamp :]
faites un timer avec un interval de 1
Source / Exemple :
'Dans un module
Public Function Aimant(fenetre As Form)
'on declare
Dim Bas As Integer
Dim LimiteBas As Integer
Dim Droite As Integer
Dim LimiteDroite As Integer
'on Calcule
LimiteBas = fenetre.Top + fenetre.Height
Bas = Screen.Height - 900
'j'ai mis 900 car il faut tenir compte du la bare des taches
'sachant ke la barre des taches fait environ 400 de height si on met un nombre inferieur a selui si il fo
'deplacer notre fenetre en dessous de la barre des tache pour ke celle ci se colle dessus
'je c pas si g été clair :x le mieu c de tester zavé K mettre un nombre inferriere a 400
LimiteDroite = fenetre.Left + fenetre.Width
Droite = Screen.Width - 500
'la rien de compliké lol
'_________________________________________________________________________
If LimiteBas > Bas Then
fenetre.Top = Screen.Height - fenetre.Height - 400
'la aussi g enlever 400 pour la barre des tache (encore elle)
'puisque la barre des taches fait environ 400 de height
'il fo enlever cette valeur pour ke notre fenetre se colle sur la barre des tache
'et non en dessous
End If
'________________________________________________________________________
If fenetre.Top < 500 Then
fenetre.Top = 0
'bah ....rien de trop compliké :]
End If
'________________________________________________________________________
If fenetre.Left < 480 Then
fenetre.Left = 0
'idem ça ma pas l'air trop compliké a comprendre
End If
'_________________________________________________________________________
If LimiteDroite > Droite Then
fenetre.Left = Screen.Width - fenetre.Width
'ya rien de compliké non plu ...kestion de bon sens lol
End If
End Function
'dans le code
Private Sub Timer1_Timer()
Call Aimant(Me)
End Sub
Conclusion :
Ben wala les commentaires sont bien evidament les bienvenus :]
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.