A newer version of this page is available. Switch to the current version.

How to: Bind a Gauge Dashboard Item to Data in Code

  • 3 minutes to read

The following example demonstrates how to bind a Gauge dashboard item to data in code.

Imports System
Imports System.Windows.Forms
Imports DevExpress.DashboardCommon
Imports DevExpress.DataAccess

Namespace Dashboard_CreateGauges
    Partial Public Class Form1
        Inherits Form

        Public Sub New()
        End Sub
        Private Function CreateGauges(ByVal dataSource As DashboardObjectDataSource) As GaugeDashboardItem

            ' Creates a gauge dashboard item and specifies its data source.
            Dim gauges As New GaugeDashboardItem()
            gauges.DataSource = dataSource

            ' Creates the Gauge object with measures that provide data for calculating actual and target
            ' values, and then adds this object to the Gauges collection of the gauge dashboard item.
            Dim gauge As New Gauge()
            gauge.ActualValue = New Measure("Extended Price", SummaryType.Average)
            gauge.TargetValue = New Measure("Extended Price", SummaryType.Max)

            ' Specifies the dimension that provides data for a gauge dashboard item series.
            gauges.SeriesDimensions.Add(New Dimension("Sales Person"))

            Return gauges
        End Function
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

            ' Creates a dashboard and sets it as the currently opened dashboard in the dashboard viewer.
            dashboardViewer1.Dashboard = New Dashboard()

            ' Creates a data source and adds it to the dashboard data source collection.
            Dim dataSource As New DashboardObjectDataSource()
            dataSource.DataSource = (New nwindDataSetTableAdapters.SalesPersonTableAdapter()).GetData()

            ' Creates a gauge dashboard item with the specified data source 
            ' and adds it to the Items collection to display within the dashboard.
            Dim gauges As GaugeDashboardItem = CreateGauges(dataSource)

            ' Reloads data in the data sources.
        End Sub
    End Class
End Namespace
See Also