آموزش ساخت لودینگ همراه با Progressbar

[bahman 165]

خب ابتدا تو دیزاینرمون یک پروسس بار اضافه میکنیم

 

و با کد های زیر تعریفش میکنیم تو پروژه تو ساب گلوبال

			
	Dim a As Int		
	Dim timer1 As Timer
	Private ProgressBar1 As ProgressBar

سپس تو اکتیویتی کرییت کد زیر رو قرار میدیم

timer1.Initialize("Timer1",600)
timer1.Enabled=True

و با تابع زیر کارمون رو به پایان میرسانیم

Sub Timer1_Tick

ProgressBar1.Progress = a
a = a + 10
If a > 100 Then
	timer1.Enabled=False
دستور مور نظر
Activity.Finish
End If
End Sub

اگه مورد پسندت بود دکمه پسندیدم یادت نره

[mobah 132]

ببخشید 

برای وب ویو    و تغییر لودینگ وب ویو  باید چکار کنیم