yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 2010
-
1 juin 2002 à 22:32
MalcolMZ
Messages postés110Date d'inscriptionjeudi 4 juillet 2002StatutMembreDernière intervention 2 octobre 2006
-
15 oct. 2004 à 17:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
MalcolMZ
Messages postés110Date d'inscriptionjeudi 4 juillet 2002StatutMembreDernière intervention 2 octobre 2006 15 oct. 2004 à 17:37
arf..je bug..en tout cas..je v enfin pouvoir faire une form aimanté ki prend en compte ou se trouve la barre des tâches
MalcolMZ
Messages postés110Date d'inscriptionjeudi 4 juillet 2002StatutMembreDernière intervention 2 octobre 2006 15 oct. 2004 à 17:35
meric pour l'info koolstuff..enfin kkl chose d'interesasnt a savoir
cs_koolstuff
Messages postés4Date d'inscriptionlundi 15 mars 2004StatutMembreDernière intervention23 février 2006 15 mars 2004 à 10:45
Petit détail, ce script ne tiens pas compte du cas ou on aurai un 2eme écran. Si quelqu'un a la solution d'ailleur ça m'arrangerai bien.
Sinon pour détecter la barre des taches en bas tu peux utiliser l'objet Microsoft SysInfo Control 6.0 qui donne la propriété WorkAreaHeight assez sympa (:
cs_config
Messages postés54Date d'inscriptionlundi 3 décembre 2001StatutMembreDernière intervention17 septembre 2002 7 sept. 2002 à 06:46
lololol genre c ton ordi ki ta fait dire un truc débile....
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 1 juin 2002 à 23:15
ha non dsl je me suis tromper ,sa marche aussi c"est que mon ordin avec un bug(comme tout ceux qui possede windows :) )
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 1 juin 2002 à 22:32
Salut je voulais te dire a tu tester ce code!!!!!!! C"est dans le form mouse up et non dans le mousemove kil fo mettre ce script:
If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = Me.Left - (MonX - X) 'recalcule les positions de la feuille dans les
TempY = Me.Top - (MonY - Y) 'les variables pour éviter le clignotement
If Abs(TempX) < 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((TempX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = TempX
End If
If Abs(TempY) < 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((TempY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = TempY
End If
End If
15 oct. 2004 à 17:37
15 oct. 2004 à 17:35
15 mars 2004 à 10:45
Sinon pour détecter la barre des taches en bas tu peux utiliser l'objet Microsoft SysInfo Control 6.0 qui donne la propriété WorkAreaHeight assez sympa (:
7 sept. 2002 à 06:46
1 juin 2002 à 23:15
1 juin 2002 à 22:32
If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = Me.Left - (MonX - X) 'recalcule les positions de la feuille dans les
TempY = Me.Top - (MonY - Y) 'les variables pour éviter le clignotement
If Abs(TempX) < 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((TempX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = TempX
End If
If Abs(TempY) < 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((TempY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = TempY
End If
End If
En tk bonne prog et @++