راهنمایی در مورد ساخت لودینگ توسط کتابخانه Aria

[payamjafari 5]

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

 

http://answercenter.ir/topic/11166-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-ariaprogressdialog/

 

فقط یک سوال

 

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

 

که این لودینگ به 100 رسید بسته بشه و صفحه اصلی برنامه خودم بیاد بالا

 

راهنمایی کنین ممنون میشم

[امین شاهدی 5,777]

این یه نمونه کد با style چزخشی :

Sub Globals

Dim timer As Timer
Dim APdialog As AriaProgressDialog

End Sub

Sub Activity_Create(FirstTime As Boolean)

	APdialog.initialize("apdialog")
	APdialog.setCancelable(False)
	APdialog.setMax(100)
	APdialog.setTitle(Application.LabelName)
	APdialog.STYLE_Spinner
	APdialog.setMessage("Loading")
	APdialog.Show
	
timer.Initialize("timer",1000) '1sanie
timer.Enabled=True
End Sub

Sub timer_Tick
	APdialog.dismiss
	ToastMessageShow("DONE!",False)
timer.Enabled=False
End Sub

این هم یه نمونه با style افقی :

Sub Globals
Dim timer As Timer
Dim APdialog As AriaProgressDialog
Dim progress As ProgressBar = 1
End Sub

Sub Activity_Create(FirstTime As Boolean)

	APdialog.initialize("apdialog")
	APdialog.setCancelable(False)
	APdialog.setMax(100)
	APdialog.setTitle(Application.LabelName)
	APdialog.STYLE_Horizontal
	APdialog.setMessage("Loading")
	APdialog.setProgress(progress)
	APdialog.Show
	
timer.Initialize("timer",25)
timer.Enabled=True
End Sub

Sub timer_Tick
	
	progress=progress+1
	
	If progress=100 Then
		APdialog.dismiss
		ToastMessageShow("DONE!",False)
		timer.Enabled=False
		Else
		APdialog.setProgress(progress)
	End If
	
End Sub

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

[payamjafari 5]

کد موبوط به Style چرخشی کار میکنه

 

اما برای Style افقی خیر میگه کد اشتباه است در کامپایل

 

Sub Globals
Dim timer As Timer
Dim APdialog As AriaProgressDialog
Dim progress As ProgressBar = 1
End Sub

Sub Activity_Create(FirstTime As Boolean)

    APdialog.initialize("apdialog")
    APdialog.setCancelable(False)
    APdialog.setMax(100)
    APdialog.setTitle(Application.LabelName)
    APdialog.STYLE_Horizontal
    APdialog.setMessage("Loading")
    APdialog.setProgress(progress)
    APdialog.Show
    
timer.Initialize("timer",25)
timer.Enabled=True
End Sub

Sub timer_Tick
    
    progress=progress+1
    
    If progress=100 Then
        APdialog.dismiss
        ToastMessageShow("DONE!",False)
        timer.Enabled=False
        Else
        APdialog.setProgress(progress)
    End If
    
End Sub

 

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

[payamjafari 5]

اگه میتونین قطعه کد بدین ممنون میشم

[payamjafari 5]

کد موبوط به Style چرخشی کار میکنه

 

اما برای Style افقی خیر میگه کد اشتباه است در کامپایل

 

Sub Globals
Dim timer As Timer
Dim APdialog As AriaProgressDialog
Dim progress As ProgressBar = 1
End Sub

Sub Activity_Create(FirstTime As Boolean)

    APdialog.initialize("apdialog")
    APdialog.setCancelable(False)
    APdialog.setMax(100)
    APdialog.setTitle(Application.LabelName)
    APdialog.STYLE_Horizontal
    APdialog.setMessage("Loading")
    APdialog.setProgress(progress)
    APdialog.Show
    
timer.Initialize("timer",25)
timer.Enabled=True
End Sub

Sub timer_Tick
    
    progress=progress+1
    
    If progress=100 Then
        APdialog.dismiss
        ToastMessageShow("DONE!",False)
        timer.Enabled=False
        Else
        APdialog.setProgress(progress)
    End If
    
End Sub

 

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