Soyez le premier à donner votre avis sur cette source.
Vue 4 931 fois - Téléchargée 518 fois
Private Type Ecran X As Integer Y As Integer End Type Private Function get_Res() As Ecran get_Res.X = Screen.Width \ Screen.TwipsPerPixelX get_Res.Y = Screen.Height \ Screen.TwipsPerPixelY End Function Private Sub form_load() Timer1.Interval = 1 End Sub 'détermine la position la position de la form tous les x secondes Private Sub Timer1_Timer() If Form1.Top < 480 Then '480 est une mesure en twip Form1.Top = 0 'colle la form contre la bordure du haut End If If Form1.Top > (((get_Res.Y * 15) - Form1.Height) - 800) Then '*15 signifie que je multiplie la largeur de l'écran (mesure en twip) que je multiplie par 15 pour avoir la mesure en pixels Form1.Top = (((get_Res.Y * 15) - Form1.Height) - (420)) 'colle la form contre la barre des taches End If If Form1.Left > (((get_Res.X * 15) - Form1.Width) - 480) Then Form1.Left = ((get_Res.X * 15) - Form1.Width) 'colle la form contre la bordure de droite End If If Form1.Left < 480 Then Form1.Left = 0 'colle la form contre la bordure de gauche End If End Sub
10 mai 2006 à 15:06
If Me.Top > 5 And Me.Left > 5 Then
If Me.Top < 480 Then
Me.Top = 0
End If
If Me.Top > (((get_Res.Y * 15) - Me.Height) - 800) Then
Me.Top = (((get_Res.Y * 15) - Me.Height) - (420))
End If
If Me.Left > (((get_Res.X * 15) - Me.Width) - 480) Then
Me.Left = ((get_Res.X * 15) - Me.Width)
End If
If Me.Left < 480 Then
Me.Left = 0
End If
End If
Je trouve que c'est mieu comme sa ;)
23 sept. 2004 à 21:47
Qui se colle au autre fenetre et a la barre des tache quand elle est plus grande que la normale, etc...
@++
YoMan64
PhPKoDe.Com
11 févr. 2004 à 10:23
DarK Sidious
14 nov. 2002 à 15:02
Je n'ai pas pensé a la barre des taches, je vais essayer de remédier a se problème.
J'espère faire une mise a jour très bientôt...
Merci pour vos commentaire...je ne suis qu'un débutant et je suis assez content de voir au moment ou j'écrit ce message il y a 133 affichage.
merci a tous pour vitre intéret.
14 nov. 2002 à 14:00
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.