Πώς να δημιουργήσετε ένα πρόγραμμα περιήγησης στο Web σε Visual Basics 2008

" . WebBrowser " Visual Basic 2008 , συμπεριλαμβανομένης της δωρεάν έκδοση Express , τα πλοία με ενσωματωμένο απόδοσης HTML συστατικό που ονομάζεται , αρκετά κατάλληλα , Αυτό επιτρέπει σε έναν προγραμματιστή , με σχεδόν κανένα προγραμματισμό ή επένδυση χρόνου , να δημιουργήσει ένα web browser ή επιτρέπει την εφαρμογή τους, τη δική της τεκμηρίωση προβολή HTML . Τα πράγματα που θα χρειαστείτε
Visual Basic 2008
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Προσθέστε ένα πλαίσιο κειμένου στην κορυφή της φόρμας σας . Ονομάστε το " AddressBar " και να αλλάξει είναι το κείμενο να " http://www.google.com " ή οποιαδήποτε άλλη προεπιλεγμένη διεύθυνση web που θέλετε να χρησιμοποιήσετε . 2

Προσθήκη κουμπιού που βρίσκεται δίπλα στο κειμένου . Ονομάστε το " GoButton " και να αλλάξει η ιδιοκτησία κειμένου "GO ".
Εικόνων 3

Προσθέστε το " WebBrowser " ελέγχου στον κατάλογο συστατικών και σύρετε τα σύνορά της , έτσι ώστε να γεμίζει το υπόλοιπο της παράθυρο. Πηγαίνετε στη λίστα ιδιοτήτων στην κάτω δεξιά πλευρά της οθόνης και να βρει το " άγκυρα" εισόδου. Θα διαβάσει "Top , Bottom ». Κάντε κλικ στο αναπτυσσόμενο πλαίσιο για να το αλλάξετε σε " Επάνω, Κάτω , Αριστερά, Δεξιά . " Αυτό θα εξασφαλίσει ότι ο έλεγχος web browser σας γεμίζει πάντα το παράθυρο όταν ο χρήστης την αλλάζει μέγεθος .

Στη συνέχεια, πηγαίνετε στην Διεύθυνση ιδιότητα του στοιχείου ελέγχου web browser και να το αλλάξετε σε " http://www.google . com . " Αν επιλέξατε άλλο προεπιλεγμένο ιστοσελίδα στο βήμα 1 , η χρήση που αντ 'αυτού.
Η

4 Κάντε διπλό κλικ στο " GoButton " που δημιουργήσατε στο βήμα 2 . Αυτό θα δημιουργήσει μια λειτουργία εκδήλωση, με τίτλο " GoButton_Click » και θα σας μεταφέρει αυτόματα . Επικολλήστε τον παρακάτω κώδικα σε αυτό . Οι γραμμές REM περιγράφουν ποιος είναι ο κωδικός κάνει σε κάθε γραμμή :

REM αναιρέσει κάποια μνήμη για να κρατήσει ένα νέο url URL.Dim Όπως Uri

REM Προσπαθήστε να δημιουργήσετε μια διεύθυνση URL από το κείμενο η διεύθυνση bar.Tryurl = Νέα Uri ( AddressBar.Text )

REM Αν το κείμενο στη γραμμή διευθύνσεων δεν έχει νόημα ως μια διεύθυνση URL , να δώσει το warningREM χρήστη και στη συνέχεια να τους πω ότι θα έχετε την ευκαιρία να το Google αντί . Catch ex Όπως ExceptionMsgBox ( " Μη έγκυρη διεύθυνση URL . Πηγαίνοντας στο Google αντ 'αυτού. " ) url = Νέα Uri ( " http://www.google.com " ) AddressBar.Text = " http://www.google.com "

End Δοκιμάστε

REM Πείτε το στοιχείο web browser για να ανοίξει το URL.WebBrowser1.Url = url
Η
εικόνων