Footer 3D효과 주기
Imports System.Drawing.Drawing2D
'Footer 3D효과
Private Sub xgSheetView_CustomDrawFooterCell(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.FooterCellCustomDrawEventArgs) Handles xgSheetView.CustomDrawFooterCell
Dim dx As Integer = e.Bounds.Height
Dim brush As Brush = e.Cache.GetGradientBrush(e.Bounds, Color.Wheat, Color.FloralWhite, _
LinearGradientMode.Vertical)
Dim r As Rectangle = e.Bounds
'Create a raised or depressed effect for a cell depending on the band index
ControlPaint.DrawBorder3D(e.Graphics, r, Border3DStyle.RaisedInner)
'Fill the inner region of the cell
r.Inflate(-1, -1)
e.Graphics.FillRectangle(brush, r)
'Draw a summary value
r.Inflate(-2, 0)
e.Appearance.DrawString(e.Cache, e.Info.DisplayText, r)
'Prevent default drawing of the cell
e.Handled = True
End Sub