مشکل پخش یک فیلم

[Assassin-Wolf 13]

سلام

من یک سری سورس برای نمایش فیلم و مولتی پنل دارم اما یک مشکلی داره . من همون اول که یک فیلم رو لود کردم دیگه رو هر مولتی پنلی میزنم همون فیلم رو نمایش میده

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

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim SQL1 As SQL
End Sub

Sub Globals
	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private Panel1 As Panel
	Dim meghdar As String
	Dim cur1 As Cursor
	Dim Stop As Int = 3%y
	Dim fasl As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("SVL_Film")

	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
	If File.Exists(File.DirInternal,"Film.db") = False Then
	File.Copy(File.DirAssets,"Film.db",File.DirInternal,"Film.db")
	End If
	SQL1.Initialize(File.DirInternal,"Film.db",False)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	
	
	
	Panel1.Initialize("")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	meghdar = cur1.Getint("id")
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 15%y
	Panel1.Tag = i
	p.LoadLayout("Film")
	Label1.Text = cur1.GetString("list")
	Label1.tag = cur1.GetString("link")
	ScrollView1.Panel.Height = Stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
	fasl=iz.tag
	Matlab_Film.lnk = Label1.tag
	StartActivity(Matlab_Film)
End Sub

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

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim lnk As String
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim vw As VideoView
	Dim dw As PhoneIntents
	Private Panel1 As Panel
	Private Button1 As Button
	Private Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Film_Matlab")
	vw.Initialize("vw")
	Panel1.AddView(vw,0,0,Panel1.Width,Panel1.Height)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
	vw.LoadVideo("http",lnk)
	ToastMessageShow("درحال بارگزاری فیلم",True)
	vw.Play
End Sub
Sub Button2_Click
	StartActivity(dw.OpenBrowser(lnk))
End Sub

این هم دیتابیس(عکس)

http://upir.ir/khordad94/guest/bandicam-2015-07-01-22-43-58-467.jpg

[Assassin-Wolf 13]

کسی نیست کمک کنه؟

[پژمان نیکروان 6,055]

سلام.

شما همه جاش رو خوب پیش رفتین آفرین.

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

link=label1.tag

خب این میاد تگ آخرین لیبل رو میگیره دیگه چون نوشتین label1 .

 

حالا اومدین i رو هم تو هر مرحله ریختین تو panel1.tag.

شما بیاین لینک هارو بریزید داخل لیست.

یعنی کدهاتون رو اینجوری ویرایش کنید.

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim SQL1 As SQL
End Sub

Sub Globals
	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private Panel1 As Panel
	Dim meghdar As String
	Dim cur1 As Cursor
	Dim Stop As Int = 3%y
	Dim fasl As String
	
	Dim l As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("SVL_Film")
l.Initialize
	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
	If File.Exists(File.DirInternal,"Film.db") = False Then
	File.Copy(File.DirAssets,"Film.db",File.DirInternal,"Film.db")
	End If
	SQL1.Initialize(File.DirInternal,"Film.db",False)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	
	
	
	Panel1.Initialize("")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	meghdar = cur1.Getint("id")
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 15%y
	Panel1.Tag = i
	p.LoadLayout("Film")
	Label1.Text = cur1.GetString("list")
	l.Add(cur1.GetString("link"))
	ScrollView1.Panel.Height = Stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
	fasl=iz.tag
	Matlab_Film.lnk = l.Get(iz.Tag)
	StartActivity(Matlab_Film)
End Sub

همین.

کدهای اکتیویتی اول رو به همین تغییر بدید.