VB.Net Se déplacer avec la souris dans un picturebox [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Salut...

J'aimerais etre capable de me déplacer avec la souris dans un picturebox.

J'ai utilisé le code de Stephanne (pour pocketPC) car le code ressemble un peu à ce que je veux faire...

Premiere problème
Je bouge ma souris et il ne se passe rien dans le Debug
Je ne rentre pas dans la procédure???
Pourquoi donc...
J'utilise ce bout de code

Private
Sub pb1_MouseDown(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.MouseEventArgs)
Handles PB1.MouseDown
PointDepart =

New Point(e.X, e.Y)

End
Sub

3 réponses

Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
Ok le code fonctionne parfaitement
J'avais fait un erreur dans le nom de ma picturebox
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
Salut,
MouseDown Survient lors de l'appuie me semble t il si tu veux effectuer qqch lors du déplacement regarde l'événement MouseMove
NOTE: Si tu travaille en .NET pmourquoi poster dans la section réservée au VB6
@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
oups j'étais certain d'avoir mit .Net désolé...


 


Mais je dois appuyer sur le picture box pour lui donner une "coordonnée" et ensuite j'utilise le move ????

Enfin j'ai égalment ce code pour le move mais ca fais rien non plus dans le Dubug, je  ne rentre pas dans la procédure

Ca peux-^trte dans mes propriétés du picturebox???



Private



Sub
pb1_MouseMove(

ByVal
sender

As



Object
,

ByVal
e

As
System.Windows.Forms.MouseEventArgs)

Handles
PB1.MouseMove




If
e.Button = Windows.Forms.MouseButtons.Left

Then

'On Calcule la nouvelle coordonnée de l'origine du PictureBox

Dim
DeltaX

As



Integer
= (PB1.Location.X + e.X - PointDepart.X)


Dim
DeltaY

As



Integer
= (PB1.Location.Y + e.Y - PointDepart.Y)


'On bloque le déplacement aux limites du pictureBox

If
PB1.Width > ResolutionH

Then

If
-DeltaX > (PB1.Width - ResolutionH)

Then

DeltaX = ResolutionH - PB1.Width


End



If

If
DeltaX > 0

Then

DeltaX = 0


End



If

Else

DeltaX = 0


End



If

If
PB1.Height > ResolutionV

Then

If
-DeltaY > (PB1.Height - ResolutionV)

Then

DeltaY = ResolutionV - PB1.Height


End



If

If
DeltaY > 0

Then

DeltaY = 0


End



If

Else

DeltaY = 0


End



If

PB1.Location =

New
Drawing.Point(DeltaX, DeltaY)


End



If








End



Sub