Hashtable-ing

  • VB.NET

    Hashtable-ing

    Hallo Leute ich habe mal wieder was ganz feines...
    Ich komme an meine Objekte im Hashtable nicht mehr ran...

    Mein Code:

    Quellcode

    1. Public mnuButtonTable As New Hashtable
    2. Public WithEvents mnuBericht1 As MenuItem
    3. Public WithEvents mnuBericht2 As MenuItem
    4. Public WithEvents mnuBericht3 As MenuItem
    5. Public WithEvents mnuBericht4 As MenuItem
    6. Public WithEvents mnuBericht5 As MenuItem
    7. Public WithEvents mnuBericht6 As MenuItem
    8. Public WithEvents mnuBericht7 As MenuItem
    9. Public WithEvents mnuBericht8 As MenuItem
    10. Public WithEvents mnuBericht9 As MenuItem
    11. Public WithEvents mnuBericht10 As MenuItem
    14. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. mnuBericht1 = New MenuItem
    16. mnuBericht2 = New MenuItem
    17. mnuBericht3 = New MenuItem
    18. mnuBericht4 = New MenuItem
    19. mnuBericht5 = New MenuItem
    20. mnuBericht6 = New MenuItem
    21. mnuBericht7 = New MenuItem
    22. mnuBericht8 = New MenuItem
    23. mnuBericht9 = New MenuItem
    24. mnuBericht10 = New MenuItem
    26. mnuButtonTable.Add(mnuBericht1, "Bericht1")
    27. mnuButtonTable.Add(mnuBericht2, "Bericht2")
    28. mnuButtonTable.Add(mnuBericht3, "Bericht3")
    29. mnuButtonTable.Add(mnuBericht4, "Bericht4")
    30. mnuButtonTable.Add(mnuBericht5, "Bericht5")
    31. mnuButtonTable.Add(mnuBericht6, "Bericht6")
    32. mnuButtonTable.Add(mnuBericht7, "Bericht7")
    33. mnuButtonTable.Add(mnuBericht8, "Bericht8")
    34. mnuButtonTable.Add(mnuBericht9, "Bericht9")
    35. mnuButtonTable.Add(mnuBericht10, "Bericht10")
    36. End Sub
    38. Public Sub GetReports(ByVal Pfad As String, ByVal Hash As Hashtable, ByVal Parent As MenuItem)
    39. Dim Folders() As String
    40. Dim Folder As String
    41. Dim i As Integer
    42. Folders = IO.Directory.GetFiles(Pfad)
    43. For Each Folder In Folders
    44. If Strings.Right(Folder, 4) = ".rpd" Then
    45. Dim colGengo As DictionaryEntry
    47. i += 1
    48. ' = Replace(Folder, Pfad, "")
    49. 'Parent.MenuItems.Add(colGengo)
    50. For Each colGengo In Hash
    51. '......
    52. Next
    53. End If
    54. Next
    55. End Sub


    So und Hier will ich an das Object 'mnuBericht' & i dran... und dieses Object einem Controll adden... könnt ihr mit helfen?

    Oder habt ihr eine bessere Idee?

Facebook
Telefonspende