כיצד לתכנת סרגל התקדמות על VB.net

השתמש בכיתה ProgressBar ב- Visual Basic כדי להראות למשתמשים כיצד הם מתקדמים במשימה מסוימת.

שלב 1

פתח פרוייקט Visual Basic. לחץ פעמיים על השליטה "סרגל התקדמות" על סרגל הכלים כדי להוסיף "ProgressBar1" לטופס. לחץ פעמיים על כפתור "לחצן" כדי להוסיף את "Button1" שליטה על הטופס.

שלב 2

לחץ על "F7" כדי לפתוח את חלון הקוד. פתח את השגרת "Form1_Load" וכתוב את הדברים הבאים:

ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 5 ProgressBar1.Value = 0

קוד זה קובע את הערכים ההתחלתיים של משתנה ההתקדמות, כמו גם את ערכי המינימום והמקסימום של סרגל ההתקדמות. ניתן להגדיר ערך מקסימלי אחר, בהתאם למה שאתה צריך את סרגל התקדמות.

שלב 3

פתח את השגרת "Button1_Click" וכתוב את הדברים הבאים:

אם ProgressBar1.Value <ProgressBar1.Maximum אז ProgressBar1.Value + = 1 אם ProgressBar1.Value = ProgressBar1.Maximum ואז MsgBox ("סיים!") סוף אם סוף אם

כאשר המשתמש לוחץ על הלחצן, הקוד בודק אם שורת ההתקדמות נמוכה מהערך המרבי. אם כך, להגדיל את הערך על ידי אחד, גורם סרגל התקדמות בטופס להראות עלייה גם כן. לאחר מכן, בדוק שוב אם הערך הגיע למקסימום. בדרך זו, כאשר סרגל התקדמות מגיע למקסימום, אתה לא יכול להגדיל את הערך יותר, ולכן למנוע שגיאה מחוץ לטווח.