icon souris

Bonjour a tous,
je souhaiterais afficher une image et permettre a l'utilisateur de faire des zoom in et out sur celle-ci ... pour cela, j'ai pensez afficher l'image en mignature sur le cote gauche et l'image en grand en plan central (a la photoshop en fait) ... mais voila

je me demandais si il etait possible de changer l'icon par une main ... et faire un glisser de l'image ??

merci d'avance,

jerome

Hello,

pour ce qui est de l'icône de la souris, tu la propriété "MousePointer" que tu peux modifier par soft
Pour le glisser... :cry: jamais fait.

A+

Bonsoir,
Essaye de tirer profit de ce code.
Sur ta Form, tu places deux contrôles Image. Tu places l'image1 a l'extrémité gauche de ta form (Image1> propriété DragMode sur 1-Automatic) et la deuxième image au centre de ta Form (à la place d'image, tu peux utiliser des PictureBox)

Code:

---

1 2 3 4 5 6 7 8

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single) If TypeOf Source Is Image Then ' Attribue au contrôle Image2 la même image ' bitmap qu'au contrôle source. Image2.Picture = Source.Picture End If End Sub

---

jpleroisse

Salut

Tu peux placer ton image dans un contrôle Image qui est lui-même dans un contrôle PictureBox. Le contrôle pictureBox étant un conteneur, il n'y aura pas de problèmes.

Voici le code (de base...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim iX As Single, iY As Single   Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) iX = X iY = Y End Sub   Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim mouvH As Single, mouvV As Single mouvH = iX - X mouvV = iY - Y Image1.Left = Image1.Left - mouvH Image1.Top = Image1.Top - mouvV 'Il reste à gérer le dépassement... 'Tu verras bien! End Sub

---

merci pour tout ;)