Hello,
on a Form I have a "ScrollView" and separately a "PictureBox", in which there
is the image I'll drag then with the mouse inside the "ScrollView".
Here the code:
**************************************
Public Sub Form_Open()
ScrollView1.Drop = True
End
Public Sub PictureBox1_MouseDrag()
If Mouse.Left Then
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
Endif
End
Public Sub ScrollView1_Drop()
Dim pb As PictureBox
Dim pc As Picture
With pb = New PictureBox(ScrollView1)
.X = Mouse.X
.Y = Mouse.Y
.Picture = Drag.Data.Picture
.W = Drag.Data.Picture.W
.H = Drag.Data.Picture.H
End With
' In console I read the "very strange" coordinates of mouse pointer:
With Mouse
Print .X
Print .Y
End With
End
**************************************
Where I'm wrong?
Best regards
vuottttt
------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60135031&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
