من توی یه اکتیویتی یه لیست ویو قرار دادم با صد تا آیتم
میخوام وقتی روی یه آیتم کلیک شد مطلب مربوط به اونو از دیتابیس بگیره ونمایش بده از کتابخانه فراخوانی1 استفاده کردم
وقتی یه آیتم کلیک میشه لیست ویو غیرفعال میشه و باید یه لیبل و یه اسکرول ویو باز بشن و متن دیتابیس بیاد تو لیبل و با اسکرول ویو اسکرول بشه و وقتی کاربر دکمه برگشتو زد لیبل و اسکرول ویو غیب بشن و دوباره لیست ویو ظاهر بشه .
وقتی رو یه آیتم کلیک میکنم لیست ویو میره ولی متن نمیاد. اینم سورس :
Sub Process_Globals
Dim sql1 As SQL
End Sub
Sub Globals
Private ImageView1 As ImageView
Private Label1 As Label
Private ListView1 As ListView
Private Panel1 As Panel
Dim b As BitmapDrawable
Private ScrollView1 As ScrollView
Dim label2 As Label
Dim fara As Farakhani
Dim cursor1 As Cursor
Dim ts As TextSetting
Dim back As BitmapDrawable
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
ListView1.AddSingleLine2("معرفی ",1)
ListView1.AddSingleLine2("ساخت اکانت ",2)
ListView1.AddSingleLine2(" چت ",3)
ListView1.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("mj_flow bold.ttf")
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextSize=20
ListView1.SingleLineLayout.Label.TextColor=Colors.Magenta
' کد های فراخونی :
label2.Initialize("")
File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
sql1.Initialize(File.DirInternal,"data.db",True)
ts.Initialize
label2.Gravity=Gravity.CENTER
label2.Typeface=Typeface.LoadFromAssets("btraffic.ttf")
label2.TextColor=Colors.Blue
back.Initialize(LoadBitmap(File.DirAssets,"r960_10000142_tail.jpg"))
label2.Background=back
ScrollView1.Panel.AddView(label2,0,0%y,100%x,100%y)
ScrollView1.Enabled=False
label2.Enabled=False
ts.longtext(label2,label2.text,"24",ScrollView1,"2")
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
If Value = 1 Then
fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","1",label2,"texts")
ScrollView1.Enabled=True
label2.Enabled=True
ListView1.Visible=False
Else if Value = 2 Then
fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","2",label2,"texts")
ScrollView1.Enabled=True
label2.Enabled=True
Else if Value = 3 Then
fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","3",label2,"texts")
ScrollView1.Enabled=True
label2.Enabled=True
سوال
mhe9181 2
سلام
من توی یه اکتیویتی یه لیست ویو قرار دادم با صد تا آیتم
میخوام وقتی روی یه آیتم کلیک شد مطلب مربوط به اونو از دیتابیس بگیره ونمایش بده از کتابخانه فراخوانی1 استفاده کردم
وقتی یه آیتم کلیک میشه لیست ویو غیرفعال میشه و باید یه لیبل و یه اسکرول ویو باز بشن و متن دیتابیس بیاد تو لیبل و با اسکرول ویو اسکرول بشه و وقتی کاربر دکمه برگشتو زد لیبل و اسکرول ویو غیب بشن و دوباره لیست ویو ظاهر بشه .
وقتی رو یه آیتم کلیک میکنم لیست ویو میره ولی متن نمیاد. اینم سورس :
Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Private ImageView1 As ImageView Private Label1 As Label Private ListView1 As ListView Private Panel1 As Panel Dim b As BitmapDrawable Private ScrollView1 As ScrollView Dim label2 As Label Dim fara As Farakhani Dim cursor1 As Cursor Dim ts As TextSetting Dim back As BitmapDrawable End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") ListView1.AddSingleLine2("معرفی ",1) ListView1.AddSingleLine2("ساخت اکانت ",2) ListView1.AddSingleLine2(" چت ",3) ListView1.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("mj_flow bold.ttf") ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER ListView1.SingleLineLayout.Label.TextSize=20 ListView1.SingleLineLayout.Label.TextColor=Colors.Magenta ' کد های فراخونی : label2.Initialize("") File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db") sql1.Initialize(File.DirInternal,"data.db",True) ts.Initialize label2.Gravity=Gravity.CENTER label2.Typeface=Typeface.LoadFromAssets("btraffic.ttf") label2.TextColor=Colors.Blue back.Initialize(LoadBitmap(File.DirAssets,"r960_10000142_tail.jpg")) label2.Background=back ScrollView1.Panel.AddView(label2,0,0%y,100%x,100%y) ScrollView1.Enabled=False label2.Enabled=False ts.longtext(label2,label2.text,"24",ScrollView1,"2") End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) If Value = 1 Then fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","1",label2,"texts") ScrollView1.Enabled=True label2.Enabled=True ListView1.Visible=False Else if Value = 2 Then fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","2",label2,"texts") ScrollView1.Enabled=True label2.Enabled=True Else if Value = 3 Then fara.FarakhaniMatn("data.db",sql1,cursor1,"SELECT * FROM tbl where id=","3",label2,"texts") ScrollView1.Enabled=True label2.Enabled=Trueکسی میدونه مشکل کجاس؟؟؟؟؟؟؟؟؟؟؟؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.