محمد احمدی

سلام دوست عزیز

اول اینکه عکس دومی از پنل استفاده شده

دوم اینکه شما چرا از اینپوت لیست بعد از لانگ کلیک روی لیست ویو استفاده نمیکنید

یه اینپوت لیست که شامل افزودن به موردعلاقه ها و ... رو داشته باشه

ُسلام

با اجازه آقا مهدی

برای راحتی کار یه کد مودل بساز و این کد رو داخلش وارد کن و هرجا خواستی استفاده کن

Sub SavePanel(Sv As View,sDir As String,sFilename As String) As Bitmap
  Dim o1, o2 As Reflector
  Dim bmp As Bitmap
  Dim C As Canvas
  o1.Target = o1.GetActivityBA
  o1.Target = o1.GetField("vg")
  bmp.InitializeMutable(Sv.Width, Sv.Height)
  C.Initialize2(bmp)
  Dim args(1) As Object
  Dim types(1) As String
  o2.Target = C
  o2.Target = o2.GetField("canvas")
  args(0) = o2.Target
  types(0) = "android.graphics.Canvas"
  o1.RunMethod4("draw", args, types)
  Dim Out As OutputStream
  Out = File.OpenOutput(sDir, sFilename, False)
  bmp.WriteToStream(Out, 100, "PNG")
  Out.Close
End Sub
ویو که میدونی چیه اس دایر مکان و اس فایل نیم اسم فایل یرای ذخیرس
و برای ذخیره کردن از این نمونه استفاده کن
[code]codemoudle.save(panel1,File.DirRootExternal,"mbp.png")

[/code]

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

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

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

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

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

سلام

الآن منظورتو متوجه شدم

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

این کد رو بذار داخل همون سورسی که گذاشتی

	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(Panel2,z,0,0.5,3,1.5,False,Me)
End Sub


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

سلام من بازم حرف خودمو میزنم

داخل سورسی ک دادی این کد هارو بذار

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")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
If Action = 1 Then
zoom
End If
End Sub
Sub zoom
  PZ.Initialize(Panel1,"PZ",0,0.5,3,1.5,False,Me)		
End Sub

سلام

دوست عزیز سوال شما ی جورایی مبهمه

یهنی چر رو حفره کلیک شه ؟

عکس پی ان جی بک گراند نداره اونجا هاش که دیده نمیشه همون عکس هس که بک گراند نداره

حفره ک نیس

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

ی مثال

Dim p1,p2 as pane[/Code]

p1 پنل پشتی هس

پس :

امیدوارم تونستته باشم کمک کنم

Dim gm as GoogleMap
Dim cap as CameraPosition

اینم رویداد امیمیشن

      
     cap.Initialize(36, 15, gm.CameraPosition.Zoom)
     gm.AnimateCamera(cap)

امتحانش کن اگه جواب نگرفتی بگو

سلام

نمیدونم منظورتو درست فهمیدم یا ن

فک کنم منظورت تاچ رو پنل باشه

ُSub Globals
Dim panel1 as panel
End sub

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
if Action = 1 Then
panel1.color = colors.ARGB(50,0,70,0)
End if
End Sub