با استفاده از آموزش مولتی پنل تونستم پنل رو بسازم و تصاویر رو از دیتابیس اجرا کنم .. اما الان یک مشکل دارم اونم اینکه:
زمانی که به استفاده از دستور Tag و Sender در این قسمت :
Sub Button1_Click
Button1 = Sender
If Button1.tag = "9999" Then
StartActivity("Testing")
else if Button1.tag = "9998" Then
StartActivity("Testing")
End If
End Sub
میرم به اکتیویتی Testing . و حالا میخوام در اکتیویتی Testing این دستور رو بدم که اگر Tag = 9999 بود بیا و این کار رو انجام بده و اگر مقدار دریافتی برابر با 9998 بود این متون رو پیاده کن.
از کد زیر استفاده می کنم ! اما هیچ چیز لود نمیشه .
Sub show
SQL1.Initialize(File.DirInternal,"faratest.db",False)
Cur1 = SQL1.ExecQuery("SELECT * From faratable")
For i = 0 To Cur1.RowCount-1
Cur1.Position = i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
Stop = Stop + 15%y
p.LoadLayout("Menu")
button1.tag = Cur1.getstring("id")
If button1.tag = "9999" Then
button1.Text = Cur1.GetString("Text")
button1.TextColor = Colors.Black
ScrollView1.Panel.Height = Stop
Else if button1.tag = "9998" Then
button1.Text = Cur1.GetString("Text")
button1.TextColor = Colors.Black
ScrollView1.Panel.Height = Stop
End If
Dim bytes() As Byte
bytes=Cur1.GetBlob("Image")
Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)
Dim b As Bitmap
b.Initialize2(input)
Log(b)
PanelImage.SetBackgroundImage(b)
input.Close
ScrollView1.Panel.Height = Stop
Next
End Sub
سوال
ProGamerMafia 43
سلام به اساتید و دوستان عزیز.
با استفاده از آموزش مولتی پنل تونستم پنل رو بسازم و تصاویر رو از دیتابیس اجرا کنم .. اما الان یک مشکل دارم اونم اینکه:
زمانی که به استفاده از دستور Tag و Sender در این قسمت :
Sub Button1_Click Button1 = Sender If Button1.tag = "9999" Then StartActivity("Testing") else if Button1.tag = "9998" Then StartActivity("Testing") End If End Subمیرم به اکتیویتی Testing . و حالا میخوام در اکتیویتی Testing این دستور رو بدم که اگر Tag = 9999 بود بیا و این کار رو انجام بده و اگر مقدار دریافتی برابر با 9998 بود این متون رو پیاده کن.
از کد زیر استفاده می کنم ! اما هیچ چیز لود نمیشه .
Sub show SQL1.Initialize(File.DirInternal,"faratest.db",False) Cur1 = SQL1.ExecQuery("SELECT * From faratable") For i = 0 To Cur1.RowCount-1 Cur1.Position = i Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y) Stop = Stop + 15%y p.LoadLayout("Menu") button1.tag = Cur1.getstring("id") If button1.tag = "9999" Then button1.Text = Cur1.GetString("Text") button1.TextColor = Colors.Black ScrollView1.Panel.Height = Stop Else if button1.tag = "9998" Then button1.Text = Cur1.GetString("Text") button1.TextColor = Colors.Black ScrollView1.Panel.Height = Stop End If Dim bytes() As Byte bytes=Cur1.GetBlob("Image") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) Log(b) PanelImage.SetBackgroundImage(b) input.Close ScrollView1.Panel.Height = Stop Next End Subکجای کار ایراد داره .. ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.