1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Aimanter une fenetre simplement sur le bord de l'ecran (comme winamp) lol

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

0/5 (8 avis)

Snippet vu 5 797 fois - Téléchargée 38 fois

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

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
27 mars 2006 à 15:43
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 2
1 avril 2005 à 11:25
****************************************************************************
*
* 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
31 juil. 2003 à 14:45
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
31 juil. 2003 à 05:17
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 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010
30 juil. 2003 à 13:31
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 ...
Afficher les 8 commentaires
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)