لود کردن عکس از اینترنت با ariaglide یا picasso در لیست ویو

[mehran3d 75]

سلام دوستان

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

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

اینجاش مشکلمه

lv.AddTwoLinesAndBitmap2(name,tozih,pica.InitializeURI(icon))

---------
icon=addrese ax AS string
pica = picasso

 

[hojjatborohan 56]

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

[mehran3d 75]

lv.AddTwoLinesAndBitmap(name,tozih,LoadBitmapSample(File.DirAssets,"time.png",50dip,50dip))
		pica.InitializeURI(icon).ToImageView(lv.TwoLinesAndBitmap.ImageView)

این مدلی جواب نداد فقط time.png  میمونه عوض نمیشه با عکس اینترنتی

[hojjatborohan 56]

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

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.
	Private ListView1 As ListView
	Dim ab As Picasso
		
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("picas")
	Dim Target1 As DefaultTarget
	Target1.Initialize("Target1", "MyTagValue")
	ab.LoadUrl("http://turnkey-e.com/wp-content/uploads/2016/10/android-developer-malaysia.jpg").Fetch(Target1)
End Sub
 
Sub Activity_Resume

End Sub


Sub Target1_Error(Tag As Object)
	Log("Target1_Error Tag="&Tag)
End Sub

Sub Target1_Success(Bitmap1 As Bitmap, Tag As Object)
	Log("Target1_Success Tag="&Tag)
	If Tag="MyTagValue" Then
		ListView1.AddTwoLinesAndBitmap("","",Bitmap1)
	End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

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