" . WebBrowser " Visual Basic 2008 , einschließlich der kostenlosen Express -Version wird mit einem integrierten HTML- Rendering- Komponente mit dem Namen , sinnigerweise, Dies ermöglicht einem Entwickler , fast ohne Programmier-oder Zeit-Investition , um einen Web-Browser zu erstellen oder zulassen, dass ihre Anwendung ihre eigene Anzeige HTML-Dokumentation . Things You
Visual Basic 2008
brauchen anzeigen Weitere Anweisungen
1
Fügen Sie ein Textfeld an die Spitze des Formulars . Nennen Sie es " AddressBar " und ändern Sie den Text auf " http://www.google.com " oder jedem anderen Standard-Web- Adresse, die Sie verwenden möchten .
2
Fügen Sie ein Button neben dem Textfeld. Nennen Sie es " GoButton " und ändern Sie die Text -Eigenschaft auf " GO ".
3
die " WebBrowser " control In der Liste der Komponenten und ziehen ihre Grenzen , so dass es den Rest der Füllungen Fenster . Gehen Sie auf die Liste der Eigenschaften auf der rechten unteren Seite des Bildschirms und finden Sie den " Anchor "-Eintrag . Es wird gelesen " Oben, Unten . " Klicken Sie auf das Dropdown-Feld , um es zu ändern " Oben, Unten , Links, Rechts . " Dadurch wird sichergestellt, dass Ihre Web- Browser-Steuerung immer füllt das Fenster, wenn der Benutzer die Größe es .
Nächstes auf die URL -Eigenschaft des Web- Browser-Steuerung und ändern Sie es zu lesen " http://www.google . com. " Wenn Sie eine andere Standard-Website in Schritt 1 gewählt haben, verwenden Sie statt .
4
Doppelklicken Sie auf das " GoButton " Sie in Schritt 2 erstellt haben. Dadurch wird eine Event-Funktion mit dem Namen " GoButton_Click ", und nehmen Sie es automatisch . Fügen Sie den folgenden Code ein . Die REM -Linien zu beschreiben , was der Code wird auf jeder Linie zu tun :
REM Beiseite einige Speicher , um eine neue URL.Dim url halten Wie Uri
REM Versuchen Sie, eine URL aus dem Text in erstellen die Adresse bar.Tryurl = New Uri ( AddressBar.Text )
REM Wenn der Text in der Adressleiste nicht sinnvoll als URL , geben dem Anwender warningREM und dann sagen sie , dass Sie auf Google gehen statt . Fang ex As ExceptionMsgBox ( "Ungültige URL . Going to Google statt . " ) url = New Uri ( " http://www.google.com " ) AddressBar.Text = " http://www.google.com "
End Try
REM Sagen Sie der Web- Browser-Komponente , um die URL.WebBrowser1.Url = url
öffnen