advanced computing tabcontrol??

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von S3cr3t.

    advanced computing tabcontrol??

    ich habe das tabcontrol von advancedcomputing.ch/ gedownloadet und erfolgreich importiert und verweise gesetzt!!

    ich möchte dieses tabcontrol für meinen Webbrowser benutzen und habe ein problem bei dem hinzufügen eines tabs und dessen titles!!

    mein bisheriger code!!

    VB.NET-Quellcode

    1. Dim tabp As New TabPage("Laden...")
    2. Dim browser As New WebBrowser
    3. browser.Parent = tabp
    4. Browser.Dock = DockStyle.Fill
    5. Browser.Navigate(New Uri("http://google.de"))
    6. FlatTabControl1.TabPages.Add(tabp)
    7. FlatTabControl1.SelectedTab = tabp
    8. AddHandler Browser.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted
    9. FlatTabControl1.SelectedTab.UseVisualStyleBackColor = True

    button klick event^ ^

    ich erstelle ja erst zur laufzeit den neuen browser named "browser"(Dim browser As New WebBrowser) wie kann ich auf dessen events zugreifen( navigating, document_completed,etc.)?

    so dass ich im document completed event den document title auf den tabpage title übertragen kann??

    VB.NET-Quellcode

    1. Imports AC.ExtendedRenderer.Navigator.FlatTabControl
    2. Public Class Form1
    3. Dim tBrowser As New WebBrowser
    4. Dim ww As New WebBrowser
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. FlatTabControl1.Controls.Remove(FlatTabControl1.SelectedTab)
    8. Dim tTab As New TabPage("Laden...")
    9. Dim tBrowser As New WebBrowser
    10. tBrowser.Parent = tTab
    11. tBrowser.Dock = DockStyle.Fill
    12. tBrowser.Navigate(New Uri("http://google.de"))
    13. FlatTabControl1.TabPages.Add(tTab)
    14. FlatTabControl1.SelectedTab = tTab
    15. AddHandler tBrowser.DocumentCompleted, AddressOf tbrowser_DocumentCompleted
    16. FlatTabControl1.SelectedTab.UseVisualStyleBackColor = True
    17. End Sub
    19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    20. Dim tTab As New TabPage("Laden...")
    21. Dim tBrowser As New WebBrowser
    22. tBrowser.Parent = tTab
    23. tBrowser.Dock = DockStyle.Fill
    24. tBrowser.Navigate(New Uri("http://google.de"))
    25. FlatTabControl1.TabPages.Add(tTab)
    26. FlatTabControl1.SelectedTab = tTab
    27. AddHandler tBrowser.DocumentCompleted, AddressOf tbrowser_DocumentCompleted
    28. FlatTabControl1.SelectedTab.UseVisualStyleBackColor = True
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    32. Dim ww As New WebBrowser
    33. CType(FlatTabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
    34. End Sub
    36. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    37. If FlatTabControl1.TabPages.Count = 1 Then
    38. Else
    39. FlatTabControl1.Controls.Remove(FlatTabControl1.SelectedTab)
    40. End If
    41. End Sub
    43. Private Sub tbrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    44. FlatTabControl1.SelectedTab.Text = tBrowser.DocumentTitle
    45. End Sub
    47. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    48. Dim tTab As New TabPage("Laden...")
    49. Dim ww As New WebBrowser
    50. FlatTabControl1.TabPages.Add(tTab)
    51. FlatTabControl1.SelectedTab = tTab
    52. ww.Dock = DockStyle.Fill
    53. FlatTabControl1.SelectedTab.Controls.Add(ww)
    54. AddHandler ww.StatusTextChanged, AddressOf WebBrowser1_StatusTextChanged
    55. End Sub
    57. Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.StatusTextChanged
    59. End Sub
    60. End Class


    das ist bis mein gesammter code!!

    ich kome leider immer noch nicht weiter!!

    könnte man mich bitte lenken!!

    mfg

    S3cr3t

    mein problem ist im ersten abschnitt erklärt!! es ist immer noch dass gleiche!! es wäre sehr hilfreich wenn jem. mir mal den code leicht zurecht stutzen könnte oder mir ein paar code schnipsel gbt anhand dener ich dan mein problem selber lösen kann!!

    Schau dir mal deine Deklaration des tbrowser an. Du erzeugst ganz oben ein globales Objekt, was auch richtig ist.
    In der Sub Load erzeugst du ein Lokales Objekt gleichen Namens (Stichwort Shadow). Damit ist der dort erzeugte Browser, der zwar ein Event hat da, aber nur lokal im Load aufrufbar. Schreibe im Load einfach nur tbrowser=new WebBrowser

    Fiel fergnügen
    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

Facebook
Telefonspende