bonjour à toutes et tous
je veux faire un écran de veille qui affiche toutes mes photos de vacances.lorsque je veux faire des transitions d'image(.jpg) j'utilise un controle image et la propriété move.
premièrement le déplacement n'est pas très fluide!
deuxièment si je fais apparaitre l'image dans le coin inférieur droit, que je fait progresser la photo vers le coin supérieur gauche, ça va bien tant que la largeur de la photo (largeur inférieure à la largeur totale de l'écran et inférieure à la hauteur) donc quand le bord droit de la photo passe le bord droit de l'écran et continue sa progression l'image saute
essayé ce code pour mieux voir avec une image plus haute que large
x et y sont les positions finales ducoin supérieur gauche de la photo
Sub inf_dr_sup_ga(vue As Image, ByVal x As Integer, ByVal y As Integer)
si quelqu'un à une explication ou une meilleur méthode pour déplacer des images
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Dim L, H Dim vit vit = 50 'vitesse de déplacement L = Screen.Width H = Screen.Height deltay = (H - y) / vit deltax = (L - x) / vit Do While L > x vue.Move L, y ' H L = L - deltax H = H - deltay Loop vue.Move x, y End Sub
merci d'avance
Partager