حرکت دادن **panel زیر تصویر

[kamran_ba 17]

سلام. من میخوام یه *panel زیر یه تصویر png (که یه قسمتش حفره داره که panel از زیرش دیده بشه (یه جور برنامه کار رو تصاویر) )با لمس تصویر حرکت کنه. با کتابخونه PinchZoomAndMove اگه panel روی تصویر باشه میتونم حرکت یا زومش بدم ولی اگه panel بره زیر تصویر چون مجبورم تصویرو لمس کنم روی panel اعمال نمیشه. به عبارت دیگه میخوام با لمس تصویر عمل لمس panel فراخوانی بشه. لطفا کمک کنین.

[kamran_ba 17]

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
If Action = 7747 Then
Panel1.Top = Y
Panel1.Left = X
End If
End Sub

Sub Panel2_Touch (Action As Int, X As Float, Y As Float)
If Action = Activity.ACTION_MOVE Then
Panel1_Touch(7747,X,Y)
End If
End Sub

مهران عزیزم ممنون که اینقدر با حوصله جواب میدی و من هم میخوام این قضیه به نتیجه برسه. ببین گلم من قبلا هم گفتم میخوام با کتابخونه pinchzoom حتما این کار انجام بشه وگرنه واسه حرکت معمولی پنل زیری با لمس پنل بالایی خودم روشش رو بلدم.ممنون داداش

[مهران محمودی 778]

من همیشه همینطوری با حوصله جواب میدم

بیا یه کاری کن ! تو میخوای از کتابخانه PinchZoomAndMove برای حرکت دادن و زوم استفاده کنی، درسته ؟

خب بیا حرکت دادن رو بصورتی که من گفتم، و زوم رو با TouchImageView انجام بده !

فکر میکنم شدنی باشه ! نحوه استفاده از TouchImageView تا جایی که حضور ذهن دارم بچه ها در سایت قرار دادن.

PinchZoomAndMove من خیلی سر و کله زدم، در آخر به نتیجه دلخواهم نرسیدم.

[kamran_ba 17]

من همیشه همینطوری با حوصله جواب میدم

بیا یه کاری کن ! تو میخوای از کتابخانه PinchZoomAndMove برای حرکت دادن و زوم استفاده کنی، درسته ؟

خب بیا حرکت دادن رو بصورتی که من گفتم، و زوم رو با TouchImageView انجام بده !

فکر میکنم شدنی باشه ! نحوه استفاده از TouchImageView تا جایی که حضور ذهن دارم بچه ها در سایت قرار دادن.

PinchZoomAndMove من خیلی سر و کله زدم، در آخر به نتیجه دلخواهم نرسیدم.

مرسی گلم, امتحان میکنم

[محمد احمدی 70]

من الان با این کد کاری رو که شما میخوای دارم انجام میدم

پنل رویی ثابته پنل زیری متحرک

با پنل رویی هم میشه پنل زیری رو حرکت داد

فیلمش هم موجوده که گرفتم اگه گفتی جواب نداد فیلمشو میذارم

Sub Globals
Private Panel1 As Panel
Private Panel2 As Panel
Dim pz As PinchZoomAndMove
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
pz.Initialize(Panel1,z,0,0.5,3,1.5,False,Me)
End Sub


Sub z
pz.Initialize(Panel2,"PZ",0,0.5,3,1.5,False,Me)
End Sub

[kamran_ba 17]

من الان با این کد کاری رو که شما میخوای دارم انجام میدم

پنل رویی ثابته پنل زیری متحرک

با پنل رویی هم میشه پنل زیری رو حرکت داد

فیلمش هم موجوده که گرفتم اگه گفتی جواب نداد فیلمشو میذارم

Sub Globals
Private Panel1 As Panel
Private Panel2 As Panel
Dim pz As PinchZoomAndMove
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
pz.Initialize(Panel1,z,0,0.5,3,1.5,False,Me)
End Sub


Sub z
pz.Initialize(Panel2,"PZ",0,0.5,3,1.5,False,Me)
End Sub

عزیزم دقیقا کد شما رو گذاشتم ولی درست جواب نمیده. یعنی با لمس پنل رویی پنل زیری به سرعت فرار میکنه و از صفحه خارج میشه. سورس رو هم گذاشتم تا خودت ببینی. اگه شما به نتیجه رسیدی فیلم کارایی نداره لطفا سورس رو بگذارید. ممنون

panel touch.rar

[haspic123 34]

من هم موندم تو این مشکل

لطفا راهنمایی کنید