Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/GridDemo.Wpf/Modules/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/GridDemo.Wpf/Modules/NewItemRow.xaml.vb

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

Namespace GridDemo
 Partial Public Class NewItemRow
	 Inherits GridDemoModule
		Private newRowID As Integer = 10000
  Public Sub New()
   InitializeComponent()

			grid.ItemsSource = (CType(Resources("NWindDataLoader"), NWindDataLoader)).OrderDetailsNew
  End Sub

		Protected Overrides Sub RaiseModuleAppear()
			MyBase.RaiseModuleAppear()
			view.ScrollIntoView(view.FocusedRowHandle)
		End Sub
  Private Sub view_InitNewRow(ByVal sender As Object, ByVal e As DevExpress.Xpf.Grid.InitNewRowEventArgs)
   grid.SetCellValue(e.RowHandle, colQuantity, 1)
			grid.SetCellValue(e.RowHandle, colUnitPrice, 100)
			grid.SetCellValue(e.RowHandle, colDiscount, 0)
			grid.SetCellValue(e.RowHandle, colOrderID, newRowID)
			newRowID += 1
  End Sub
		Private Sub newItemRowPositionChanged(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
			If view.NewItemRowPosition <> NewItemRowPosition.None Then
				view.FocusedRowHandle = GridControl.NewItemRowHandle
				view.ScrollIntoView(view.FocusedRowHandle)
			End If
		End Sub
 End Class
End Namespace