Webbrowser (3 kleine Fragen) Hilfe komme nicht weiter!

  • VB.NET

    Webbrowser (3 kleine Fragen) Hilfe komme nicht weiter!

    Gutentag : D
    Ich hab gestern mal angefangen mir einen Webbrowser zu basteln, nun
    komme ich nicht mehr weiter^^
    Ich hoffe ihr könnt mir weiterhelfen.

    1 Ich möchte gerne das er mein Textfeld aktuallisiert wenn man zB: auf eine neue Seite kommt
    2 Eine art TAB system wäre nicht schlecht ^^
    3 Wenn man auf Links klickt öfnet er diesen mit dem normalen Internetexplorer das würde ich gerne ändern.

    Grüß Zarakai
    Wäre nett wenn da jemand Beipsiele posten könnte : D ?(





    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. WebBrowser1.Navigate(TextBox1.Text)
    5. End Sub
    7. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    8. WebBrowser1.GoBack()
    9. End Sub
    11. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    12. WebBrowser1.GoForward()
    13. End Sub
    15. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    16. WebBrowser1.Refresh()
    17. End Sub
    19. Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    21. Me.ProgressBar1.Maximum = 20
    22. Me.ProgressBar1.Maximum = 100
    23. End Sub
    24. Private Sub AxWebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
    25. Me.ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress) * 100, Integer)
    26. End Sub
    27. Private Sub AxWebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    28. Me.ProgressBar1.Value = 0
    29. End Sub
    31. End Class


    Es handelt hier bei um ein "just for fun" Projekt ^^

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Zarakai“ ()

Facebook
Telefonspende