Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports DevExpress.Xpf.Docking
Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.DemoBase
Namespace DockingDemo
Partial Public Class NWindLayout
Inherits DockingDemoModule
Public Sub New()
InitializeComponent()
list.ItemsSource = NWindData.Employees
Dim binding As New Binding("SelectedItem") With {.Source = list}
dockManager.SetBinding(DockLayoutManager.DataContextProperty, binding)
End Sub
Public Overrides ReadOnly Property SupportTouchThemes() As Boolean
Get
Return False
End Get
End Property
End Class
End Namespace