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

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


alirezakazemizaroomi

سوال

سلام به همگی

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



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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

بایگانی شده

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

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

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