مولتی پنل و ویدیو ویو

[alirezakazemizaroomi 437]

سلام به همگی

من یه مولتی پنل دارم که لینکارو از دیتا بیس میگیره و پخش میکنه ولی فقط وقتی رو دکمه کلید میکنی تو همون اکتیویتی پخش میکنه ولی من میخوام وقتی رو دکمه کلید کردیم تو ویدیو ویو وتو یه اکتیویتی جدا پخش کنه؛ اینم کدهام:

Sub Process_Globals


End Sub




Sub Globals
Dim Stopint As Int=1%y
    Private sql1   As SQL
Private Cur1   As Cursor 
Private btn1 As Button
Private ScrollView1 As ScrollView
Private Panel1 As Panel
Private btn2 As Button
Dim vw As VideoView
Dim dw As PhoneIntents
Private Panel1 As Panel
Private Panel111 As Panel
End Sub




Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ll")
vw.Initialize("vw")
Panel111.AddView(vw,2%x, 2%y, 98%x, 47%y)
  vw.MediaControllerEnabled=True
  If Activity.Height<Activity.Width Then
End If
  Activity.LoadLayout("scv")
If File.Exists(File.DirInternal,"flm.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 mytable")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+25%x
p.LoadLayout("pnl")
Panel1.Color=Colors.RGB(3,36,72)
btn1.Color=Colors.White
btn1.Text=" نام فیلم : " & Cur1.GetString("esm")
ScrollView1.Panel.Height=Stopint
btn1.Tag = Cur1.GetString("adres")
Next   
End Sub




Sub btn1_Click
Dim ad As Button
ad = Sender
vw.LoadVideo("http",ad.Tag)
ToastMessageShow("درحال بارگزاری فیلم",True)
vw.Play


End Sub




Sub Activity_Resume


End Sub




Sub Activity_Pause (UserClosed As Boolean)


End Sub

[alirezakazemizaroomi 437]

آقا یه نفر جواب بده؟