Aimanter une fenetre simplement sur le bord de l'ecran (comme winamp) lol

Commenter

Contenu du snippet

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 :]

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