در کارهای واقعی پیشرفت همیشه یکنواخت نیست؛ این الگو کار را به مرحله معنایی تقسیم کرده و در هر مرحله هم نوار پیشرفت را به نسبت i ضربدر ۱۰۰ تقسیم بر تعداد مراحل جلو میبرد و هم با Select پیام وضعیت همان مرحله را نشان میدهد. کاربر میفهمد برنامه کجای کار است و منتظر نمیماند که فریز شده باشد. در پایان Progress صفر میشود تا بار بعدی از ابتدا شروع شود. همین اسکلت را میتوانید به جای Toast با فراخوانی واقعی HttpJob در هر مرحله جایگزین کنید و یک لودر حرفهای بسازید.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub btnSubmit_Click
Dim steps As Int = 4
For i = 1 To steps
pbProgress.Progress = i * 100 / steps
Select i
Case 1: ToastMessageShow("آمادهسازی دادهها...", False)
Case 2: ToastMessageShow("ارسال به سرور...", False)
Case 3: ToastMessageShow("دریافت پاسخ...", False)
Case 4: ToastMessageShow("ثبت شد", False)
End Select
Sleep(500)
Next
pbProgress.Progress = 0
End Sub