[WinForms] Control (TabControl) mit Selektierung über Name ist Nothing

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von nicerdicer.

    [WinForms] Control (TabControl) mit Selektierung über Name ist Nothing

    Hallo,

    ich habe in meiner Windows Form eine TabControl, die zu Beginn noch leer ist und während der Runtime gefüllt werden soll.
    Soweit so gut...Ich füge also meiner Form zuerst die TabPages hinzu, mit folgendem Sub:



    VB.NET-Quellcode

    1. ​Private Sub AddTabs()
    2. Dim add As Boolean = True
    3. Dim tb As New TabPage()
    4. Try
    5. For Each s As String In ds.tabPages
    6. tb.Name = s
    7. tb.Text = s
    8. tb.AllowDrop = True
    9. For Each t As TabPage In tabCtrl.TabPages
    10. If t.Name = Text Then
    11. add = False
    12. End If
    13. Next
    14. If add = True Then
    16. AddHandler tb.DragEnter, AddressOf tb_DragEnter
    17. AddHandler tb.DragDrop, AddressOf tb_DragDrop
    18. tabCtrl.TabPages.Add(tb)
    19. tabCtrl.TabPages(tb.Text).BackColor = Color.White
    20. End If
    21. Next
    22. Catch ex As Exception
    23. MessageBox.Show(ex.Message)
    24. End Try
    25. End Sub


    Die Schleife ist da um zu prüfen, ob die TabPage bereits vorhanden ist, da

    VB.NET-Quellcode

    1. ​tabctrl.TabPages.Contains(tb)
    nie True zurückgegeben hat..nunja andere Baustelle.

    Nun habe ich eine andere Funktion die den Rest der Controls zur jeweiligen TabPage hinzufügen soll.
    Dies versuche ich folgendermaßen zu bewerkstelligen:

    VB.NET-Quellcode

    1. ​Private Sub AddShortcuts()
    2. Try
    3. Dim newCont As New PictureBox()
    4. Dim newLab As New Label()
    5. Dim fs As FileStream
    6. Dim count As Integer = 0
    7. Dim startX As Integer = 0
    8. Dim startY As Integer = 0
    10. For c = 0 To ds.tabPagesWithNames.Keys.Count - 1
    11. Dim n As String = ds.tabPagesWithNames.Keys(c)
    12. For i = 0 To ds.tabPagesWithNames(ds.tabPagesWithNames.Keys(c)).Count - 1
    13. Dim currthumb As String = ds.tabPagesWithThumbs(ds.tabPagesWithNames.Keys(c)).Item(i)
    14. Dim currname As String = ds.tabPagesWithNames(ds.tabPagesWithNames.Keys(c)).Item(i)
    15. Dim currlink As String = ds.tabPagesWithLinks(ds.tabPagesWithNames.Keys(c)).Item(i)
    16. If currthumb = "" Then
    17. fs = New FileStream(path, FileMode.Open, FileAccess.Read)
    18. Else
    19. fs = New FileStream(currthumb, FileMode.Open, FileAccess.Read)
    20. End If
    22. With newCont
    23. .Name = n
    24. .Tag = currlink
    25. .AccessibleName = currname
    26. .BackgroundImage = Image.FromStream(fs)
    27. .BackgroundImageLayout = ImageLayout.Stretch
    28. .Size = New Point(60, 60)
    29. .BorderStyle = BorderStyle.Fixed3D
    30. .Location = New Point(startX, startY + 15)
    31. End With
    32. With newLab
    33. .Tag = currlink
    34. .Location = New Point(startX, startY)
    35. .Text = currname
    36. .Size = New Point(60, 20)
    37. End With
    38. AddHandler newCont.MouseClick, AddressOf newCont_MouseClick
    39. AddHandler newCont.MouseHover, AddressOf newCont_MouseHover
    40. AddHandler newCont.MouseLeave, AddressOf newCont_MouseLeave
    42. '############Hier tritt der Fehler auf############
    43. tabCtrl.TabPages(n).Controls.Add(newCont)
    44. tabCtrl.TabPages(n).Controls.Add(newLab)
    46. If startX < 240 Then
    47. startX = startX + 60
    48. Else
    49. startX = 0
    50. startY = startY + 75
    51. End If
    52. If startY >= Me.Height - 80 Then
    53. Me.Height = Me.Height + 75
    54. tabCtrl.Height = tabCtrl.Height + 75
    55. End If
    56. count += 1
    57. Next
    58. Next
    59. Catch ex As Exception
    60. MsgBox(ex.Message)
    61. End Try
    62. End Sub


    Dabei ist "newCont" eine PictureBox und "newLab" ein Label.
    "n" ist einfach nur ein String der den Namen der TabPage enthält.

    Beim Versuch die Controls hinzuzufügen bekomme ich aber die Meldung dass tabCtrl.TabPages(n) Nothing ist.

    Bei meiner vorherigen Methode die TabPages und die zugehörigen Controls hinzuzufügen hatte ich keine Probleme(folgender Sub in Schleife aufgerufen):

    VB.NET-Quellcode

    1. ​Public Sub AddControls(ByVal text As String, ByVal thumbs As List(Of String), ByVal links As List(Of String), ByVal name As List(Of String))
    2. 'Add TabControls
    3. Dim count As Integer = 0
    4. Dim startX As Integer = 0
    5. Dim startY As Integer = 0
    6. Dim add As Boolean = True
    7. Dim tb As New TabPage()
    8. tb.Name = text
    9. tb.Text = text
    10. tb.AllowDrop = True
    12. For Each t As TabPage In tabCtrl.TabPages
    13. If t.Name = text Then
    14. add = False
    15. End If
    16. Next
    18. If add = True Then
    19. AddHandler tb.DragEnter, AddressOf tb_DragEnter
    20. AddHandler tb.DragDrop, AddressOf tb_DragDrop
    21. tabCtrl.TabPages.Add(tb)
    22. tabCtrl.TabPages(text).BackColor = Color.White
    23. End If
    25. For Each s As String In thumbs
    26. Dim newCont As New PictureBox()
    27. Dim newLab As New Label()
    28. Dim fs As FileStream
    29. If s = "" Then
    30. fs = New FileStream(path, FileMode.Open, FileAccess.Read)
    31. Else
    32. fs = New FileStream(s, FileMode.Open, FileAccess.Read)
    33. End If
    35. With newCont
    36. .Name = text
    37. .Tag = links(count)
    38. .AccessibleName = name(count)
    39. .BackgroundImage = Image.FromStream(fs)
    40. .BackgroundImageLayout = ImageLayout.Stretch
    41. .Size = New Point(60, 60)
    42. .BorderStyle = BorderStyle.Fixed3D
    43. .Location = New Point(startX, startY + 15)
    45. End With
    46. With newLab
    47. .Tag = links(count)
    48. .Location = New Point(startX, startY)
    49. .Text = name(count)
    50. .Size = New Point(60, 20)
    51. End With
    52. AddHandler newCont.MouseClick, AddressOf newCont_MouseClick
    53. AddHandler newCont.MouseHover, AddressOf newCont_MouseHover
    54. AddHandler newCont.MouseLeave, AddressOf newCont_MouseLeave
    55. ''###########Hier tritt kein Fehler auf##############
    56. tabCtrl.TabPages(text).Controls.Add(newCont)
    57. tabCtrl.TabPages(text).Controls.Add(newLab)
    58. If startX < 240 Then
    59. startX = startX + 60
    60. Else
    61. startX = 0
    62. startY = startY + 75
    63. End If
    64. If startY >= Me.Height - 80 Then
    65. Me.Height = Me.Height + 75
    66. tabCtrl.Height = tabCtrl.Height + 75
    67. End If
    68. count += 1
    69. Next
    70. End Sub


    Verstehe wirklich nicht was das Problem ist..und hoffe mein Beitrag ist nicht zu unübersichtlich.

    Gruß
    nicerdicer

    Willkommen im Forum. :thumbup:

    nicerdicer schrieb:

    VB.NET-Quellcode

    1. ​tabctrl.TabPages.Contains(tb)
    fragt ab, ob die Instanz der TabPage bereits enthalten ist.
    Wenn Du fragen möchtest, ob es eine TabPage mit einem bestimmten Titel da ist, musst Du speziell danach fragen.

    VB.NET-Quellcode

    1. Dim tb As New TabPage()
    erstellt genau eine Instanz einer TabPage, die bei jedem Schleifenumlauf einen neuen Namen und einen neuen Text bekommt.
    Wenn das jedes Mal eine neue TabPage sein soll, musst Du diese Zeile in die For-Schleife hinein nehmen.
    Ich denke, Du musst Dir erst mal etwas Verständnis für Objekte und Instanzen aneignen, dann sollte Dein Problem gelöst sein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!