Form magnétique qui se colle au bordure de l'écran
Soyez le premier à donner votre avis sur cette source.
Vue 4 785 fois - Téléchargée 497 fois
Description
Cette source vous montre comme il est possible de rendre l'effet de magnétisme, un peu comme winamp pour ceux qui connaissent
Pour le moment aucun bug connu. Ca serait sympa que vous puissiez tester le code sous différentes résolution, j'ai les conçu sous 800*600 et normalement fontionne sous toutes les résolutions. merci d'avance pour vos remarques constructives et vos notes...
Source / Exemple :
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
Conclusion :
Pour le moment aucun bug connu. Ca serait sympa que vous puissiez tester le code sous différentes résolution, j'ai les conçu sous 800*600 et normalement fontionne sous toutes les résolutions. merci d'avance pour vos remarques constructives et vos notes...
Codes Sources
A voir également
- Colle a bordure
- Macro copier coller valeur dans une autre feuille ✓ - Forum - Visual Basic
- Vba excel coller le contenu du presse papier - Conseils pratiques - Visual Basic / VB.NET
- Copier coller javascript - Forum - Javascript / DHTML
- Copier coller python - Forum - Python
- Excel vba copier coller plusieurs lignes - Forum - Visual Basic
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 ;)
- Messages postés
-
962
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Membre
- Dernière intervention
- 2 août 2010
1Qui se colle au autre fenetre et a la barre des tache quand elle est plus grande que la normale, etc...
@++
YoMan64
PhPKoDe.Com
- Messages postés
-
15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
126DarK Sidious
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.
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.