Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Windows
Imports GridDemo
Imports System.Collections
Imports System.Globalization
Imports DevExpress.Data
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.Grid
Imports DevExpress.Xpf.Editors.Settings
Imports DevExpress.Xpf.Editors
Imports System.Data

Namespace GridDemo
	Partial Public Class CellsSelection
		Inherits GridDemoModule
		Public Sub New()
			InitializeComponent()
			AssignDataSource()

			SelectCells()
		End Sub

		Private Sub SelectCells()
			grid.BeginSelection()
			Dim selectedCells(,) As Integer = { {0, 1}, {1, 1}, {2, 1}, {3, 1}, {4, 1}, {5, 1}, {6, 1}, {7, 1}, {6, 1},{6, 1}, {7, 1}, {8, 1}, {9, 1}, {10, 1}, {0, 2}, {1, 2}, {2, 2}, {8, 2}, {9, 2}, {10, 2}, {2, 3}, {3, 3}, {4, 3}, {5, 3}, {6, 3}, {7, 3}, {8, 3}, {12, 1}, {13, 1}, {14, 1}, {15, 1}, {19, 1}, {20, 1}, {21, 1}, {22, 1}, {14, 2}, {15, 2}, {16, 2}, {17, 2}, {18, 2}, {19, 2}, {20, 2}, {12, 3}, {13, 3}, {14, 3}, {15, 3}, {19, 3}, {20, 3}, {21, 3}, {22, 3} }
			For i As Integer = 0 To selectedCells.GetLength(0) - 1
				view.SelectCell(selectedCells(i, 0), view.VisibleColumns(selectedCells(i, 1)))
			Next i
			grid.EndSelection()
		End Sub

		Private Sub AssignDataSource()
			grid.ItemsSource = SalesByYearData.GetSalesByYearData()
			grid.Columns("Date").Visible = False
			grid.Columns("Date").ShowInColumnChooser = False
			For Each column As GridColumn In view.VisibleColumns
				grid.TotalSummary.Add(New GridSummaryItem() With {.FieldName = column.FieldName, .SummaryType = DevExpress.Data.SummaryItemType.Custom, .DisplayFormat = "${0:N}"})
				column.EditSettings = New SpinEditSettings() With {.MaskType = MaskType.Numeric, .MaskUseAsDisplayFormat = True, .Mask = "c", .MaskCulture = New CultureInfo("en-US")}
			Next column
		End Sub

		Private sum As Integer = 0
		Private Sub grid_CustomSummary(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs)
			If Object.Equals(e.SummaryProcess, CustomSummaryProcess.Start) Then
				sum = 0
			End If
			If e.SummaryProcess = CustomSummaryProcess.Calculate Then
				If grid.View IsNot Nothing Then
					If (Not checkEdit.IsChecked.Value) OrElse view.IsCellSelected(e.RowHandle, grid.Columns((CType(e.Item, GridSummaryItem)).FieldName)) Then
						If e.FieldValue IsNot DBNull.Value AndAlso e.FieldValue IsNot Nothing Then
							sum += CInt(Fix(e.FieldValue))
						End If
					End If
				End If
			End If
			If e.SummaryProcess = CustomSummaryProcess.Finalize Then
				e.TotalValue = sum
			End If
		End Sub

		Private Sub TableView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Xpf.Grid.GridSelectionChangedEventArgs)
			grid.UpdateTotalSummary()
		End Sub

		Private Sub CheckEdit_EditValueChanged(ByVal sender As Object, ByVal e As DevExpress.Xpf.Editors.EditValueChangedEventArgs)
			grid.UpdateTotalSummary()
		End Sub

		Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
			SelectCells(True)
		End Sub
		Private Sub Button_Click_1(ByVal sender As Object, ByVal e As RoutedEventArgs)
			SelectCells(False)
		End Sub

		Private Sub SelectCells(ByVal shouldSelectTopValues As Boolean)
			Dim list As New List(Of KeyValuePair(Of GridCell, Integer))()
			For i As Integer = 0 To grid.VisibleRowCount - 1
				For j As Integer = 0 To view.VisibleColumns.Count - 1
					list.Add(New KeyValuePair(Of GridCell, Integer)(New GridCell(i, view.VisibleColumns(j)), CInt(Fix(grid.GetCellValue(i, view.VisibleColumns(j))))))
				Next j
			Next i
			list.Sort(Function(x As KeyValuePair(Of GridCell, Integer), y As KeyValuePair(Of GridCell, Integer)) Compare(x, y, shouldSelectTopValues))

			grid.BeginSelection()
			view.DataControl.UnselectAll()
			For i As Integer = 0 To Math.Min(20, list.Count) - 1
				view.SelectCell(list(list.Count - i - 1).Key.RowHandle, list(list.Count - i - 1).Key.Column)
			Next i
			grid.EndSelection()
		End Sub

		Private Shared Function Compare(ByVal x As KeyValuePair(Of GridCell, Integer), ByVal y As KeyValuePair(Of GridCell, Integer), ByVal shouldSelectTopValues As Boolean) As Integer
			If shouldSelectTopValues Then
				Return Comparer(Of Integer).Default.Compare(x.Value, y.Value)
			Else
				Return Comparer(Of Integer).Default.Compare(y.Value, x.Value)
			End If
		End Function
	End Class
End Namespace