Κατεβάστε Visual Basic 2008 Express Edition ( βλέπε Πόρων ) . 2
Επανεκκινήστε τον υπολογιστή σας και ανοίξτε το Visual Basic Express . Επιλέξτε "New Project , " τότε " ελέγχου του Internet της Microsoft , " στη γραμμή εργαλείων Βασική Visual , στη συνέχεια, "Εφαρμογή" και , τέλος, κάντε κλικ στο κουμπί " Κλείσιμο ".
Εικόνων 3
Επιλέξτε το εικονίδιο που προστέθηκε το παράθυρο Εργαλεία και σχεδιάστε ένα μεγάλο τετράγωνο στην φόρμα της Visual Basic . Αυτή θα είναι η περιοχή της οθόνης για τις σελίδες Web στο πρόγραμμα περιήγησης Web που δημιουργείτε . Στη συνέχεια, τοποθετήστε ένα συστατικό πλαίσιο κειμένου επιλέγοντας το " Πλαίσιο κειμένου " στοιχείο από τη γραμμή εργαλείων και κάνοντας κλικ στο πάνω μέρος του πάνω από το κουτί που προηγουμένως εισαχθεί μορφή . Αυτή θα είναι η περιοχή εισόδου διεύθυνσης Web του προγράμματος περιήγησης στο Web
Η 4
Τοποθετήστε τέσσερα κουμπιά στο Web φόρμας του προγράμματος περιήγησης σας : . Go , εμπρός, πίσω και Ανανέωση . Κάντε κλικ σε κάθε κουμπί και να αλλάξετε την ετικέτα για να ταιριάζει με το σκοπό της. Για παράδειγμα , το "Go" θα φέρει την ένδειξη " CmdGo " για να δείξει ότι είναι ένα κουμπί εντολής και ο σκοπός του κουμπιού .
5
διπλό κλικ στο " Go" και στη συνέχεια "Πίσω" και εισάγετε τον παρακάτω κωδικό , η οποία εμφανίζεται στο σχετικό παράθυρο διαλόγου προγραμματισμού που εμφανίζεται :
CmdGoPrivate Sub cmdgo_Click ( ) WebBrowser1.Navigate ( Text1.Text ) End Sub
CmdBackPrivate Sub cmdback_Click ( ) WebBrowser1 . GoBackEnd Sub
Η 6
διπλό κλικ στο " Εμπρός" και τότε η κύρια ηλεκτρονική διεύθυνση πεδίο κειμένου και πληκτρολογήστε τον ακόλουθο κώδικα , η οποία εμφανίζεται στο σχετικό παράθυρο διαλόγου προγραμματισμού που εμφανίζεται :
CmdForwardPrivate Sub Cmdforward_Click ( ) WebBrowser1.GoForwardEnd Sub
Private Sub Form_Load ( ) WebBrowser1.Navigate ( " http://www.demandstudios.com " ) End Sub
Η 7
διπλό κλικ στην ιστοσελίδα προβολής περιοχή της φόρμας σας και εισαγάγετε τον παρακάτω κώδικα για να εμφανίσετε τις σελίδες Web σε Visual Basic πρόγραμμα περιήγησής σας :
Private Sub WebBrowser1_StatusTextChange ( ByVal Κείμενο Όπως String ) Text1.Text = ( WebBrowser1.LocationURL ) Φόρμα1 . Caption = ( WebBrowser1.LocationName ) End Sub
8
Αποθήκευση , να τρέξει και να δείτε τα νέα Basic πρόγραμμα περιήγησης στο Web Visual σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα