سلام من کد زیرو نوشتم حالا میخوام id در لیست ویو نمایش داده نشه از طرفی اگه بخوام حذفش کنم چون در قسمت آیتم کلیک لیست ویو ازش استفاده کردم برنامه مشکل ییدا میکنه
و کار مورد نظرموانجام نمیده . حرکتی میشه زد id رو جای دیگه مثل متغیر لیست ریخت و از اون در آیتم کلیک استفاده کرد ممنون میشم کمکم کنید (اگه بشه آیدی تو لیست ویو نمایش داده نشه کارم راه میفته مخفی چیزی بشه)
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("l")
If File.Exists(File.DirInternal,"test.db") = False Then
File.copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
If sql.IsInitialized = False Then
sql.Initialize(File.DirInternal,"test.db",True)
End If
showlist
End Sub
Sub showlist
ListView1.clear
cur = sql.ExecQuery("SELECT * FROM tbl_name ORDER BY id DESC")
For i = 0 To cur.RowCount - 1
cur.Position = i
ListView1.AddTwoLines(cur.GetString("id"),cur.GetString("esm")&""&cur.GetString("famil"))
Next
ListView1.TwoLinesLayout.Label.Gravity = Gravity.RIGHT
ListView1.TwoLinesLayout.SecondLabel.Gravity=Gravity.RIGHT
ListView1.TwoLinesLayout.Label.Left=ListView1.TwoLinesLayout.Label.Left-2%x
ListView1.TwoLinesLayout.SecondLabel.Left=ListView1.TwoLinesLayout.SecondLabel.Left-1%x
ListView1.TwoLinesLayout.secondLabel.TextColor=Colors.Red
ListView1.TwoLinesLayout.Label.TextColor=Colors.Black
ListView1.TwoLinesLayout.Label.Height = 500dip
ListView1.TwoLinesLayout.SecondLabel.Height = 500dip
ListView1.TwoLinesLayout.ItemHeight = 70dip
Dim l As ListLineClear
l.setLineSetting(ListView1,Colors.DarkGray,1)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
cur = sql.ExecQuery("SELECT * FROM tbl_name WHERE id="&Value)
cur.position = 0
Dim pi As PhoneIntents
StartActivity(pi.openBrowser(cur.getstring("link")))
End Sub
سوال
shide 0
سلام من کد زیرو نوشتم حالا میخوام id در لیست ویو نمایش داده نشه از طرفی اگه بخوام حذفش کنم چون در قسمت آیتم کلیک لیست ویو ازش استفاده کردم برنامه مشکل ییدا میکنه
و کار مورد نظرموانجام نمیده . حرکتی میشه زد id رو جای دیگه مثل متغیر لیست ریخت و از اون در آیتم کلیک استفاده کرد ممنون میشم کمکم کنید (اگه بشه آیدی تو لیست ویو نمایش داده نشه کارم راه میفته مخفی چیزی بشه)
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") Activity.LoadLayout("l") If File.Exists(File.DirInternal,"test.db") = False Then File.copy(File.DirAssets,"test.db",File.DirInternal,"test.db") End If If sql.IsInitialized = False Then sql.Initialize(File.DirInternal,"test.db",True) End If showlist End Sub Sub showlist ListView1.clear cur = sql.ExecQuery("SELECT * FROM tbl_name ORDER BY id DESC") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddTwoLines(cur.GetString("id"),cur.GetString("esm")&""&cur.GetString("famil")) Next ListView1.TwoLinesLayout.Label.Gravity = Gravity.RIGHT ListView1.TwoLinesLayout.SecondLabel.Gravity=Gravity.RIGHT ListView1.TwoLinesLayout.Label.Left=ListView1.TwoLinesLayout.Label.Left-2%x ListView1.TwoLinesLayout.SecondLabel.Left=ListView1.TwoLinesLayout.SecondLabel.Left-1%x ListView1.TwoLinesLayout.secondLabel.TextColor=Colors.Red ListView1.TwoLinesLayout.Label.TextColor=Colors.Black ListView1.TwoLinesLayout.Label.Height = 500dip ListView1.TwoLinesLayout.SecondLabel.Height = 500dip ListView1.TwoLinesLayout.ItemHeight = 70dip Dim l As ListLineClear l.setLineSetting(ListView1,Colors.DarkGray,1) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) cur = sql.ExecQuery("SELECT * FROM tbl_name WHERE id="&Value) cur.position = 0 Dim pi As PhoneIntents StartActivity(pi.openBrowser(cur.getstring("link"))) End Subسورس همین کد
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.