کار با progressbar

[macho 10]

سلام دوستان

من یه اکتیویتی ایجاد کردم که دو باتن a و b توی صفحه اصلی قرار دارن.

باز انتخاب باتن a لایه a فراخوانی میشه که یه باتن© دیگه داخل اون هست.progressbar هم گذاشتم ومعرفی هم شده.حالا میخوام بازدن این باتن © این progressbar lمخفی ظاهر وبعد از چند ثانیه یک لایه دیگه رو لود کنه.

خواهش میکنم هر کی میتونه یکم راهنمایی کنه.

[Nemesis 1,846]

متوجه نشدم دقیقا Progressbar  یا ProgressDialog ?

[alii 61]

 

سلام دوستان
من یه اکتیویتی ایجاد کردم که دو باتن a و b توی صفحه اصلی قرار دارن.
باز انتخاب باتن a لایه a فراخوانی میشه که یه باتن© دیگه داخل اون هست.progressbar هم گذاشتم ومعرفی هم شده.حالا میخوام بازدن این باتن © این progressbar lمخفی ظاهر وبعد از چند ثانیه یک لایه دیگه رو لود کنه.
خواهش میکنم هر کی میتونه یکم راهنمایی کنه.

Sub timer1_tick 		If ProgressBar1.Progress= 50 Then 		StartActivity ("menu")		Activity.Finish 	Else 		ProgressBar1.Progress = ProgressBar1.Progress +25	End If 	End Sub

Sub Process_Globals	'These global variables will be declared once when the application starts.	'These variables can be accessed from all modules.	Dim timer1 As Timer	'__________________________________End SubSub Globals	'These global variables will be redeclared each time the activity is created.	'These variables can only be accessed from this module.	Dim ProgressBar1 As ProgressBarEnd SubSub Activity_Create(FirstTime As Boolean)	'Do not forget to load the layout file created with the visual designer. For example:	Activity.LoadLayout("main")	timer1.Initialize("timer1",1000)	timer1.Enabled = True				End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End SubSub timer1_tick 		If ProgressBar1.Progress= 50 Then 		StartActivity ("menu")		Activity.Finish 	Else 		ProgressBar1.Progress = ProgressBar1.Progress +25	End If 	End Sub

این کد ProgressBar1 لود میشه بعد میره اکتیویتی دیگه خودت هر جور میخای تغییرش بده

[macho 10]

ممنون که جواب دادید.
من منظورم این بود.

Sub Globals
    Dim t As Timer
    Dim i As Int
    Private a As Button
    Private Button1 As Button
    Private ProgressBar1 As ProgressBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("rose")
End Sub
Sub T_tick
ProgressBar1.Progress = i
i = i+5
If i>100 Then
t.Enabled = False
End If

    If ProgressBar1.progress=99 Then
    ProgressBar1.visible=False
    Activity.LoadLayout("sevom")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub a_Click
    Activity.RemoveAllViews
    Activity.LoadLayout("dovom")
End Sub
Sub Button1_Click
    t.Initialize("t",50)
    t.Enabled=True
    i=5
    'Activity.RemoveAllViews
    Activity.LoadLayout("sevom")
End Sub

 

قبل از اتمام پروگرسبار میره به لایه sevom

اگر Activity.RemoveAllViews فعال باشه که اصلا پروگرسبار کار نمیکنه.

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