Form1.vb

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraPivotGrid
Imports DevExpress.XtraCharts

Namespace WindowsFormsApplication8

    Public Partial Class Form1
        Inherits Form

'#Region "Constants & Variables"
        Private Shared imgList As ImageList = New ImageList()

        Private Shared seriesArguments As String() = New String() {"FAR WEST", "GREAT LAKES", "MIDEAST", "NEW ENGLAND", "PLAINS", "ROCKY MOUNTAIN", "SOUTHEAST", "SOUTHWEST"}

        Private Shared seriesColors As Color() = New Color() {Color.Aqua, Color.Aquamarine, Color.BlueViolet, Color.Crimson, Color.DarkOrange, Color.DarkSeaGreen, Color.Green, Color.Indigo}

'#End Region
        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            gSPTableAdapter.Fill(gspDataSet.GSP)
            imgList.Images.AddRange(CreateImages(seriesColors))
            pivotGridControl1.ValueImages = imgList
        End Sub

        Private Sub pivotGridControl1_FieldValueImageIndex(ByVal sender As Object, ByVal e As PivotFieldImageIndexEventArgs)
            If e.Field Is fieldRegion AndAlso e.ValueType = PivotGridValueType.Value Then e.ImageIndex = GetIndexByName(e.Value)
        End Sub

        Private Sub chartControl1_CustomDrawSeries(ByVal sender As Object, ByVal e As CustomDrawSeriesEventArgs)
            Call UpdateDrawOptions(CType(e.SeriesDrawOptions, BarDrawOptions))
            Call UpdateDrawOptions(CType(e.LegendDrawOptions, BarDrawOptions))
        End Sub

        Public Shared Sub UpdateDrawOptions(ByVal options As BarDrawOptions)
            options.FillStyle.FillMode = FillMode.Hatch
            options.Shadow.Color = Color.Azure
        End Sub

'#Region "Auxilliary Methods"
        Private Function CreateImages(ByVal colors As Color()) As Image()
            Dim images As Image() = New Image(colors.Length - 1) {}
            For i As Integer = 0 To colors.Length - 1
                images(i) = CreateImage(16, 16, colors(i))
            Next

            Return images
        End Function

        Private Function CreateImage(ByVal width As Integer, ByVal height As Integer, ByVal imageColor As Color) As Image
            Dim image As Bitmap = New Bitmap(width, height)
            Using gfx As Graphics = Graphics.FromImage(image)
                Using brush As SolidBrush = New SolidBrush(imageColor)
                    gfx.FillRectangle(brush, 0, 0, width, height)
                End Using
            End Using

            Return CType(image, Image)
        End Function

        Private Shared Function GetIndexByName(ByVal name As Object) As Integer
            If name IsNot Nothing Then
                For i As Integer = 0 To seriesArguments.Length - 1
                    If Equals(seriesArguments(i), name.ToString()) Then Return i
                Next
            End If

            Return -1
        End Function
'#End Region
    End Class
End Namespace