כיצד לשלב סרגל מעקב ב- Visual Basic: 3 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

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

הערה: האם מישהו יודע כיצד להגדיל את מספר המקומות בסרגל מסלול? אני יכול לקבל רק 11…

שלב 1: הכינו את הטופס

זה די קל. צור מתי שאתה רוצה שהתוכנית שלך תיראה. אני לא מכין שום דבר במיוחד. אכין משהו שמשנה את צבע תיבת הטקסט. == אל תשכח להוסיף סרגל עקיבה !!! == ^{_{כן, הרבה אנשים שוכחים את זה}}

שלב 2: קוד

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

תת פרטי TrackBar1_Scroll (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל ב- TrackBar1. Sub End Endכעת אנו לומדים על ערכים. בסרגל המסלול הזה אנו יכולים לקבל רק 11 ערכים, 0-10. ערך 0 הוא השמאל מאוד ואילו ערך 10 הוא הימין מאוד. הבנתי את זה? בוא נמשיך הלאה.

כדי להקל על החיים כל הטקסט בשלב זה מעתה והלאה יהיה בסגנון קוד

בין שתי שורות קוד, הקלד: אם TrackBar1. Value = placceavaluenumberhere ThenEnd אם החלפת מקום הערך מספר כאן עם מספר הערך של המקום שבו אתה רוצה שהוא יהיה. עכשיו בין ארבע שורות קוד ההקלדה מה אתה רוצה לעשות. במקרה זה: TextBox1. BackColor = Color. Black ברגע שעשית את זה וחזר על כל מקום. כשסיימתי זה נראה כך: Private Sub TrackBar1_Scroll (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל ב- TrackBar1. Scroll If TrackBar1. Value = 0 ואז TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 ואז TextBox1. BackColor = Color. White סוף אם If TrackBar1. Value = 2 ואז TextBox1. BackColor = Color. Red סוף אם If TrackBar1. Value = 3 ואז TextBox1. BackColor = Color. Blue סוף אם If TrackBar1. Value = 4 ואז TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 ואז TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 ואז TextBox1. BackColor = Color. Green סוף אם TrackBar1. Value = 7 ואז TextBox1. BackColor = Color. Orange סוף אם If TrackBar1. Value = 8 ואז TextBox1. BackColor = Color. Brown סוף אם TrackBar1. Value = 9 ואז TextBox1. BackColor = Color. Wite סוף אם If TrackBar1. Value = 10 ואז TextBox1. BackColor = Color. White End If End Sub

שלב 3: בוצע

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

לחצן Sub Sub2_Click (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל בלחצן 2. לחץ על End End Sub Sub Button Sub_1Click (שולח ByVal כ- System. Object, ByVal e As System. EventArgs) מטפל על לחצן1. לחץ TrackBar1. Value = 0 סיום תת