Discussion :

[patoch76]

Bonjour

Voila j'ai un picturebox d'ou j'apelle une image en memoire et je voudrais que ce picturebox apparaisse de facon aleatoire dans ma Form et pouvoir le glisser ou je veut avec la souris ,je precise que j'apelle le picturebox a partir d'un label:

Code :

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

1
2
3
4
5
Private Sub L01_Click()
Dim Tmp As IPicture
Set Tmp = LoadPicture(App.path & "\Image\environs de Lyon" & ".jpg")
Picture1 = Tmp
end sub

Je sais qu'il y as MouseMove mais je ne sais pas m'en servir
Merci pour la reponse

[jmfmarques]

voir dans Faq et Tutos :
Drag and Drop

[patoch76]

Voila mon code,mais des que je passe sur le picturebox il disparait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim INT_X As Single
Dim INT_Y As Single
 
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If INT_X <> X Then
Picture1.Left = Picture1.Left + (X - INT_X)
End If
If INT_Y <> Y Then
Picture1.Top = Picture1.Top + (Y - INT_Y)
End If
INT_X = X
INT_Y = Y
End Sub

[jmfmarques]

http://vb.developpez.com/faq/?page=Autres#dragdrop

[AlainTech]

patoch76, puis-je te demander, à l'avenir, de mettre un Tag définissant ton environnement de développement dans le titre.

Je viens de le faire pour toi.

[patoch76]

Désolé AlaiTech pour cette oubli , je suis bien en VB6

je ne peut pas mettre le tag résolu car je n'ai pas encore réussi a faire fonctionner le code .
J'ai mis le code suivant mais la picturebox bouge seulement de 1 cm et disparait.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    Picture1.Left = Picture1.Left + (X - int_X)
   Picture1.Top = Picture1.Top + (Y - int_Y)
     Else
       int_X = X
       int_Y = Y
       End If
End Sub

J'attend de l'aide