This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
/
Main.vb
49 lines (41 loc) · 1.83 KB
/
Main.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
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.Utils
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.BandedGrid
Namespace DXSample
Partial Public Class Main
Inherits XtraForm
Public Sub New()
InitializeComponent()
End Sub
Private style As AppearanceObject
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
recordBindingSource.DataSource = DataHelper.GetData(10)
style = New AppearanceObject()
style.BackColor = Color.Orange
style.Options.UseBackColor = True
'try different paint styles
'advBandedGridView1.PaintStyleName = "UltraFlat";
End Sub
Private Sub advBandedGridView1_FocusedColumnChanged(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles advBandedGridView1.FocusedColumnChanged
advBandedGridView1.InvalidateColumnHeader(e.PrevFocusedColumn)
advBandedGridView1.InvalidateColumnHeader(e.FocusedColumn)
End Sub
Private Sub advBandedGridView1_CustomDrawColumnHeader(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.ColumnHeaderCustomDrawEventArgs) Handles advBandedGridView1.CustomDrawColumnHeader
Dim view As AdvBandedGridView = TryCast(sender, AdvBandedGridView)
If e.Column Is view.FocusedColumn Then
e.Appearance.Assign(style)
e.Info.AllowColoring = True
Else
e.Info.AllowColoring = False
e.Appearance.Assign(view.PaintAppearance.HeaderPanel)
End If
End Sub
End Class
End Namespace