VB.Net Se déplacer avec la souris dans un pictureboxRésolu

Question

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

cs_JeffC1977 · Accepted Answer

Ok le code fonctionne parfaitement
J'avais fait un erreur dans le nom de ma picturebox

jrivet · Answer

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

cs_JeffC1977 · Answer

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

VB.Net Se déplacer avec la souris dans un picturebox

3 réponses

Votre réponse

Discussions similaires