MainWindow.xaml.vb

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports DevExpress.Xpf.Grid

Namespace WpfApplication21
    ''' <summary>
    ''' Interaction logic for MainWindow.xaml
    ''' </summary>
    Partial Public Class MainWindow
        Inherits Window

        Public Sub New()
            InitializeComponent()
        End Sub

        Private employees_Renamed As List(Of Employee)
        Private ReadOnly Property Employees() As List(Of Employee)
            Get
                If employees_Renamed Is Nothing Then
                    PopulateEmployees()
                End If
                Return employees_Renamed

            End Get
        End Property
        Private Sub PopulateEmployees()
            employees_Renamed = New List(Of Employee)()
            employees_Renamed.Add(New Employee("Bruce", "Cambell", "Sales Manager", "Education includes a BA in psychology from Colorado State University in 1970.  He also completed 'The Art of the Cold Call.'  Bruce is a member of Toastmasters International."))
            employees_Renamed(0).Orders.Add(New Order("Supplier 1", Date.Now, "TV", 20))
            employees_Renamed(0).Orders.Add(New Order("Supplier 2", Date.Now.AddDays(3), "Projector", 15))
            employees_Renamed(0).Orders.Add(New Order("Supplier 3", Date.Now.AddDays(3), "HDMI Cable", 50))
            employees_Renamed.Add(New Employee("Cindy", "Haneline", "Vice President of Sales", "Cindy received her BTS commercial in 1974 and a Ph.D. in international marketing from the University of Dallas in 1981.  She is fluent in French and Italian and reads German.  She joined the company as a sales representative, was promoted to sales manager in January 1992 and to vice president of sales in March 1993.  Cindy is a member of the Sales Management Roundtable, the Seattle Chamber of Commerce, and the Pacific Rim Importers Association."))
            employees_Renamed(1).Orders.Add(New Order("Supplier 1", Date.Now.AddDays(1), "Blu-Ray Player", 10))
            employees_Renamed(1).Orders.Add(New Order("Supplier 2", Date.Now.AddDays(1), "Blu-Ray Player", 10))
            employees_Renamed(1).Orders.Add(New Order("Supplier 3", Date.Now.AddDays(1), "Blu-Ray Player", 10))
            employees_Renamed(1).Orders.Add(New Order("Supplier 4", Date.Now.AddDays(1), "Blu-Ray Player", 10))
            employees_Renamed.Add(New Employee("Jack", "Lee", "Sales Manager", "Education includes a BA in psychology from Colorado State University in 1970.  He also completed 'The Art of the Cold Call.'  Jack is a member of Toastmasters International."))
            employees_Renamed(2).Orders.Add(New Order("Supplier 1", Date.Now, "AV Receiver", 20))
            employees_Renamed(2).Orders.Add(New Order("Supplier 2", Date.Now.AddDays(3), "Projector", 15))
            employees_Renamed.Add(New Employee("Cindy", "Johnson", "Vice President of Sales", "Cindy received her BTS commercial in 1974 and a Ph.D. in international marketing from the University of Dallas in 1981.  She is fluent in French and Italian and reads German.  She joined the company as a sales representative, was promoted to sales manager in January 1992 and to vice president of sales in March 1993.  Cindy is a member of the Sales Management Roundtable, the Seattle Chamber of Commerce, and the Pacific Rim Importers Association."))
        End Sub

        Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
            gridControl1.ItemsSource = Employees

        End Sub

        #Region "#MasterRowExpanded"
        Private Sub TableView_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
            Dim view As TableView = TryCast(sender, TableView)

            ' Avoid key processing when focus is within detail views
            ' or when a groupo row is focused
            If Not view.IsFocusedView OrElse view.FocusedRowHandle < 0 Then
                Return
            End If

            ' Process CTRL+* key combination
            If e.Key = Key.Multiply AndAlso ((Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control) Then
                Dim finalExpandedState As Boolean = Not view.Grid.IsMasterRowExpanded(view.FocusedRowHandle)
                view.Grid.SetMasterRowExpanded(view.FocusedRowHandle, finalExpandedState)
                e.Handled = True
            End If
        End Sub
        #End Region ' #MasterRowExpanded

        #Region "#ExpandCollapse"
        Private Sub buttonExpandAll_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            For i As Integer = 0 To gridControl1.VisibleRowCount - 1
                Dim rowHandle = gridControl1.GetRowHandleByVisibleIndex(i)
                gridControl1.ExpandMasterRow(rowHandle)
            Next i
        End Sub
        Private Sub buttonCollapseAllButThis_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            If tableView1.FocusedRowHandle >= 0 Then
                gridControl1.ExpandMasterRow(tableView1.FocusedRowHandle)
            End If
            For i As Integer = 0 To gridControl1.VisibleRowCount - 1
                Dim rowHandle As Integer = gridControl1.GetRowHandleByVisibleIndex(i)
                If rowHandle <> tableView1.FocusedRowHandle Then
                    gridControl1.CollapseMasterRow(rowHandle)
                End If
            Next i
        End Sub
        #End Region ' #ExpandCollapse
    End Class

    Public Class Employee

        Private firstName_Renamed As String

        Private lastName_Renamed As String

        Private title_Renamed As String

        Private notes_Renamed As String

        Private orders_Renamed As List(Of Order)
        Public Sub New(ByVal firstName As String, ByVal lastName As String, ByVal title As String, ByVal notes As String)
            Me.firstName_Renamed = firstName
            Me.lastName_Renamed = lastName
            Me.title_Renamed = title
            Me.notes_Renamed = notes
            Me.orders_Renamed = New List(Of Order)()
        End Sub
        Public Sub New()
        End Sub
        Public Property FirstName() As String
            Get
                Return firstName_Renamed
            End Get
            Set(ByVal value As String)
                firstName_Renamed = value
            End Set
        End Property
        Public Property LastName() As String
            Get
                Return lastName_Renamed
            End Get
            Set(ByVal value As String)
                lastName_Renamed = value
            End Set
        End Property
        Public Property Title() As String
            Get
                Return title_Renamed
            End Get
            Set(ByVal value As String)
                title_Renamed = value
            End Set
        End Property
        Public Property Notes() As String
            Get
                Return notes_Renamed
            End Get
            Set(ByVal value As String)
                notes_Renamed = value
            End Set
        End Property
        Public ReadOnly Property Orders() As List(Of Order)
            Get
                Return orders_Renamed
            End Get
        End Property
    End Class

    Public Class Order

        Private supplier_Renamed As String

        Private date_Renamed As Date

        Private productName_Renamed As String

        Private quantity_Renamed As Integer
        Public Sub New(ByVal supplier As String, ByVal [date] As Date, ByVal productName As String, ByVal quantity As Integer)
            Me.supplier_Renamed = supplier
            Me.date_Renamed = [date]
            Me.productName_Renamed = productName
            Me.quantity_Renamed = quantity
        End Sub
        Public Property Supplier() As String
            Get
                Return supplier_Renamed
            End Get
            Set(ByVal value As String)
                supplier_Renamed = value
            End Set
        End Property
        Public Property [Date]() As Date
            Get
                Return date_Renamed
            End Get
            Set(ByVal value As Date)
                date_Renamed = value
            End Set
        End Property
        Public Property ProductName() As String
            Get
                Return productName_Renamed
            End Get
            Set(ByVal value As String)
                productName_Renamed = value
            End Set
        End Property
        Public Property Quantity() As Integer
            Get
                Return quantity_Renamed
            End Get
            Set(ByVal value As Integer)
                quantity_Renamed = value
            End Set
        End Property
    End Class

End Namespace