This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
71 lines (58 loc) · 2.38 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Namespace KeepSelection
Partial Public Class Form1
Inherits Form
Private helper As KeepSelectionHelper
Private Function CreateTable(ByVal RowCount As Integer) As DataTable
Dim tbl As New DataTable()
tbl.Columns.Add("Name", GetType(String))
tbl.Columns.Add("ID", GetType(Integer))
tbl.Columns.Add("Number", GetType(Integer))
tbl.Columns.Add("Date", GetType(DateTime))
For i As Integer = 0 To RowCount - 1
tbl.Rows.Add(New Object() { String.Format("Name{0}", i), i, 3 - i, DateTime.Now.AddDays(i) })
Next i
Return tbl
End Function
Public Sub New()
InitializeComponent()
gridControl1.DataSource = CreateTable(6)
helper = New KeepSelectionHelper(gridView1)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
End Sub
Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton1.Click
gridView1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.RowSelect
helper.UpdateSelectionMode()
gridView1.ClearSelection()
gridView1.SelectRow(0)
gridView1.SelectRow(2)
gridView1.SelectRow(4)
End Sub
Private Sub checkButton1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles checkButton1.CheckedChanged
If helper IsNot Nothing Then
helper.KeepSelectedOnClick = checkButton1.Checked
End If
End Sub
Private Sub simpleButton2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton2.Click
gridView1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
helper.UpdateSelectionMode()
gridView1.ClearSelection()
gridView1.SelectCell(0, gridView1.VisibleColumns(0))
gridView1.SelectCell(1, gridView1.VisibleColumns(1))
gridView1.SelectCell(2, gridView1.VisibleColumns(2))
gridView1.SelectCell(3, gridView1.VisibleColumns(3))
gridView1.SelectCell(2, gridView1.VisibleColumns(0))
gridView1.SelectCell(3, gridView1.VisibleColumns(1))
gridView1.SelectCell(4, gridView1.VisibleColumns(2))
gridView1.SelectCell(5, gridView1.VisibleColumns(3))
End Sub
End Class
End Namespace