WPF TreeView

  • WPF

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von GOKTerek.

    WPF TreeView

    Hallo Liebe Gemeinde,

    ich habe ein kleines Problem mit meinem Treeview control. undzwar möchte ich das Image bei einem Expandierten Node ändern. Leider funktioniort das nicht. Bzw. schon nach einem Refresh, nur sind dann alle Nodes collapsed.

    Anbei mein XAML Code.

    Spoiler anzeigen

    XML-Quellcode

    1. <Page
    2. xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    3. xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    4. xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    5. xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    6. xmlns:local="clr-namespace:SWPDM_EnterPrise_Functions_001"
    7. xmlns:System="clr-namespace:System;assembly=mscorlib" x:Class="Folder_Selection"
    8. mc:Ignorable="d"
    9. d:DesignHeight="450" d:DesignWidth="800">
    11. <Page.Resources>
    12. <ResourceDictionary>
    13. <ResourceDictionary.MergedDictionaries>
    14. <ResourceDictionary Source="GOK_Style_Ressource.xaml"/>
    15. </ResourceDictionary.MergedDictionaries>
    16. </ResourceDictionary>
    17. </Page.Resources>
    19. <Grid>
    20. <DockPanel Background="White">
    21. <DockPanel DockPanel.Dock="Top" Height="42" VerticalAlignment="Top" >
    22. <Border x:Name="Border_01" DockPanel.Dock="Bottom" Background="#FF0162A6" Height="2" Margin="0" VerticalAlignment="Bottom"/>
    23. <TextBox x:Name="TXT_User" Text="User" Width="120" Margin="5,5,0,5" HorizontalAlignment="Left" Style="{StaticResource FontStyle_002}"/>
    24. <TextBox x:Name="TXT_PW" Text="User PW" Width="150" Margin="5,5,0,5" HorizontalAlignment="Left" Style="{StaticResource FontStyle_002}"/>
    25. <Button x:Name="BTN_Refresh_Tabel" Height="30" Width="30" HorizontalAlignment="Left" Margin="5,5,5,5" Style="{StaticResource Button_001}">
    26. <Image x:Name="BTN_Refresh_Tabel_Image" Stretch="Uniform"/>
    27. </Button>
    28. </DockPanel>
    29. <DockPanel DockPanel.Dock="Bottom" Background="#FFFDFDFD">
    30. <DockPanel DockPanel.Dock="Left" Width="Auto" MinWidth="250">
    31. <TreeView x:Name="FolderTreeView" TreeViewItem.Expanded="TreeViewItem_Expanded">
    32. <TreeView.ItemTemplate>
    33. <HierarchicalDataTemplate DataType="{x:Type local:FolderTree}" ItemsSource="{Binding SubItems}">
    34. <StackPanel Orientation="Horizontal" Height="22">
    35. <CheckBox Focusable="False" IsChecked="{Binding Checked}" VerticalAlignment="Center"/>
    36. <Image Name="FolderImage" Width="18" Height="18" Margin="5,0,0,0" Source="{Binding Image}" Stretch="Uniform"/>
    37. <TextBlock Text="{Binding Folder}" Style="{StaticResource FontStyle_004}" Margin="5,0,10,0" VerticalAlignment="Center"/>
    38. </StackPanel>
    39. <HierarchicalDataTemplate.Triggers>
    40. <DataTrigger Binding="{Binding IsExpanded_hnd}" Value="True">
    41. <Setter Property="Image.Source" Value="{Binding OpenImage}" TargetName="FolderImage"/>
    42. </DataTrigger>
    43. </HierarchicalDataTemplate.Triggers>
    44. </HierarchicalDataTemplate>
    45. </TreeView.ItemTemplate>
    46. </TreeView>
    47. </DockPanel>
    48. <DockPanel DockPanel.Dock="Right">
    49. <Grid>
    50. <DataGrid x:Name="DGR_001" Style="{StaticResource DataGridStyle_001}" Grid.Column="0" VirtualizingStackPanel.IsVirtualizing="False" Margin="0,0,1,0" ToolTip="Liste aller Sitzungen" CanUserAddRows="False" CanUserReorderColumns="False"/>
    51. </Grid>
    52. </DockPanel>
    53. </DockPanel>
    54. </DockPanel>
    55. </Grid>
    56. </Page>


    und hier mein VB.Net Code.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Windows.Forms
    4. Imports System.Drawing
    5. Imports EdmLib
    6. Imports System.Windows
    7. Imports System.Windows.Input
    9. Public Class Folder_Selection
    11. Dim Folder_hnd As String = ""
    12. Dim VaultConn As IEdmVault5
    13. Dim SWPDM_MainInstance As Main_Instance = New Main_Instance
    15. Private GOKMF_Main_Instance As New GOK_Main_Functions.Main_Instance
    16. Private GOKMF_Image_Functions As New GOK_Main_Functions.GOK_Image_Functions(GOKMF_Main_Instance)
    18. Dim Get_Files As Boolean = False
    20. Dim FullFolderTree As FolderTree
    22. Public Sub New(ByVal PDM_Server As String, Optional ByVal GetFiles As Boolean = False)
    24. InitializeComponent()
    26. Select Case PDM_Server
    28. Case "GOK_SW_PDM"
    30. Folder_hnd = "C:\SW_PDM\"
    32. Case "GOK_TEST_PDM"
    34. Folder_hnd = "C:\TEST_PDM\"
    36. End Select
    38. SWPDM_MainInstance.GetNewVaultConnection(PDM_Server)
    39. Me.TXT_User.Text = SWPDM_MainInstance.GetCurrentUserName
    41. Get_Files = GetFiles
    43. FullFolderTree = GetFolderTree(Folder_hnd)
    45. Me.FolderTreeView.Items.Add(FullFolderTree)
    46. Me.BTN_Refresh_Tabel_Image.Source = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Reload"), Image))
    48. End Sub
    49. Private Sub FolderTreeView_SelectedItemChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Object)) Handles FolderTreeView.SelectedItemChanged
    51. Dim TempFolderTree As FolderTree = DirectCast(Me.FolderTreeView.SelectedItem, FolderTree)
    53. End Sub
    55. Public Function GetFolderTree(ByVal Main_Folder As String, Optional ByVal PDMImage As Boolean = True) As FolderTree
    57. Dim Returning_FolderTree As FolderTree = New FolderTree
    59. Dim Temp_DirectoryInfo As IO.DirectoryInfo = New IO.DirectoryInfo(Main_Folder)
    61. If PDMImage Then
    62. Returning_FolderTree.Folder = Main_Folder
    63. Returning_FolderTree.FullName = Temp_DirectoryInfo.FullName
    64. Returning_FolderTree.Checked = False
    65. Returning_FolderTree.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("SW_PDM_Icon"), Image))
    66. Returning_FolderTree.OpenImage = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("SW_PDM_Icon"), Image))
    67. Else
    68. Returning_FolderTree.Folder = Temp_DirectoryInfo.Name
    69. Returning_FolderTree.FullName = Temp_DirectoryInfo.FullName
    70. Returning_FolderTree.Checked = False
    71. Returning_FolderTree.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Folder_Closed"), Image))
    72. Returning_FolderTree.OpenImage = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Folder_Open"), Image))
    73. End If
    75. If Get_Files Then
    77. End If
    79. For Each SubFolder As IO.DirectoryInfo In Temp_DirectoryInfo.GetDirectories
    80. Returning_FolderTree.SubItems.Add(GetFolderTree(SubFolder.FullName, False))
    81. Next
    83. Return Returning_FolderTree
    85. End Function
    87. Public Sub TreeViewItem_Expanded(ByVal sender As Object, ByVal e As RoutedEventArgs)
    89. 'TODO: Ändern Bild wenn Treenode is expanded
    91. Dim Item As System.Windows.Controls.TreeViewItem = CType(e.OriginalSource, System.Windows.Controls.TreeViewItem)
    93. If Item.IsExpanded Then
    95. Dim temp As FolderTree = CType(Item.DataContext, FolderTree)
    96. temp.IsExpanded_hnd = Item.IsExpanded
    98. End If
    100. End Sub
    102. End Class
    103. Public Class FolderTree
    105. Public Property Image As System.Windows.Media.Imaging.BitmapImage
    106. Public Property OpenImage As System.Windows.Media.Imaging.BitmapImage
    107. Public Property Folder As String
    108. Public Property FullName As String
    109. Public Property IsExpanded_hnd As Boolean = False
    110. Public Property Checked As Boolean
    111. Public ReadOnly Property SubItems As List(Of FolderTree) = New List(Of FolderTree)()
    113. End Class



    Was mache ich falsch?

    Gruß

    Hallo Liebe Gemeinde,

    habe nun eine Lösung gefunden, bin mir aber nicht sicher ob das so richtig ist. Es funktioniert zumindest.

    Anbei die XAML.

    Spoiler anzeigen

    XML-Quellcode

    1. <Page
    2. xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    3. xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    4. xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    5. xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    6. xmlns:local="clr-namespace:SWPDM_EnterPrise_Functions_001"
    7. xmlns:System="clr-namespace:System;assembly=mscorlib" x:Class="Folder_Selection"
    8. mc:Ignorable="d"
    9. d:DesignHeight="450" d:DesignWidth="800">
    11. <Page.Resources>
    12. <ResourceDictionary>
    13. <ResourceDictionary.MergedDictionaries>
    14. <ResourceDictionary Source="GOK_Style_Ressource.xaml"/>
    15. </ResourceDictionary.MergedDictionaries>
    16. </ResourceDictionary>
    17. </Page.Resources>
    19. <Grid>
    20. <DockPanel Background="White">
    21. <DockPanel DockPanel.Dock="Top" Height="42" VerticalAlignment="Top" >
    22. <Border x:Name="Border_01" DockPanel.Dock="Bottom" Background="#FF0162A6" Height="2" Margin="0" VerticalAlignment="Bottom"/>
    23. <TextBox x:Name="TXT_User" Text="User" Width="120" Margin="5,5,0,5" HorizontalAlignment="Left" Style="{StaticResource FontStyle_002}"/>
    24. <TextBox x:Name="TXT_PW" Text="User PW" Width="150" Margin="5,5,0,5" HorizontalAlignment="Left" Style="{StaticResource FontStyle_002}"/>
    25. <Button x:Name="BTN_Refresh_Tabel" Height="30" Width="30" HorizontalAlignment="Left" Margin="5,5,5,5" Style="{StaticResource Button_001}">
    26. <Image x:Name="BTN_Refresh_Tabel_Image" Stretch="Uniform"/>
    27. </Button>
    28. <Button x:Name="BTN_Select_All" Height="30" Width="30" HorizontalAlignment="Left" Margin="5,5,5,5" Style="{StaticResource Button_001}">
    29. <Image x:Name="BTN_Select_All_Image" Stretch="Uniform"/>
    30. </Button>
    31. <Button x:Name="BTN_DeSelect_All" Height="30" Width="30" HorizontalAlignment="Left" Margin="5,5,5,5" Style="{StaticResource Button_001}">
    32. <Image x:Name="BTN_DeSelect_All_Image" Stretch="Uniform"/>
    33. </Button>
    34. </DockPanel>
    35. <DockPanel DockPanel.Dock="Bottom" Background="#FFFDFDFD">
    36. <DockPanel DockPanel.Dock="Left" Width="Auto" MinWidth="250">
    37. <TreeView x:Name="FolderTreeView" TreeViewItem.Expanded="TreeViewItem_Expanded" TreeViewItem.Collapsed="TreeViewItem_Expanded" VirtualizingStackPanel.IsVirtualizing="False">
    38. <TreeView.ItemTemplate>
    39. <HierarchicalDataTemplate DataType="{x:Type local:FolderTree}" ItemsSource="{Binding SubItems}">
    40. <StackPanel Orientation="Horizontal" Height="22">
    41. <CheckBox Name="CHKBox" Focusable="False" IsChecked="{Binding Checked}" VerticalAlignment="Center"/>
    42. <Image Name="FolderImage" Width="18" Height="18" Margin="5,0,0,0" Source="{Binding Image}" Stretch="Uniform"/>
    43. <TextBlock Text="{Binding Folder}" Style="{StaticResource FontStyle_004}" Margin="5,0,10,0" VerticalAlignment="Center"/>
    44. </StackPanel>
    45. </HierarchicalDataTemplate>
    46. </TreeView.ItemTemplate>
    47. <TreeView.ItemContainerStyle>
    48. <Style TargetType="{x:Type TreeViewItem}">
    49. <Setter Property="IsExpanded" Value="{Binding IsExpanded_hnd, Mode=TwoWay}" />
    50. </Style>
    51. </TreeView.ItemContainerStyle>
    52. </TreeView>
    53. </DockPanel>
    54. <DockPanel DockPanel.Dock="Right">
    55. <Grid>
    56. <DataGrid x:Name="DGR_001" Style="{StaticResource DataGridStyle_001}" Grid.Column="0" VirtualizingStackPanel.IsVirtualizing="False" Margin="0,0,1,0" ToolTip="Liste aller Sitzungen" CanUserAddRows="False" CanUserReorderColumns="False"/>
    57. </Grid>
    58. </DockPanel>
    59. </DockPanel>
    60. </DockPanel>
    61. </Grid>
    62. </Page>


    und hier der VB.Net code dazu:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Windows.Forms
    4. Imports System.Drawing
    5. Imports EdmLib
    6. Imports System.Windows
    7. Imports System.Windows.Input
    8. Imports System.Windows.Controls
    10. Public Class Folder_Selection
    12. Dim Folder_hnd As String = ""
    13. Dim Datasource As String
    14. Dim VaultConn As IEdmVault5
    15. Dim SWPDM_MainInstance As Main_Instance = New Main_Instance
    17. Dim TreeViewUpdate As Boolean = False
    19. Private GOKMF_Main_Instance As New GOK_Main_Functions.Main_Instance
    20. Private GOKMF_Image_Functions As New GOK_Main_Functions.GOK_Image_Functions(GOKMF_Main_Instance)
    22. Dim Get_Files As Boolean = False
    24. Dim FullFolderTree As FolderTree
    26. Public ServerFolderTable As New DataTable
    28. Public Sub New(ByVal PDM_Server As String, Optional ByVal GetFiles As Boolean = False)
    30. InitializeComponent()
    32. Datasource = PDM_Server
    34. Select Case PDM_Server
    36. Case "GOK_SW_PDM"
    38. Folder_hnd = "C:\GOK_SW_PDM\"
    40. Case "GOK_TEST_PDM"
    42. Folder_hnd = "C:\GOK_TEST_PDM\"
    44. End Select
    46. SWPDM_MainInstance.GetNewVaultConnection(PDM_Server)
    47. Me.TXT_User.Text = SWPDM_MainInstance.GetCurrentUserName
    49. Get_Files = GetFiles
    51. FullFolderTree = GetFolderTree(Folder_hnd)
    53. Me.FolderTreeView.Items.Add(FullFolderTree)
    54. Me.BTN_Refresh_Tabel_Image.Source = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Reload"), System.Drawing.Image))
    55. Me.BTN_Select_All_Image.Source = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Select_All"), System.Drawing.Image))
    57. For Each NewColumn As DataColumn In GetColumns()
    58. ServerFolderTable.Columns.Add(NewColumn)
    59. Next
    61. Me.DGR_001.ItemsSource = ServerFolderTable.DefaultView
    63. End Sub
    64. Public Function GetColumns() As List(Of DataColumn)
    66. Dim DTSClm As New DataColumn("DataSource", System.Type.GetType("System.String"))
    67. Dim FPClm As New DataColumn("FullPath", System.Type.GetType("System.String"))
    68. Dim UserName As New DataColumn("UserName", System.Type.GetType("System.String"))
    69. Dim UserPW As New DataColumn("PDM_PW", System.Type.GetType("System.String"))
    71. Dim ReturningColumnsList As New List(Of DataColumn) From {DTSClm, UserName, UserPW, FPClm}
    73. Return ReturningColumnsList
    75. End Function
    76. Public Sub ChangeColumns()
    78. For Each CLMTemp As DataGridColumn In Me.DGR_001.Columns
    80. If CLMTemp.Header.ToString = "DataSource" Then
    81. CLMTemp.Header = "Quelle"
    82. CLMTemp.DisplayIndex = 0
    83. CLMTemp.Width = 100
    84. ElseIf CLMTemp.Header.ToString = "FullPath" Then
    85. CLMTemp.Header = "Quell Details"
    86. CLMTemp.DisplayIndex = 3
    87. CLMTemp.Width = New DataGridLength(1, DataGridLengthUnitType.Star)
    88. ElseIf CLMTemp.Header.ToString = "UserName" Then
    89. CLMTemp.Header = "User"
    90. CLMTemp.DisplayIndex = 1
    91. CLMTemp.Width = 100
    92. ElseIf CLMTemp.Header.ToString = "PDM_PW" Then
    93. CLMTemp.Header = "User PW"
    94. CLMTemp.DisplayIndex = 2
    95. CLMTemp.Width = 150
    96. End If
    98. Next
    100. End Sub
    101. Public Function GetFolderTree(ByVal Main_Folder As String, Optional ByVal PDMImage As Boolean = True) As FolderTree
    103. Dim Returning_FolderTree As FolderTree = New FolderTree
    105. Dim Temp_DirectoryInfo As IO.DirectoryInfo = New IO.DirectoryInfo(Main_Folder)
    107. If PDMImage Then
    108. Returning_FolderTree.Folder = Main_Folder
    109. Returning_FolderTree.FullName = Temp_DirectoryInfo.FullName
    110. Returning_FolderTree.Checked = False
    111. Returning_FolderTree.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("SW_PDM_Icon"), System.Drawing.Image))
    112. Else
    113. Returning_FolderTree.Folder = Temp_DirectoryInfo.Name
    114. Returning_FolderTree.FullName = Temp_DirectoryInfo.FullName
    115. Returning_FolderTree.Checked = False
    116. Returning_FolderTree.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Folder_Closed"), System.Drawing.Image))
    117. End If
    119. If Get_Files Then
    121. End If
    123. For Each SubFolder As IO.DirectoryInfo In Temp_DirectoryInfo.GetDirectories
    124. Returning_FolderTree.SubItems.Add(GetFolderTree(SubFolder.FullName, False))
    125. Next
    127. Return Returning_FolderTree
    129. End Function
    131. Public Sub TreeViewItem_Expanded(ByVal sender As Object, ByVal e As RoutedEventArgs)
    133. 'TODO: Ändern Bild wenn Treenode is expanded
    135. If TreeViewUpdate = False Then
    137. Dim Item As System.Windows.Controls.TreeViewItem = CType(e.OriginalSource, System.Windows.Controls.TreeViewItem)
    139. If Item.IsExpanded Then
    141. Dim temp As FolderTree = CType(Item.DataContext, FolderTree)
    142. temp.IsExpanded_hnd = Item.IsExpanded
    144. If Not temp.Folder Like "*GOK_SW_PDM*" And Not temp.Folder Like "*C:\GOK_TEST_PDM\*" Then
    145. temp.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Folder_Open"), System.Drawing.Image))
    146. End If
    148. ElseIf Item.IsExpanded = False Then
    150. Dim temp As FolderTree = CType(Item.DataContext, FolderTree)
    151. temp.IsExpanded_hnd = Item.IsExpanded
    153. If Not temp.Folder Like "*GOK_SW_PDM*" Or Not temp.Folder Like "*C:\GOK_TEST_PDM\*" Then
    154. temp.Image = GOKMF_Image_Functions.ConvertImageToImagesource(DirectCast(My.Resources.ResourceManager.GetObject("Folder_Closed"), System.Drawing.Image))
    155. End If
    157. End If
    159. RefreshTreeview()
    161. End If
    163. End Sub
    164. Public Function GetSelectedTreeViewItemParent(ByVal item As TreeViewItem) As ItemsControl
    165. Dim parent As DependencyObject = System.Windows.Media.VisualTreeHelper.GetParent(item)
    167. While Not (TypeOf parent Is TreeViewItem OrElse TypeOf parent Is System.Windows.Controls.TreeView)
    168. parent = System.Windows.Media.VisualTreeHelper.GetParent(parent)
    169. End While
    171. Return TryCast(parent, ItemsControl)
    173. End Function
    174. Private Sub Folder_Selection_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    175. ChangeColumns()
    176. End Sub
    177. Private Sub BTN_Refresh_Tabel_Click(sender As Object, e As RoutedEventArgs) Handles BTN_Refresh_Tabel.Click
    179. ServerFolderTable.Rows.Clear()
    181. For Each SubItem As FolderTree In Me.FolderTreeView.Items
    183. AddnewCheckedFolderTreeItems(SubItem)
    185. Next
    187. End Sub
    188. Private Sub AddnewCheckedFolderTreeItems(ByVal SelectedItem As FolderTree)
    190. If SelectedItem.Checked Then
    192. Dim NewRow As DataRow = ServerFolderTable.NewRow
    194. NewRow.BeginEdit()
    195. NewRow("FullPath") = SelectedItem.FullName
    196. NewRow.EndEdit()
    198. ServerFolderTable.Rows.Add(NewRow)
    200. End If
    202. If Not SelectedItem.SubItems Is Nothing Then
    204. For Each SubItem As FolderTree In SelectedItem.SubItems
    205. AddnewCheckedFolderTreeItems(SubItem)
    206. Next
    208. End If
    210. End Sub
    211. Private Sub BTN_Select_All_Click(sender As Object, e As RoutedEventArgs) Handles BTN_Select_All.Click
    213. Dim SelectedItem As FolderTree = CType(Me.FolderTreeView.SelectedItem, FolderTree)
    215. SelectedItem.Checked = True
    216. CheckkAllSubItems(SelectedItem)
    218. RefreshTreeview()
    220. End Sub
    221. Private Sub CheckkAllSubItems(ByVal SelectedItem As FolderTree)
    223. For Each SubItem As FolderTree In SelectedItem.SubItems
    225. SubItem.Checked = True
    227. If Not SubItem.SubItems Is Nothing Then
    228. CheckkAllSubItems(SubItem)
    229. End If
    231. Next
    233. End Sub
    234. Private Sub RefreshTreeview()
    236. TreeViewUpdate = True
    237. Me.FolderTreeView.Items.Refresh()
    238. Me.FolderTreeView.UpdateLayout()
    239. TreeViewUpdate = False
    241. End Sub
    243. End Class
    244. Public Class FolderTree
    246. Public Property Image As System.Windows.Media.Imaging.BitmapImage
    247. Public Property Folder As String
    248. Public Property FullName As String
    249. Public Property IsExpanded_hnd As Boolean = False
    250. Public Property Checked As Boolean
    251. Public ReadOnly Property SubItems As List(Of FolderTree) = New List(Of FolderTree)()
    253. End Class

Facebook
Telefonspende