رفتن به مطلب
  • 0

مشکل در مولتی پنل


majid08

سوال

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

مولتی پنلدر اکتیویتی اول هست

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

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

این هم کد هام

کد اکتیویتی اول

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("scroll")
	If File.Exists(File.DirInternal,"eventdb.db") = False Then
	  File.Copy(File.DirAssets,"eventdb.db",File.DirInternal,"eventdb.db")
	 End If
	 
	 If MyBank.IsInitialized = False Then
	  MyBank.Initialize(File.DirInternal,"eventdb.db",False)
	 End If
	
	

	
LoadData


	

End Sub
	 
	 



Sub LoadData
 Dim Cr As Cursor
 Cr = MyBank.ExecQuery("SELECT * FROM tbl1")
 For i = 0 To Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  offsetY = offsetY + 35%y
  p.LoadLayout("item")
  p.Tag = Cr.GetInt("id")

Button1.Text=Cr.GetString("download")

ImageView1.Bitmap=Namayesh(i)
Dim star As Label
star.Initialize("")
star.Text=Cr.GetString("star")
		
	
 Next
 Cr.Close
 sv.Panel.Height = offsetY
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Namayesh(Position As String) As Bitmap

    Dim cur As Cursor
    cur=MyBank.ExecQuery("SELECT aks FROM tbl1 ")
    cur.Position=Position
    Dim bytes() As Byte
    bytes=cur.GetBlob("aks")
    Dim input As InputStream
    input.InitializeFromBytesArray(bytes,0,bytes.Length)
    Dim b As Bitmap
    b.Initialize2(input)
    input.Close
    Return(b)
End Sub



Sub Button1_Click
Dim b As Button
b=Sender
 fasl1=b.Tag

StartActivity(download)

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("bay")
	If File.Exists(File.DirInternal,"eventdb.db") = False Then
	  File.Copy(File.DirAssets,"eventdb.db",File.DirInternal,"eventdb.db")
	 End If
	 
	 If Main.MyBank.IsInitialized = False Then
	 Main.MyBank.Initialize(File.DirInternal,"eventdb.db",False)
	 End If
	

	
ImageView1.Bitmap=Namayesh
	
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Namayesh As Bitmap
Dim cur As Cursor
cur=MyBank.ExecQuery("SELECT aks FROM tbl1 WHERE id="& Main.fasl1)

cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("aks")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
cur.Close
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...