Hallo zusammen,
ich bin absoluter Programmierneuling und erhoffe mir Hilfe in Eurem Forum. Hab jetzt ein Fernstudium zum VB-Programmierer beendet und im Betrieb ein erstes Projekt bekommen.
Dafür habe ich in der XAML eine Reihe Checkboxen und möchte beim "checken" einer Box in einem DockPanel einen Button erzeugen. Das klappt auch schon ganz gut (habe jeder Box in XAML das Checked bzw. Unchecked-Ereignis mitgegeben). Weiterhin sollte es eine Möglichkeit geben, die Button zu versetzen. Die Idee ist, dass ich 2 weitere Button IN den jeweiligen Hauptbutton erzeuge und damit die Hauptbutton um eine Position nach links bzw. rechts versetze, also quasi die Position in der Liste verschiebe. Es gibt über die XAML auch die Möglichkeit einen Button in den Button zu legen. Leider weiss ich keine Möglichkeit, das im Code-Behind zu integrieren.
Bisher habe ich das soweit (beim checken bzw. unchecken wird String-Liste erneuert und die Button erstellt)
ich bin absoluter Programmierneuling und erhoffe mir Hilfe in Eurem Forum. Hab jetzt ein Fernstudium zum VB-Programmierer beendet und im Betrieb ein erstes Projekt bekommen.
Dafür habe ich in der XAML eine Reihe Checkboxen und möchte beim "checken" einer Box in einem DockPanel einen Button erzeugen. Das klappt auch schon ganz gut (habe jeder Box in XAML das Checked bzw. Unchecked-Ereignis mitgegeben). Weiterhin sollte es eine Möglichkeit geben, die Button zu versetzen. Die Idee ist, dass ich 2 weitere Button IN den jeweiligen Hauptbutton erzeuge und damit die Hauptbutton um eine Position nach links bzw. rechts versetze, also quasi die Position in der Liste verschiebe. Es gibt über die XAML auch die Möglichkeit einen Button in den Button zu legen. Leider weiss ich keine Möglichkeit, das im Code-Behind zu integrieren.
Bisher habe ich das soweit (beim checken bzw. unchecken wird String-Liste erneuert und die Button erstellt)
VB.NET-Quellcode
- Class MainWindow
- Private ProductList As List(Of String) = New List(Of String)
- Private zProduct As String = 2
- Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
- Dim First, Last As String
- First = "Startrodukt"
- Last = "Endprodukt"
- ProductList.Add(First)
- ProductList.Add(Last)
- ButtonErzeugen()
- End Sub
- Private Sub ChbProduct_Checked(sender As Object, e As RoutedEventArgs)
- Dim NewProduct As String
- NewProduct = sender.Content
- ProductList.Insert(zProduct - 1, NewProduct)
- zProduct += 1
- ButtonErzeugen()
- End Sub
- Private Sub ChbProduct_Unchecked(sender As Object, e As RoutedEventArgs)
- Dim DelProduct As String
- DelProduct = sender.Content
- ProductList.Remove(DelProduct)
- zProduct -= 1
- ButtonErzeugen()
- End Sub
- Private Sub ButtonErzeugen()
- DokPnlProducts.Children.Clear()
- For i = 0 To ProductList.Count - 1
- Dim NewProdBtn As Button = New Button
- With NewProdBtn
- .Name = ProductList(i).ToString
- .Content = ProductList(i).ToString
- .Width = 133
- .Height = 100
- .HorizontalAlignment = HorizontalAlignment.Left
- .VerticalAlignment = VerticalAlignment.Top
- End With
- DokPnlProducts.Children.Add(NewProdBtn)
- Next
- End Sub
- End Class