Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

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

Χρήση της γλώσσας προγραμματισμού Visual Basic από τη Microsoft , είναι δυνατό να δημιουργήσετε τα δικά σας προγράμματα περιήγησης στο Web . Η βασική μηχανή που τροφοδοτεί το πρόγραμμα περιήγησης θα είναι ο Internet Explorer , αλλά η διεπαφή χρήστη και την εμφάνιση που μπορείτε να προσαρμόσετε πλήρως με τις προτιμήσεις σας, χρησιμοποιώντας διαισθητικού Graphical εργαλεία σχεδιασμού διεπαφής χρήστη της Visual Basic του . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να δημιουργήσετε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και στη συνέχεια "New Project ". Επιλέξτε " Windows Forms Project" και , όταν σας ζητηθεί , να δώσει το έργο σας το όνομα " MyOwnBrowser . " Κάθε άλλο όνομα που θέλετε είναι εντάξει . 2

Σύρετε το " WebBrowser " συνιστώσα από την εργαλειοθήκη και στο έργο σας . Σύροντας τα άκρα , να αλλάξετε το μέγεθος , έτσι ώστε να γεμίζει το μεγαλύτερο μέρος της παράθυρο του έργου σας . Αυτό το άσπρο κουτί θα είναι η περιοχή όπου το περιεχόμενο Web , θα πρέπει να παρέχονται για το χρήστη όταν το πρόγραμμα εκτελείται .
Εικόνων 3

Σύρετε ένα πλαίσιο κειμένου και ένα κουμπί από την εργαλειοθήκη στο έργο σας . Φυσικά , το πλαίσιο κειμένου θα είναι η γραμμή διευθύνσεων και το κουμπί θα είναι ένα κουμπί " Go" που θα προκαλέσει η σελίδα να φορτώσει . Αν έχετε μόνο μία σελίδα που θέλετε browser σας για να φορτώσει , μπορείτε να αφήσετε αυτά αργότερα , αλλά προς το παρόν να θέσει σε , ενώ μπορείτε να μάθετε τις έννοιες .
Η

4 Κάντε διπλό κλικ στο κουμπί που μόλις προστέθηκε για να πάει κατ 'ευθείαν στον πηγαίο κώδικα . Visual Basic θα δημιουργήσει αυτόματα ένα "κλικ " για το κουμπί στον κώδικα . Επικολλήστε τον ακόλουθο μέσα σε παρένθεση αυτού του γεγονότος :

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

Δοκιμάστε

WebBrowser1.URL = Νέα Uri ( TextBox1.Text )

Catch ex Όπως System.UriFormatException

WebBrowser1.URL = Νέα Uri ( "http://" + TextBox1.Text )

End Δοκιμάστε

End Sub

Αυτό θα προσπαθήσει να ερμηνεύσει το κείμενο στη γραμμή διευθύνσεων URL ως . Αν αποτύχει , αυτό θα είναι πιθανότατα επειδή το " http://" έμεινε εκτός . Το πρόγραμμα θα προσπαθήσει και πάλι με αυτό το κείμενο επισυνάπτεται . Εάν εξακολουθεί να αποτυγχάνει, τότε θα παραιτηθεί .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα