Buttons mit Links hinterlegen aus XMLFile

  • VB.NET

Es gibt 51 Antworten in diesem Thema. Der letzte Beitrag () ist von Snaptu.

    Ich hab deinen Code mal Lesbar gemacht.
    So sieht man auch gut warum nix geht.

    Alles unterhab zeile 28 steht außerhalb der Klasse
    Zeilen 3 & 9 öffnen eine neue klasse. Klasse von Zeile 9 wird nie geschlossen

    VB.NET-Quellcode

    1. ​
    2. Imports System.Xml
    3. Public Class Form1
    4. Private Function GetMenus() As XmlDocument
    5. Dim xxml As XmlDocument = New XmlDocument()
    6. xxml.Load("test.xml")
    7. Return xxml
    8. End Function
    9. Public Class DynamicMenuSubs
    10. Public Sub Menu1A()
    11. Debug.Print("Called Menu1A")
    12. End Sub
    13. Public Sub Menu1B()
    14. Debug.Print("Called Menu1B")
    15. End Sub
    16. Public Sub Menu1C()
    17. Debug.Print("Called Menu1C")
    18. End Sub
    19. Public Sub Menu2()
    20. Debug.Print("Called Menu2")
    21. End Sub
    22. Public Sub Menu3A()
    23. Debug.Print("Called Menu3A")
    24. End Sub
    25. Public Sub Menu3B()
    26. Debug.Print("Called Menu3B")
    27. End Sub
    28. End Class
    30. Private Sub BuildMenus()
    31. Dim xxml As XmlDocument = GetMenus()
    32. Dim toplevels As XmlNodeList = xxml.SelectNodes("Menus/TopLevel")
    33. Dim node As XmlNode
    34. For Each node In toplevels
    35. Dim tsmi As New ToolStripMenuItem
    36. tsmi.Text = node.Attributes("text").Value
    37. Dim sublevels As XmlNodeList = node.SelectNodes("NextLevel")
    38. If sublevels.Count = 0 Then
    39. tsmi.Tag = node.InnerText
    40. AddHandler tsmi.Click, AddressOf DynamicMenuHandler
    41. Else
    42. Dim subnode As XmlNode
    43. For Each subnode In sublevels
    44. Dim ddi As New ToolStripMenuItem
    45. ddi.Text = subnode.Attributes("text").Value
    46. ddi.Tag = subnode.InnerText
    47. AddHandler ddi.Click, AddressOf DynamicMenuHandler
    48. tsmi.DropDownItems.Add(ddi)
    49. Next
    50. End If
    51. MenuStrip1.Items.Add(tsmi)
    52. Next
    53. End Sub
    54. Private Sub DynamicMenuHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
    55. Dim s1 As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    56. If s1.Tag.ToString.Length > 0 Then
    57. Dim SubType As System.Type = GetType(DynamicMenuSubs)
    58. Dim SubInfo As System.Reflection.MethodInfo = SubType.GetMethod(s1.Tag.ToString())
    59. Dim SubController As New DynamicMenuSubs
    60. SubInfo.Invoke(SubController, Nothing)
    61. End If
    62. End Sub
    63. End Class
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Zum Lesen von Xml-Dateien könnte dieses MSDN -Tutorial für dich interessant sein:
    support.microsoft.com/kb/307548/de

    Der Code ist zwar in C# geschrieben kannst du jedoch einfach übersetzen lassen -> zB developerfusion.com/tools/convert/vb-to-csharp/

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Den MSDn Link kannte ich schon, aber das ist ja völlig anderer Code...ich glaube auch nicht, das ich einen Fehler gemacht habe, sonst würde VB ja meckern, das der code falsch sei. Es fehlt bestimmt was Keiner eine Idee?

    Dann klingts zwar hart aber dann wird deine Anwendung nichts werden wenn du keinen Schimmer hast was du machst bzw. nicht weißt wie du Fehler findest und sie behebst.
    Lerne die Grundlagen! Du bekommst deine Anwendung sonst nur mit groben gemurks hin.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Ein letzter Tipp noch, vergiss mal das ganze Button Zeugs und UI Kram und nachdem du die Grundlagen gelernt hast versuchst du dir per Konsolenanwendung mal eine XML Datei so auzulesen das du das richtige Ergebnis bekommst.
    Du brauchst am Anfang nicht zwingend eine Oberfläche.....

    Probier z.b. sowas aus und verstehe es -> support.microsoft.com/kb/301228/de
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.