Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Data
Imports DevExpress.Xpf.Editors
Namespace DockingDemo
Partial Public Class ClosedPanels
Inherits DockingDemoModule
Public Sub New()
InitializeComponent()
AddHandler dockManager.Loaded, AddressOf dockManager_Loaded
End Sub
Private Sub dockManager_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
Dim closePanelPositionBinding As New Binding("ClosedPanelsBarPosition")
closePanelPositionBinding.Source = dockManager
closePanelPositionBinding.Mode = BindingMode.TwoWay
closePanelPositionBinding.Converter = New DockContainerConverter()
expandModeListBox.SetBinding(ListBoxEdit.SelectedItemProperty, closePanelPositionBinding)
expandModeListBox.SelectedIndex = 3
End Sub
End Class
End Namespace