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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 238 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaires

EvilGost
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
2 -
le problème de cette source, c'est qu'elle n'est compatible qu'avec les configurations "par défaut" de windows, c'est à dire Barre des taches en bas et non-redimensionné...
cs_salazar
Messages postés
241
Date d'inscription
mercredi 1 octobre 2003
Statut
Membre
Dernière intervention
19 février 2006
1 -
****************************************************************************
*
* Regardez la source de Zeroc00l (10/10)
*
* http://www.vbfrance.com/article.aspx?Val=5579
*
*
****************************************************************************
cs_mehdibou
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004
-
Puisque c'est un espace pub (n'est pace ZeroC00l ;) ) : Si vous voulez des forms magnetiques _sur le bord de l'écran_ (je précise, c'est différent des forms magnétiques entre elles), allez voir ma source : http://www.vbfrance.com/article.aspx?Val=9585 et si vous voulez plus d'explications (avec un s ;) ) je suis également présent :p
cs_Fraggy
Messages postés
95
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
2 juin 2010
-
J'ai failli DL ce code, mais a priori c'est pas ce que je cherche a comprendre dans VB (oui je suis nouveau) j'ai deja lu bcp de post mais j'ai pas encore trouvé. C simple je cherche pour mon prg le moyen d'aimanter deux forme entre elle (comme Winamp).

J'ai pu remarker aussi la grande participation de Renfield dans cette section, donc si toi ou quelqu'un a une source à m'indiquer afin de comprendre (voir utliser tout fait) la manière de faire cet aimantage, ce serait sympas ;)
cs_Zeroc00l
Messages postés
370
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010
-
Si vous voulez des forms magnetiques comme winamp, allez voir ma source : http://www.vbfrance.com/article.aspx?Val=5579 qui gère le "multi-magnetic-form" :) si vous voulez plus d'explication je suis la ...

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.