Buttons mit Links hinterlegen aus XMLFile

  • VB.NET

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

    Mein Wissensstand hört kurz nach "Hello World" MSGbox auf. Wie soll ich da deine Fragen beantworten und deine Begriffe verstehen? Würde ich Google nicht seit Tagen durchsuchen und dort nichts finden, dann bräuchte ich hier nicht fragen. Wozu soll das Forum denn sonst da sein, wenn nicht zum Fragen?

    schreib einfach mal DeinButton. und siehe da es Das Studio schlägt dir Dinge wie DeinButton.Height und DeinButton.Width vor. So und jetzt such dir aus was du benötigst.
    Wenn dein Wissen nach "Hello World" schon endet dann fehlt dir weit mehr wissen als den Text eines Button's zur Laufzeit zu ändern.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

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

    Nehmt es mir nicht übel, aber wenn nicht so eine Antwort wie von Rod kommt, dann bringt es mich nicht weiter. Was ich machen will, habe ich mehrfach beschrieben. Ich brauche eine Lösung wie:

    eine Form, einen Button einfügen, diesen Code in die Form, diesen in die XML Datei und fertig. Den text kann ich dann über die XML steuern. Dann kann ich mir das für andere Objekte selber zusammen reimen.

    Du hast hier schon alles nötige Wissen, den Rest musst du dir nur

    Doener schrieb:

    zusammen reimen.


    Du weißt, wie du die Beschriftung von Button veränderst. Du weißt, wie du die Links aufrufst. Du weißt, wie du die Links aus der XML rausholst. Rod hat dir alles schon vorgeturnt. Den Rest musst du nur kombinieren.

    Das Problem ist du liest NICHT. Die Lösung steht mehrfach schon hier drin. DU hast deinen Text ja schon aus der XML in zerlegter Form soweit ich das sehen kann.
    So und jetzt Änderst du die Text - Eigenschaft des Buttons in den Text den du aus der XML Datei hast. Ein ToolstripmenuItem hat komischerweise eine .Text Eigenschaft.
    Wie wird diese bei einem Button dann heißen?

    Dir gefällt RoD nur weil er dir eine Codezeile hingeklatscht hat die du blind in deinen Code kopieren kannst ohne zu lernen....
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Der Code von mir funktioniert aber leider nicht. Und ich weiß daher nicht, wo der Fehler liegt, daher kann ich eure Tipps nicht testen oder ausprobieren. Es bringt mir im Moment nichts wo ein.TextEigeschaft dran zu hängen,weil es davor schon klemmt


    Quellcode

    1. Imports System.Xml
    3. Public Class Form1
    5. Private Function GetMenus() As XmlDocument
    7. Dim xxml As XmlDocument = New XmlDocument()
    9. xxml.Load("test.xml")
    11. Return xxml
    13. End Function
    15. Public Class DynamicMenuSubs
    17. Public Sub Menu1A()
    19. Debug.Print("Called Menu1A")
    21. End Sub
    23. Public Sub Menu1B()
    25. Debug.Print("Called Menu1B")
    27. End Sub
    29. Public Sub Menu1C()
    31. Debug.Print("Called Menu1C")
    33. End Sub
    35. Public Sub Menu2()
    37. Debug.Print("Called Menu2")
    39. End Sub
    41. Public Sub Menu3A()
    43. Debug.Print("Called Menu3A")
    45. End Sub
    47. Public Sub Menu3B()
    49. Debug.Print("Called Menu3B")
    51. End Sub
    53. End Class
    55. Private Sub BuildMenus()
    57. Dim xxml As XmlDocument = GetMenus()
    59. Dim toplevels As XmlNodeList = xxml.SelectNodes("Menus/TopLevel")
    61. Dim node As XmlNode
    63. For Each node In toplevels
    65. Dim tsmi As New ToolStripMenuItem
    67. tsmi.Text = node.Attributes("text").Value
    69. Dim sublevels As XmlNodeList = node.SelectNodes("NextLevel")
    71. If sublevels.Count = 0 Then
    73. tsmi.Tag = node.InnerText
    75. AddHandler tsmi.Click, AddressOf DynamicMenuHandler
    77. Else
    79. Dim subnode As XmlNode
    81. For Each subnode In sublevels
    83. Dim ddi As New ToolStripMenuItem
    85. ddi.Text = subnode.Attributes("text").Value
    87. ddi.Tag = subnode.InnerText
    89. AddHandler ddi.Click, AddressOf DynamicMenuHandler
    91. tsmi.DropDownItems.Add(ddi)
    93. Next
    95. End If
    97. MenuStrip1.Items.Add(tsmi)
    99. Next
    101. End Sub
    103. Private Sub DynamicMenuHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
    105. Dim s1 As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    107. If s1.Tag.ToString.Length > 0 Then
    109. Dim SubType As System.Type = GetType(DynamicMenuSubs)
    111. Dim SubInfo As System.Reflection.MethodInfo = SubType.GetMethod(s1.Tag.ToString())
    113. Dim SubController As New DynamicMenuSubs
    115. SubInfo.Invoke(SubController, Nothing)
    117. End If
    119. End Sub
    121. End Class


    Die Eingenschaft .Text! Also btn.Text .... nicht btn.TextEigenschaft
    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."

    Was generell interessant wäre:
    - existieren die Buttons bereits im Designer oder werden diese im Code generiert?

    Falls dieser bereits im Designer hinzugefügt wurde brauchst du nur den Wert aus dem XML-File (was ich mitbekommen habe lest du diesen ja bereits aus) der Text-Eigenschaft deines Buttons hinzufügen. Um dann anschließend mit dem Button was zu machen (in deinem Fall einen Link zu öffnen) hast du bereits das richtige Event oben gefunden (das Click Event wird dir standardmässig generiert wenn du den Button doppelklickst).

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

    Ich fasse mal zusammen:

    Der Code von Rod geht, aber nur bei Verwendung von einer TXT Datei. Mir ist es sogar gelungen, dies für jedes Element zu übernehmen, also Button, menü etc.
    Ich möchte das ganze nun in Form von XML machen - da kann ich mir nicht so recht den Übergang von der TXT zu XML herleiten
    Mein gesposteter Code klemmt nirgends - das ist ja mein Problem. VB zeigt keinen Fehler an und startet das Programm - aber der Button bleibt ohne Text

    1. hast du durch dein wildes zusammenkopieren jetzt 121 Zeilen Müll angesammelt und weißt nicht mehr was dein Code eigentlich macht.
    2. geht dein Vorhaben eigentlich weit kürzer
    3. mehrere Teilaufgaben = XML einlesen und notwendige Texte rausfiltern, Beim Laden (form_load) der Anwendung die Button's mit dem Text der XML ausstatten, Beim klick eines Buttons eine Webseite öffnen
    4. ich an deiner Stelle würde neu Anfangen oder gleich mal so das ich mich Informiere über : Klassen, Events, Variablen, Funktionen, usw,..... Grundlagen eben.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Ja, das stimmt. Ich habe viel kopiert, bin auch kein Programmierer. Leider ist das "Programm" insgesamt schon über 1 MB an Code groß, so das ich nicht neu anfangen kann - nur weil ich eine neue Anforderung neu hinzugekommen ist. Wenn mein Vorhaben auch viel einfacher geht, dann bitte ich darum, es mir zu zeigen wie.

    mehrere Teilaufgaben = XML einlesen und notwendige Texte rausfiltern, Beim Laden (form_load) der Anwendung die Button's mit dem Text der XML ausstatten, Beim klick eines Buttons eine Webseite öffnen

    genau das möchte ich