سلام ، من یه سری لینک فیلم تو دیتابیسم دارم که میخوام تو مولتی پنل داخل یه دکمه فراخوانیشون کنم که اول دانلودش کنه وذخیرش کنه وبعد پخشش کنه واگه دوباره روش کلید شد دیگه دانلود نکنه وفقط پخش کنه، میتونی با کد توضیح بدی؟
کدهام:
Sub Process_Globals
Dim t As String
Dim t1 As AutoCompleteEditText
Dim nima As String
Dim sql2 As SQL
Dim timer1 As Timer
End Sub
Sub Globals
Dim aa() As String
Dim p111 As Panel
Dim bitmap1 As Bitmap
Private Panel1 As Panel
Private ScrollView2 As ScrollView
Dim Stopint As Int=5%y
Private img1 As ImageView
Private img2 As ImageView
Private Lbb1 As Label
Private Lbb2 As Label
Private bbb3 As Button
Dim job1 As HttpJob
Dim htt As HttpJob
Private Img11 As ImageView
Private bbb4 As Button
End Sub
(Sub Activity_Create(FirstTime As Boolean
("Activity.LoadLayout("laye
(job1.Initialize("job1",Me
("در حال دانلود") ProgressDialogShow
( " job1.Download("http://torab.vvs.ir/dr/b.txt
("File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db
(sql2.Initialize(File.DirInternal,"sql1.db",False
("cur1=sql2.ExecQuery("SELECT * From tbltest WHERE id BETWEEN 1 AND 30
For i=0 To cur1.RowCount-1
cur1.Position=i
Dim ps As Panel
("ps.Initialize("ps
(ScrollView2.Panel.AddView(ps,0,Stopint,100%x,100%Y
Stopint=Stopint+150dip
("ps.LoadLayout("nn
Panel1.Tag=i
If (i Mod 2)=1 Then
Panel1.Color=Colors.Red
Else
Panel1.Color=Colors.Blue
End If
img2.Tag=i
("Lbb1.text="Name: "&cur1.GetString("id")&" "&cur1.GetString("name
("Lbb2.text="Text: "&cur1.GetString("q64
("bbb3.Tag=cur1.GetString("q64
("bbb4.tag = cur1.GetString("Logo
ScrollView2.Panel.Height=Stopint
Next
End Sub
Sub bbb3_Click
Dim z1 As Button
z1 = Sender
((StartActivity( p.OpenBrowser(z1.Tag
("در حال دانلود کردن")ProgressDialogShow
End Sub
Sub bbb4_Click
Dim izy As Button
izy = Sender
(htt.Initialize("htt",Me
(htt.Download(izy.Tag
("در حال دانلود")ProgressDialogShow
End Sub
Sub Activity_Resume
End Sub
(Sub Activity_Pause (UserClosed As Boolean
End Sub
(Sub JobDone (Job As HttpJob
ProgressDialogHide
If Job.Success=True Then
If job1.Success=True Then
(aa=Regex.Split("#",job1.GetString
(Log(aa.Length
Dim top As Int
top = 5%y
For i = 0 To aa.Length-1
(" ps.Initialize("ps
( ScrollView2.Panel.AddView(ps,0,top,100%x,100%y
top = top +150dip
(" ps.LoadLayout("laye
Dim links As Map
links.Initialize
(( links.Put(Img11,aa(i
( CallSubDelayed2(ImageDownloader, "Download", links
("CallSub(ImageDownloader, "ActivityIsPaused
ScrollView2.Panel.Height= top
Next
(False,"دانلود انجام شد")ToastMessageShow
End If
If htt.Success=True Then
(False,"دانلود انجام شد")ToastMessageShow
End If
Else
(True,"اینترنت گوشی شما قطع میباشد!")ToastMessageShow
End If
End Sub
سوال
torab 18
سلام ، من یه سری لینک فیلم تو دیتابیسم دارم که میخوام تو مولتی پنل داخل یه دکمه فراخوانیشون کنم که اول دانلودش کنه وذخیرش کنه وبعد پخشش کنه واگه دوباره روش کلید شد دیگه دانلود نکنه وفقط پخش کنه، میتونی با کد توضیح بدی؟
کدهام:
Sub Process_Globals Dim t As String Dim t1 As AutoCompleteEditText Dim nima As String Dim sql2 As SQL Dim timer1 As Timer End Sub Sub Globals Dim aa() As String Dim p111 As Panel Dim bitmap1 As Bitmap Private Panel1 As Panel Private ScrollView2 As ScrollView Dim Stopint As Int=5%y Private img1 As ImageView Private img2 As ImageView Private Lbb1 As Label Private Lbb2 As Label Private bbb3 As Button Dim job1 As HttpJob Dim htt As HttpJob Private Img11 As ImageView Private bbb4 As Button End Sub (Sub Activity_Create(FirstTime As Boolean ("Activity.LoadLayout("laye (job1.Initialize("job1",Me ("در حال دانلود") ProgressDialogShow ( " job1.Download("http://torab.vvs.ir/dr/b.txt ("File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db (sql2.Initialize(File.DirInternal,"sql1.db",False ("cur1=sql2.ExecQuery("SELECT * From tbltest WHERE id BETWEEN 1 AND 30 For i=0 To cur1.RowCount-1 cur1.Position=i Dim ps As Panel ("ps.Initialize("ps (ScrollView2.Panel.AddView(ps,0,Stopint,100%x,100%Y Stopint=Stopint+150dip ("ps.LoadLayout("nn Panel1.Tag=i If (i Mod 2)=1 Then Panel1.Color=Colors.Red Else Panel1.Color=Colors.Blue End If img2.Tag=i ("Lbb1.text="Name: "&cur1.GetString("id")&" "&cur1.GetString("name ("Lbb2.text="Text: "&cur1.GetString("q64 ("bbb3.Tag=cur1.GetString("q64 ("bbb4.tag = cur1.GetString("Logo ScrollView2.Panel.Height=Stopint Next End Sub Sub bbb3_Click Dim z1 As Button z1 = Sender ((StartActivity( p.OpenBrowser(z1.Tag ("در حال دانلود کردن")ProgressDialogShow End Sub Sub bbb4_Click Dim izy As Button izy = Sender (htt.Initialize("htt",Me (htt.Download(izy.Tag ("در حال دانلود")ProgressDialogShow End Sub Sub Activity_Resume End Sub (Sub Activity_Pause (UserClosed As Boolean End Sub (Sub JobDone (Job As HttpJob ProgressDialogHide If Job.Success=True Then If job1.Success=True Then (aa=Regex.Split("#",job1.GetString (Log(aa.Length Dim top As Int top = 5%y For i = 0 To aa.Length-1 (" ps.Initialize("ps ( ScrollView2.Panel.AddView(ps,0,top,100%x,100%y top = top +150dip (" ps.LoadLayout("laye Dim links As Map links.Initialize (( links.Put(Img11,aa(i ( CallSubDelayed2(ImageDownloader, "Download", links ("CallSub(ImageDownloader, "ActivityIsPaused ScrollView2.Panel.Height= top Next (False,"دانلود انجام شد")ToastMessageShow End If If htt.Success=True Then (False,"دانلود انجام شد")ToastMessageShow End If Else (True,"اینترنت گوشی شما قطع میباشد!")ToastMessageShow End If End Subکی بلده با کد توضیح بده؟؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
33 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.