Discussion :

[suckthewindow]

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

[ouskel'n'or]

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... jamais fait.

A+

[leroissejp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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 :

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
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

[suckthewindow]

merci pour tout