יצירת תוכנית ב- Visual Basic: דפדפן אינטרנט: 9 שלבים

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

הוראה זו מסבירה את תהליך יצירת אפליקציית דפדפן אינטרנט פשוטה ב- VB. NET היא מיועדת כמעקב להוראת VB. NET הראשונה שלי: יצירת התוכנית הראשונה שלך ב- Visual Basic. מומלץ לקרוא את ההוראה תחילה, מאחר והוראה זו מניחה שיש לך ידע בסיסי בממשק המהדורה של Visual Basic Express, כפי שהיא מכוסה בשאר ההוראות שלי. למרות ש- Visual Basic 2005 Express Edition עובד מצוין עבור הוראה זו, אני משתמש Edition Basic Basic 2008 Express, זמין ממיקרוסופט

שלב 1: צור את הפרויקט

צור פרויקט חדש של Windows Forms, וקרא לו דפדפן אינטרנט. שנה את גודל הטופס לטעמך.

שלב 2: הוסף את הפקדים ושנה את המאפיינים

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

שלב 3: קוד

לחץ פעמיים על כפתור 1 והוסף את הקוד הבא לעורך, אחרי השורה "תת פרטי" ולפני השורה "סיום תת"

WebBrowser1. Navigate (TextBox1. Text)קוד זה פשוט אומר לתוכנית: כאשר מישהו לוחץ על Button1, קבל את דפדפן האינטרנט לנווט לכל מה שיש ב- TextBox1 זהו זה! יש לך דפדפן אינטרנט מתפקד. לחץ על כפתור ההפעלה כדי לבדוק אותו.

שלב 4: עוד דברים

עכשיו, לא חשבת שאני רק הולך לתת לך שורת קוד אחת - נכון? במהלך השלבים הבאים, ניישם את הדברים הבאים:

• שורת כתובת שמשתנה עם שינוי הדף
• לחצני אחורה, קדימה ורענון
• שורת מצב.

שלב 5: שורת כתובות

כרגע, כל שורת הכתובת החוצה היא להציג את הדף שאתה מקליד, אם תלחץ על קישור, השינוי לא יבוא לידי ביטוי בשורת הכתובת. כדי לתקן זאת, עלינו להוסיף עוד קוד חזור לתצוגת העיצוב, לחץ על "טופס 1. vb (עיצוב)" ולאחר מכן לחץ פעמיים על פקד דפדפן האינטרנט. הוא יחזור לתצוגת הקוד, אולם יהיה שם עוד קוד, שים לב כי כתוב בו "WebBrowser1_DocumentCompleted", זהו הקוד אותו אנו רוצים, לכן איננו צריכים לבצע כאן שום שינויים, אך יש ריק שורה תחת אותה אחת, לפני משפט Sub Sub, ואנו רוצים להוסיף שם קוד. הקלד שם את הדברים הבאים

TextBox1. Text = WebBrowser1. Url. ToStringזה אומר לתוכנית כי לאחר ש- WebBrowser1_DocumentCompleted, עלינו לשנות את TextBox1. Text ל- WebBrowser1. Url. ה- ToString נמצא שם, כי כברירת מחדל, מאפיין ה- URL של דפדפן האינטרנט אינו אותו סוג נתונים (מחרוזת), לפי הצורך בתיבת הטקסט שלנו. ה- ToString כותב את כתובת האתר למחרוזת עבור ה- TextBox.

שלב 6: לחצני פעולה

חזור לתצוגת העיצוב וגרור 3 כפתורים חדשים אל הטופס והנח אותם. שנה את מאפיין הטקסט של כל אחד: Button2 = Back, Button3 = Forward ו- Button4 = Refresh. אם אתה ממקם אותם כמו שלי, התאם את מאפיין העוגן של רענן למעלה, לחץ לחיצה ימנית על כפתור הקודם והקלד את הקוד הבא.

דפדפן אינטרנט 1. GoBack () חזרה לעיצוב, לחץ פעמיים קדימה והקלד

WebBrowser1. GoForward ()תצוגת עיצוב ולחיצה כפולה לרענון

דפדפן אינטרנט 1. רענון ()בדוק את הדפדפן ונסה את התכונות החדשות.

שלב 7: שורת המצב

בחזרה לתצוגת העיצוב, הוסף תווית, שנה את הטקסט ל"טעינה … "(ללא מרכאות) כעת, היכנס לתצוגת קוד על ידי לחיצה על הכרטיסייה Form1.vb. מצא את הערך WebBrowser1_DocumentCompleted והקלד מתחת לקוד שהצבת שם קודם

Label1. Text = "בוצע"כעת, לחץ למעלה היכן שהקוד אומר DocumentCompleted. הזז את העכבר למעלה למקום בו נמצאות שתי התיבות הנפתחות. בחר את השני (זה שאומר DocumentCompleted) ובחר ניווט. לאחר מכן, יופיע קוד חדש - הקלד

Label1. Text = "טוען"זה רק מספק אינדיקטור כאשר הדף נטען. כמו כן, ייתכן שתרצה להגדיר את מאפיין העוגן של התווית.

שלב 8: מתחרה

הנה לך. יש לך דפדפן אינטרנט המתפקד באופן מלא. המשך להתאים אותו כרצונך. כפי שניתן להדריך הראשון שלי. יש לי שיעורי בית למי שמסיים את ההוראה. יישום הדברים הבאים:

• פונקציה ביתית
• שנה את לחצן הרענן ללחצן עצור כאשר דף נטען.

אני מקווה שהפרויקטים האלה הראו לך כמה קל לתכנת!

שלב 9: פתרונות

למי שסיים את ה- VB הראשון שלי להוראה - יש לי את הפתרונות לשיעורי הבית שהגדרתי בסוף.

שנה את צבע הרקע

זה פשוט - שנה את המאפיין BackColour של Form1 לצבע אחר

הוסף מידע על זכויות יוצרים

תווית חדשה עם מאפיין הטקסט השתנה תעשה את העבודה

בצע את גודל הטופס בעזרת התמונה

שנה את AutoSize ל- True ו- AutoSizeMode ל- GrowAndShrinkDone! עוד יבוא: אני אצור עוד כמה הוראות VB. NET. המשך קידוד!