Hey also ich hab ein Problem, ich hab ein Webbrowser gecodet oder bin grad dabei, und möchte ihn starten und geben bei der ComboBox die Webseite ein, aber alles was angezeigt wird ist:
Die Seite kann nicht
angezeigt werden.
Vergewissern Sie sich, dass die Webadresse tabpage1 stimmt.
Suchen Sie die Seite mit Ihrer Suchmaschine.
Aktualisieren Sie die Seite in ein paar Minuten.
Ich poste hier mal den gesammten Code:
Bitte schnell antworten/helfen möchte heute noch fertig werden ,lg sombig
*Topic verschoben, VB-Tag eingefügt*
Die Seite kann nicht
angezeigt werden.
Vergewissern Sie sich, dass die Webadresse tabpage1 stimmt.
Suchen Sie die Seite mit Ihrer Suchmaschine.
Aktualisieren Sie die Seite in ein paar Minuten.
Ich poste hier mal den gesammten Code:
VB.NET-Quellcode
- Public Class Form1
- Dim aktiverbrowser As WebBrowser
- Private Sub getaktiverbrowser()
- For Each vb As WebBrowser In TabControl1.SelectedTab.Controls
- aktiverbrowser = vb
- Exit For
- Next
- End Sub
- Public Sub addtab(ByVal name As String, ByVal url As String)
- Dim tab As TabPage = New TabPage(name)
- Dim vb As WebBrowser = New WebBrowser()
- vb.Navigate(url)
- vb.Dock = DockStyle.Fill
- tab.Controls.Add(vb)
- TabControl1.TabPages.Add(tab)
- TabControl1.SelectTab(tab)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TabControl1.TabPages.Clear()
- addtab("Neuer Tab", "about:blank")
- getaktiverbrowser()
- End Sub
- Private Sub addButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click
- getaktiverbrowser()
- addtab("Neuer Tab", "about:blank ")
- End Sub
- Private Sub GoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoButton.Click
- getaktiverbrowser()
- aktiverbrowser.Navigate(URLT.Text)
- End Sub
- Private Sub RefreshButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshButton.Click
- aktiverbrowser.Refresh()
- End Sub
- Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click
- aktiverbrowser.Stop()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- aktiverbrowser.GoHome()
- End Sub
- Private Sub BackButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackButton.Click
- aktiverbrowser.GoBack()
- End Sub
- Private Sub ForwardButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForwardButton.Click
- aktiverbrowser.GoForward()
- End Sub
- End Class
Bitte schnell antworten/helfen möchte heute noch fertig werden ,lg sombig
*Topic verschoben, VB-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()