0/5 (8 avis)
Snippet vu 5 797 fois - Téléchargée 38 fois
'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
27 mars 2006 à 15:43
1 avril 2005 à 11:25
*
* Regardez la source de Zeroc00l (10/10)
*
* http://www.vbfrance.com/article.aspx?Val=5579
*
*
****************************************************************************
31 juil. 2003 à 14:45
31 juil. 2003 à 05:17
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 ;)
30 juil. 2003 à 13:31
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.