من با قرار دادن چند عکس برای پرشین ریسکالر ویو و اینکه اونا رو توی برنامه نشون بده به مشکل برخوردم تعداد عکس هام 5 تاست ولی توی برنامه اصلا چیزی به عنوان عکس نشون نمیده.
یعن وقتی که قسمت افزوده شدن عکس هارو قرار دادم دیگه حتی پوسته اولیه که هیچ عکسی روش نبودرو هم نشون نمیده ؟؟؟
کد رو پایین قرار میدم لطفا راهنماییم کنید (البته فک کنم میدونم مشکل کجاست چون هم از ریسکالر ویو استفاده کردم هم از یه کتابخونه عکس دیگه !!! )
و اینکه اگر مشکل از دوتا کتابخونه نیست چظوری میتونم عکسهامو تو برنامه بزارم که شمکل براش پیش نیاد ؟؟؟ مثلا 10 تا عکس
مرسی
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim pr As PersianRecyclerLayout
Dim p As PinchZoomAndMove
End Sub
Sub Activity_Create(FirstTime As Boolean)
pr.Builder("pr").NormalRecycler.BALayout.FanLayoutManager.RecyclerView.Build
pr.PersianFanLayoutManager.withAngleItemBounce(0.8f).withFanRadius.withViewHeightDp(200dip).withViewHeightDp(150dip)
Activity.AddView(pr,0,0,100%x,100%y)
pr.ShowRecycler
End Sub
Sub pr_getitemcount As Int
Return 10
End Sub
Sub pr_onbindviweholder(layoutitem As Object,position As Int,viewtype As Int)
Dim k As Panel=layoutitem
Dim img As ImageView=k.GetView(0)
k.Width=100%x
k.Height=50dip
p.Initialize(img,"img1","img",1,2.5,3,False,Me)
img.Bitmap =LoadBitmap(File.DirAssets ,10&".jpg")
End Sub
Sub pr_oncreateviewholder(layoutitem As Object,viwetype As Int)As Object
Dim pn As Panel=layoutitem
Dim img As ImageView
img.Initialize("")
pn.AddView(img,0,0,80%x,90%y)
Return Null
End Sub
Sub pr_onitemclick(itemtag As Object,position As Int)
Log(itemtag)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
rezamoaser 53
با سلام دوستان
من با قرار دادن چند عکس برای پرشین ریسکالر ویو و اینکه اونا رو توی برنامه نشون بده به مشکل برخوردم تعداد عکس هام 5 تاست ولی توی برنامه اصلا چیزی به عنوان عکس نشون نمیده.
یعن وقتی که قسمت افزوده شدن عکس هارو قرار دادم دیگه حتی پوسته اولیه که هیچ عکسی روش نبودرو هم نشون نمیده ؟؟؟
کد رو پایین قرار میدم لطفا راهنماییم کنید (البته فک کنم میدونم مشکل کجاست چون هم از ریسکالر ویو استفاده کردم هم از یه کتابخونه عکس دیگه !!! )
و اینکه اگر مشکل از دوتا کتابخونه نیست چظوری میتونم عکسهامو تو برنامه بزارم که شمکل براش پیش نیاد ؟؟؟ مثلا 10 تا عکس
مرسی
#Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim pr As PersianRecyclerLayout Dim p As PinchZoomAndMove End Sub Sub Activity_Create(FirstTime As Boolean) pr.Builder("pr").NormalRecycler.BALayout.FanLayoutManager.RecyclerView.Build pr.PersianFanLayoutManager.withAngleItemBounce(0.8f).withFanRadius.withViewHeightDp(200dip).withViewHeightDp(150dip) Activity.AddView(pr,0,0,100%x,100%y) pr.ShowRecycler End Sub Sub pr_getitemcount As Int Return 10 End Sub Sub pr_onbindviweholder(layoutitem As Object,position As Int,viewtype As Int) Dim k As Panel=layoutitem Dim img As ImageView=k.GetView(0) k.Width=100%x k.Height=50dip p.Initialize(img,"img1","img",1,2.5,3,False,Me) img.Bitmap =LoadBitmap(File.DirAssets ,10&".jpg") End Sub Sub pr_oncreateviewholder(layoutitem As Object,viwetype As Int)As Object Dim pn As Panel=layoutitem Dim img As ImageView img.Initialize("") pn.AddView(img,0,0,80%x,90%y) Return Null End Sub Sub pr_onitemclick(itemtag As Object,position As Int) Log(itemtag) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.