Meerdere buttons met shortcut?

[Tannasg]

Ik zou na afloop je XML bestand leeg gooien, maar misschien wil je dat helemaal niet?

 

[Dummy1912]

Nee dat willen we zeker niet
is de bedoeling dat deze blijven staan in de xml

zodat de users ze kunnen gebruiken als een soort desktop maar dan met hun eigen favorieten bestanden.

Dummy1912

 

[Dummy1912]

ok heb even wat testen gedaan om ervoor te zorgen dat ze naast elkaar komen te staan
ik heb met een loop gewerkt maar het probleem is ik krijg telkens 2x de zelfde buttons

zie bijlage

dit is de code:

        Dim retVal As Boolean = False
        Dim xTR As New System.Xml.XmlTextReader(path)
        Dim intLoop As Integer
        Dim y As Integer = 15
        Dim x As Integer = 0

        Try
            With xTR
                Do While .Read()

                    If .NodeType = Xml.XmlNodeType.Text Then

                        Dim fInfo As System.IO.FileInfo = New System.IO.FileInfo(.Value)
                        
                        For intLoop = 0 To 1

                            ' Create button and set its width
                            Dim newbutton As New Button
                            newbutton.Width = 80
                            newbutton.Height = 20

                            ' If we have hit 4 buttons, adjust the y value by adding 10 onto the controls height
                            ' Reset x back to 0
                            If intLoop Mod 4 = 0 Then
                                ' This gives us a 10 pixel buffer below each row of buttons
                                y += newbutton.Height + 10
                                x = 0
                            End If

                            ' Set the text and set its top and left based on its dimensions and count
                            newbutton.Text = fInfo.FullName
                            newbutton.Top = y
                            newbutton.AutoSize = True
                            ' This gives us a 5 pixel right buffer between buttons
                            newbutton.Left = 26 + (x * (newbutton.Width + 5))
                            x += 2
                            Me.Controls.Add(newbutton)
                            AddHandler newbutton.Click, AddressOf OpenFile
                        Next

Iemand een idee?
ik krijg ze niet goed

Dummy1912

 

[Dummy1912]

gevonden

        For Each b In buttons
            Me.Controls.Remove(b)
        Next
        buttons = New List(Of Button)
        Dim _File As XElement = XElement.Load("log/log.xml")
        Dim _Element = From c In _File.Elements("File") Select c
        Dim strings = New List(Of String)
        For Each e In _Element
            strings.Add(e.Value)
        Next
        Dim counter = 1
        Dim x = 10 + o
        Dim y = 10
        For Each s In strings
            If counter Mod 6 = 0 Then
                counter = 1
                x = 10 + o
                y += 150
            End If
            Dim b As New Button()
            b.Text = System.IO.Path.GetFileName(s)
            b.Tag = s
            b.Width = 130 '100
            b.Height = 130 '30
            b.Top = x
            b.Left = y
            b.BackColor = Color.GreenYellow
            x += 150
            counter += 1
            AddHandler b.Click, AddressOf OpenFile
            buttons.add(b)
            Me.Controls.Add(b)
        Next
        o += 5

heb wel even volledig moeten aanpassen met de xml wordt direct aangmaakt vanuit de prog zelf.

nog een vraagje iemand die weet
of het mogelijk is om een nieuwe item in de xml te voegen zodat ik de buttons apart een andere naam kan geven
en eventueel een eigen kleur

zodat als de buttons worden geladen dat ze hun eigen naam krijgen en de kleur die ik heb opgegeven?

Dummy1912