محدود کردن باتن برای پرداخت درون برنامه ای

[mohamad9204 19]

اقا سلام من میخوام از پرداخت درون برنامه ای استفاده کنم کسی میتونی این صفحه رو کاری جوری تغییر بدی که لیست ویو باشه نه باتن

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

#Region  Project Attributes 
	#ApplicationLabel: video player
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#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 url,sFileName As String
Dim sql1   As SQL
End Sub

Sub Globals

'______________________ multipanel____________________________

	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 Panel11 As Panel
'___________________________***_______________________________


End Sub

Sub Activity_Create(FirstTime As Boolean)

File.MakeDir(File.DirRootExternal, "ehsan")

'______________________ multipanel____________________________
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 btnPlay_Click
sFileName = url.SubString(url.LastIndexOf("/")+1) 'get filename of url for play it
End Sub

Sub btn1_Click
	
	Dim adres As Button
	adres = Sender
	actDownload.url = adres.tag
	
	StartActivity(actDownload)

End Sub

'Sub ListView1_ItemClick (Position As Int, Value As Object)
'actDownload.url = Value
'StartActivity(actDownload)
'End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
 Activity.Finish
 Return True
End If
End Sub

سورس نهایی شبیه به اینه

یا علی