Mit der Programmiersprache Visual Basic von Microsoft ist es möglich, eigene Web-Browser zu erstellen. Die zugrunde liegende Motor des Browser Internet Explorer zu sein, aber die Benutzeroberfläche und das Aussehen können Sie ganz nach Ihren Wünschen anpassen , indem Visual Basic intuitive Graphical User Interface Design-Tools . Anleitung
1
Öffnen Sie Visual Basic , und erstellen Sie ein neues Projekt , indem Sie auf "Datei" und dann auf " Neues Projekt. " Wählen Sie "Windows Forms -Projekt " und " . MyOwnBrowser ", wenn Sie dazu aufgefordert werden , geben Sie Ihrem Projekt den Namen Jede andere gewünschte Name ist OK.
2
Ziehen Sie das " WebBrowser "-Komponente aus der Toolbox und in Ihr Projekt. Durch Ziehen an den Kanten , die Größe , so dass es die meisten Ihrer Projekt -Fenster ausfüllt. Das weiße Feld wird der Bereich, in dem Web-Content für den Benutzer gerendert werden , wenn das Programm läuft sein .
3
Ziehen Sie ein Textfeld und eine Schaltfläche aus der Toolbox in Ihr Projekt. Natürlich wird das Textfeld die Adressleiste und die Schaltfläche wird ein " Go "-Taste , die bewirken, dass die Seite zu laden wird . Wenn Sie nur eine Seite, die Sie möchten, dass Ihr Browser zu laden , können Sie diese später verlassen , aber jetzt setzen sie in während Sie lernen die Konzepte .
4
Doppelklicken Sie auf die Schaltfläche, die Sie gerade hinzugefügt , um direkt auf den Quellcode . Visual Basic erstellt automatisch ein "Klick "-Ereignis für die Schaltfläche in den Code. Fügen Sie den folgenden innerhalb der Klammern von diesem Ereignis :
Private Sub Button1_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Versuchen
< p > WebBrowser1.URL = New Uri ( TextBox1.Text )
Fang ex As System.UriFormatException
WebBrowser1.URL = New Uri ( "http://" + TextBox1.Text )
End Try End Sub
Dies wird versuchen, den Text in der Adressleiste als URL interpretieren . Schlägt dies fehl, wird dies wahrscheinlich sein, weil das "http://" habe aufgehört . Das Programm wird wieder versuchen mit diesem Text angehängt. Wenn es weiterhin fehlschlägt , dann wird es aufgeben.