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

[majid08 266]

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

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

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

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

این هم کد هام

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

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