tutorial1
mini-Browser mit Visual Basic
Ausstattung:
hier
Schritt 1: Erstellen eines neuen VisualBasic Projekt
Dann sollte diese Oberfläche erscheinen...
Wenn ihr euch meinen Screenshot anschaut seht ihr rechts unten in der Ecke im Eigenschaften Fenster folgendes "Text | Form1". Bei Form 1 schreib ihr bitte noch euren BrowserNamen hin.
Wenn ihr dann euren BrowserNamen bei Text im Eigenschaften Fenster geändert habt, könnt ihr euere Browservorschau in der Mitte sehen. Am Rand solltet ihr die Fenstergröße noch ein bisschen ändern indem ihr einfach an den gedachten Stellen zieht.
Schritt 2: Buttons und TextBox zum Browser hinzufügen
In der Toolbox am linken Rand findet ihr alle Tools die ihr hinzufügen könnt. in unserem Fall fügen wir vier Buttons und eine TextBox hinzu die wir so am oberem Rand des Programm-Fensters anordnen müssen:
Button1 | Button2 | Button3 | Text ____________________________________box| Button4
Das ganze sieht dann : SO
aus.
Dann klicken wir jeweils nacheinnander auf die Buttons und auf die TextBox. Wir schauen unten bei den Eigenschaften nach Text und bennen die Dinge in:
button1 = zurück ; button2 = weiter ; text box = garnicht ; button3: Suchen; button4 = Refresh
So, nun müssen wir noch das Webbrowser Tool aus der Toolbox in unser Programmfenster ziehen und der größe Anpassen. Nun gehen wir
Wenn wir das gemacht haben sehen wir bei den Eigenschaften von WebBrowser unten ein URL Feld. Dies ist leer. Hier schreiben wir nun http://google.de hinein.
Schritt 3: Funktionen hinzufügen
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Wenn das geschafft ist klicken wir oben wieder auf das Tab wo [Entwurf] hintersteht und schließen das Tab mit dem ProgrammCode. Und nun müssen wir unseren Browser nurnoch debuggen(testen) indem wir oben au Debuggen klicken und Debugging starten auswählen.
Wenn das geschafft ist müssen wir nurnoch speichern. Die exe. Datei wurde bei mir automatisch erstellt. (Ihr müsst als vb. Datei abspeichern).
Und nun haben wir unseren eigenen mini-Browser, der aber eigentlich nur ein InternetExplorer auf einer anderen Oberfläche ist.
Weblinks: