کلیک بر روی ایتم های اریا لیست ویو

[amiro72 17]

سلام  

 

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

 

اینم کد هام 

 

Sub jobdone(job As HttpJob)
	ProgressDialogHide
	If job.success = True Then
							
		If job.JobName = "job1" Then
			Dim a() As String
			a = Regex.Split("<br>",job1.GetString)
				
				For i=0 To a.Length-2
					Dim b() As String
					b = Regex.Split("::", a(i))

						id1=b(0)
						onvan= b(1)
						artis=b(2)
						daste = b(3)
						name = b(4)
						linkeax = b(5)
						ghaymat = b(6)
						buy1 = b(7)
						buyid1 = b(8)
						linkeax2 = b(9)
						
						
							l1.Add(id1)
							l2.Add(onvan)
							l3.Add(artis)

							
							If buy1 = 1 Then
								l5.Add(ghaymat & " " & "تومان")
							Else If buy1 = 0 Then
								l5.Add("رایگان")
							End If
							
						
'							If daste = 0 Then
								l4.Add(linkeax)
'							Else If daste = 1 Then
'								l4.Add(arad.getAssetsFullAddress("like1.png"))
'							End If

				Next
				
					arad.Initialize("layout_button_right",l2,l3,l4,l5).ToListView(arr)
					arad.SetFont1(Typeface.LoadFromAssets("Entezar1_v2.0.1.ttf"))
					arad.SetFont2(Typeface.LoadFromAssets("Entezar1_v2.0.1.ttf"))
					arad.SetColor(Colors.RGB(255,255,255),Colors.Black,Colors.RGB(154, 18, 179),Colors.RGB(255,255,255),Colors.Black,Colors.RGB(154, 18, 179))
						
	End If
End If

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

حالا کد کلیک روی هر ایتم 

 

Sub list_select (ParentEventName As String,position As Int)
	
idd=l1.Get(position)

StartActivity(ph.OpenBrowser(name))	
			
End Sub

name  یه متغییر از نوع استرینگ هست که لینک استیکر ها رو از دیتابیس  انلاین میارم   

میخام با کلیک روی هر ایتم  لین مربوط به هر ایتم باز بشه  ولی لینک  ایتم اخر باز میشه همش 

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

 

 

کدی که قبلا با دیتابیس افلاین کار میکردم هم اینه

 

Sub list_select (ParentEventName As String,position As Int)
idd=l1.Get(position)
Dim cur1 As Cursor
cur1=sql1.ExecQuery("SELECT * FROM dbsticker WHERE id="&idd)
cur1.Position=0
Dim sr As String
sr=cur1.GetString("name")
StartActivity(ph.OpenBrowser("https://telegram.me/addstickers/"&sr))
End Sub

idd هم یه متغییر از نوع استرینگه 

[امین شاهدی 5,771]

تکه کد از چی ؟‌ لینکارو بریزین توی لیست توی ساب کلیک هم لینک رو بگیرین و اجرا کنین دیگه 

Sub list_select (ParentEventName As String,position As Int)

StartActivity(ph.OpenBrowser(LinksList.Get(position)))	
			
End Sub

 

[amiro72 17]

در در 1395/06/27, 22:37:03، امین شاهدی گفته است :

تکه کد از چی ؟‌ لینکارو بریزین توی لیست توی ساب کلیک هم لینک رو بگیرین و اجرا کنین دیگه 

Sub list_select (ParentEventName As String,position As Int)

StartActivity(ph.OpenBrowser(LinksList.Get(position)))	
			
End Sub

 

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

[amiro72 17]

و یه سوال دیگه 

Sub list_select (ParentEventName As String,position As Int)

 

این   ParentEventName   چیه و کارش چیه ؟

[امین شاهدی 5,771]

شما زمانی که اطلاعات رومیگیری تمام لینک ها رو بریز توی یه لیست و توی ساب کلیک هم از همون لیست بر اساس position مقدار رو بگیر و باز کن دیگه مشکل چیه الان 

[amiro72 17]

در 11 دقیقه قبل، امین شاهدی گفته است :

شما زمانی که اطلاعات رومیگیری تمام لینک ها رو بریز توی یه لیست و توی ساب کلیک هم از همون لیست بر اساس position مقدار رو بگیر و باز کن دیگه مشکل چیه الان 

منم یه همچین چیزی تو فکرمه  حتی مقادیر رو هم ریختم تو لیست ولی نمیدونم چطوری اوکیش کنم یه تکه کدی چیزی میدید ؟ ببینم چطوره ممنون میشم