vb.net UltraChart画柱状图

最新推荐文章于 2020-11-13 02:21:06 发布

水草会武

最新推荐文章于 2020-11-13 02:21:06 发布

阅读量2.3k

点赞数

分类专栏： Vb.net 文章标签： vb.net byte integer components windows class

本文链接：https://blog.csdn.net/shuicaohui5/article/details/7514857

版权

Vb.net 专栏收录该内容

92 篇文章 4 订阅

订阅专栏

Form2.Designer.vb文件

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

'Windows フォームデザイナで必要です。
Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォームデザイナで必要です。
    'Windows フォームデザイナを使用して変更できます。
    'コードエディタを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim PaintElement1 As Infragistics.UltraChart.Resources.Appearance.PaintElement = New Infragistics.UltraChart.Resources.Appearance.PaintElement
        Dim BarChartAppearance1 As Infragistics.UltraChart.Resources.Appearance.BarChartAppearance = New Infragistics.UltraChart.Resources.Appearance.BarChartAppearance
        Dim ChartTextAppearance1 As Infragistics.UltraChart.Resources.Appearance.ChartTextAppearance = New Infragistics.UltraChart.Resources.Appearance.ChartTextAppearance
        Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance
        Me.UltraGroupBox1 = New Infragistics.Win.Misc.UltraGroupBox
        Me.lbl1_1 = New System.Windows.Forms.Label
        Me.lbl1_2 = New System.Windows.Forms.Label
        Me.UltraChart1 = New Infragistics.Win.UltraWinChart.UltraChart
        Me.ButtonKdcCtrl1 = New KdcControl.ButtonKdcCtrl(Me.components)
        CType(Me.UltraGroupBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.UltraGroupBox1.SuspendLayout()
        CType(Me.UltraChart1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'UltraGroupBox1
        '
        Me.UltraGroupBox1.Controls.Add(Me.lbl1_1)
        Me.UltraGroupBox1.Controls.Add(Me.lbl1_2)
        Me.UltraGroupBox1.Controls.Add(Me.UltraChart1)
        Me.UltraGroupBox1.Location = New System.Drawing.Point(44, 90)
        Me.UltraGroupBox1.Name = "UltraGroupBox1"
        Me.UltraGroupBox1.Size = New System.Drawing.Size(800, 203)
        Me.UltraGroupBox1.TabIndex = 0
        '
        'lbl1_1
        '
        Me.lbl1_1.BackColor = System.Drawing.Color.Transparent
        Me.lbl1_1.Font = New System.Drawing.Font("ＭＳゴシック", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.lbl1_1.ForeColor = System.Drawing.Color.Black
        Me.lbl1_1.Location = New System.Drawing.Point(700, 116)
        Me.lbl1_1.Name = "lbl1_1"
        Me.lbl1_1.Size = New System.Drawing.Size(72, 12)
        Me.lbl1_1.TabIndex = 12
        Me.lbl1_1.Text = "%chart1用_1"
        Me.lbl1_1.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'lbl1_2
        '
        Me.lbl1_2.BackColor = System.Drawing.Color.Transparent
        Me.lbl1_2.Font = New System.Drawing.Font("ＭＳゴシック", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.lbl1_2.ForeColor = System.Drawing.Color.Black
        Me.lbl1_2.Location = New System.Drawing.Point(699, 161)
        Me.lbl1_2.Name = "lbl1_2"
        Me.lbl1_2.Size = New System.Drawing.Size(72, 12)
        Me.lbl1_2.TabIndex = 13
        Me.lbl1_2.Text = "%chart1用_2"
        Me.lbl1_2.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        '   'UltraChart' プロパティのシリアル化: 'ChartType' は軸の外観を変更するので、
        '   デザインタイムに軸の変更を行った前に'ChartType'は持続しなければなりません。
        '
        Me.UltraChart1.ChartType = Infragistics.UltraChart.[Shared].Styles.ChartType.BarChart
        '
        'UltraChart1
        '
        Me.UltraChart1.Axis.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(220, Byte), Integer))
        PaintElement1.ElementType = Infragistics.UltraChart.[Shared].Styles.PaintElementType.None
        PaintElement1.Fill = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(220, Byte), Integer))
        Me.UltraChart1.Axis.PE = PaintElement1
        Me.UltraChart1.Axis.X.Extent = 0
        Me.UltraChart1.Axis.X.Labels.Font = New System.Drawing.Font("ＭＳゴシック", 7.0!)
        Me.UltraChart1.Axis.X.Labels.HorizontalAlign = System.Drawing.StringAlignment.Far
        Me.UltraChart1.Axis.X.Labels.ItemFormatString = ""
        Me.UltraChart1.Axis.X.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.X.Labels.SeriesLabels.FormatString = ""
        Me.UltraChart1.Axis.X.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Far
        Me.UltraChart1.Axis.X.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.X.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.X.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.X.LineThickness = 1
        Me.UltraChart1.Axis.X.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.X.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.X.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.X.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.X.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.X.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.X.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.X.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.X.RangeMax = 30000
        Me.UltraChart1.Axis.X.RangeType = Infragistics.UltraChart.[Shared].Styles.AxisRangeType.Custom
        Me.UltraChart1.Axis.X.TickmarkInterval = 500
        Me.UltraChart1.Axis.X.TickmarkStyle = Infragistics.UltraChart.[Shared].Styles.AxisTickStyle.DataInterval
        Me.UltraChart1.Axis.X.Visible = True
        Me.UltraChart1.Axis.X2.Extent = 0
        Me.UltraChart1.Axis.X2.Labels.HorizontalAlign = System.Drawing.StringAlignment.Far
        Me.UltraChart1.Axis.X2.Labels.ItemFormatString = ""
        Me.UltraChart1.Axis.X2.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.X2.Labels.SeriesLabels.FormatString = ""
        Me.UltraChart1.Axis.X2.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Far
        Me.UltraChart1.Axis.X2.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.X2.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.X2.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.X2.LineThickness = 1
        Me.UltraChart1.Axis.X2.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.X2.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.X2.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.X2.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.X2.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.X2.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.X2.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.X2.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.X2.RangeMax = 3000
        Me.UltraChart1.Axis.X2.RangeType = Infragistics.UltraChart.[Shared].Styles.AxisRangeType.Custom
        Me.UltraChart1.Axis.X2.Visible = False
        Me.UltraChart1.Axis.Y.Extent = 150
        Me.UltraChart1.Axis.Y.Labels.Font = New System.Drawing.Font("ＭＳゴシック", 8.5!)
        Me.UltraChart1.Axis.Y.Labels.HorizontalAlign = System.Drawing.StringAlignment.Far
        Me.UltraChart1.Axis.Y.Labels.ItemFormatString = "(<DATA_VALUE:#,##0>万円) <ITEM_LABEL>"
        Me.UltraChart1.Axis.Y.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.Y.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Y.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.Y.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Y.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Y.LineThickness = 1
        Me.UltraChart1.Axis.Y.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Y.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.Y.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Y.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.Y.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Y.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.Y.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Y.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.Y.TickmarkInterval = 1
        Me.UltraChart1.Axis.Y.Visible = True
        Me.UltraChart1.Axis.Y2.Extent = 0
        Me.UltraChart1.Axis.Y2.Labels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Y2.Labels.ItemFormatString = ""
        Me.UltraChart1.Axis.Y2.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.Y2.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Y2.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.Y2.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Y2.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Y2.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Y2.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.Y2.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Y2.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.Y2.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Y2.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.Y2.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Y2.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.Y2.TickmarkInterval = 20
        Me.UltraChart1.Axis.Y2.Visible = False
        Me.UltraChart1.Axis.Z.Extent = 0
        Me.UltraChart1.Axis.Z.Labels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Z.Labels.ItemFormatString = ""
        Me.UltraChart1.Axis.Z.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.Z.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Z.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.Z.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Z.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Z.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Z.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.Z.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Z.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.Z.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Z.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.Z.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Z.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.Z.Visible = False
        Me.UltraChart1.Axis.Z2.Labels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Z2.Labels.ItemFormatString = ""
        Me.UltraChart1.Axis.Z2.Labels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.Horizontal
        Me.UltraChart1.Axis.Z2.Labels.SeriesLabels.HorizontalAlign = System.Drawing.StringAlignment.Near
        Me.UltraChart1.Axis.Z2.Labels.SeriesLabels.Orientation = Infragistics.UltraChart.[Shared].Styles.TextOrientation.VerticalLeftFacing
        Me.UltraChart1.Axis.Z2.Labels.SeriesLabels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Z2.Labels.VerticalAlign = System.Drawing.StringAlignment.Center
        Me.UltraChart1.Axis.Z2.MajorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Z2.MajorGridLines.Color = System.Drawing.Color.Gainsboro
        Me.UltraChart1.Axis.Z2.MajorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Z2.MajorGridLines.Visible = True
        Me.UltraChart1.Axis.Z2.MinorGridLines.AlphaLevel = CType(255, Byte)
        Me.UltraChart1.Axis.Z2.MinorGridLines.Color = System.Drawing.Color.LightGray
        Me.UltraChart1.Axis.Z2.MinorGridLines.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dot
        Me.UltraChart1.Axis.Z2.MinorGridLines.Visible = False
        Me.UltraChart1.Axis.Z2.Visible = False
        Me.UltraChart1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        ChartTextAppearance1.ChartTextFont = New System.Drawing.Font("Arial", 7.0!)
        ChartTextAppearance1.Column = -2
        ChartTextAppearance1.ItemFormatString = "<DATA_VALUE:00.00>"
        ChartTextAppearance1.Row = -2
        BarChartAppearance1.ChartText.Add(ChartTextAppearance1)
        Me.UltraChart1.BarChart = BarChartAppearance1
        Me.UltraChart1.Border.Color = System.Drawing.Color.Transparent
        Me.UltraChart1.Border.CornerRadius = 5
        Me.UltraChart1.Border.Raised = True
        Me.UltraChart1.ColorModel.AlphaLevel = CType(150, Byte)
        Me.UltraChart1.ColorModel.ColorBegin = System.Drawing.Color.LightPink
        Me.UltraChart1.ColorModel.ColorEnd = System.Drawing.Color.RoyalBlue
        Me.UltraChart1.ColorModel.ModelStyle = Infragistics.UltraChart.[Shared].Styles.ColorModels.LinearRange
        Me.UltraChart1.Data.EmptyStyle.LineStyle.DrawStyle = Infragistics.UltraChart.[Shared].Styles.LineDrawStyle.Dash
        Me.UltraChart1.Data.MaxValue = 999999999
        Me.UltraChart1.Data.MinValue = 0
        Me.UltraChart1.Data.UseMinMax = True
        Me.UltraChart1.EmptyChartText = "利用可能なデータがありません。Data.DataSourceに有効なデータソースを設定した後、UltraChart.Data.DataBind()を呼び出してくだ" & _
            "さい。" & Global.Microsoft.VisualBasic.ChrW(10)
        Me.UltraChart1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.UltraChart1.Legend.Location = Infragistics.UltraChart.[Shared].Styles.LegendLocation.Top
        Me.UltraChart1.Location = New System.Drawing.Point(6, 7)
        Me.UltraChart1.Name = "UltraChart1"
        Me.UltraChart1.Size = New System.Drawing.Size(788, 192)
        Me.UltraChart1.TabIndex = 61
        Me.UltraChart1.TitleBottom.Extent = 30
        Me.UltraChart1.TitleLeft.Extent = 0
        Me.UltraChart1.TitleLeft.Visible = True
        Me.UltraChart1.TitleRight.Extent = 0
        Me.UltraChart1.TitleRight.Visible = True
        Me.UltraChart1.TitleTop.Extent = 50
        Me.UltraChart1.TitleTop.Font = New System.Drawing.Font("ＭＳゴシック", 9.0!, System.Drawing.FontStyle.Bold)
        Me.UltraChart1.TitleTop.Margins.Bottom = 2
        Me.UltraChart1.TitleTop.Margins.Left = 2
        Me.UltraChart1.TitleTop.Margins.Right = 2
        Me.UltraChart1.TitleTop.Margins.Top = 2
        Me.UltraChart1.Tooltips.Display = Infragistics.UltraChart.[Shared].Styles.TooltipDisplay.MouseClick
        Me.UltraChart1.Tooltips.FormatString = ""
        Me.UltraChart1.Tooltips.HighlightDataPoint = False
        '
        'ButtonKdcCtrl1
        '
        Appearance1.BackColor = System.Drawing.SystemColors.Control
        Appearance1.BackColor2 = System.Drawing.SystemColors.Control
        Me.ButtonKdcCtrl1.Appearance = Appearance1
        Me.ButtonKdcCtrl1.Font = New System.Drawing.Font("ＭＳゴシック", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ButtonKdcCtrl1.Location = New System.Drawing.Point(669, 34)
        Me.ButtonKdcCtrl1.Name = "ButtonKdcCtrl1"
        Me.ButtonKdcCtrl1.Size = New System.Drawing.Size(75, 23)
        Me.ButtonKdcCtrl1.TabIndex = 62
        Me.ButtonKdcCtrl1.TabStop = False
        Me.ButtonKdcCtrl1.Text = "ButtonKdcCtrl1"
        '
        'Form2
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(856, 470)
        Me.Controls.Add(Me.ButtonKdcCtrl1)
        Me.Controls.Add(Me.UltraGroupBox1)
        Me.Name = "Form2"
        Me.Text = "Form2"
        CType(Me.UltraGroupBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.UltraGroupBox1.ResumeLayout(False)
        CType(Me.UltraChart1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents UltraGroupBox1 As Infragistics.Win.Misc.UltraGroupBox
    Friend WithEvents UltraChart1 As Infragistics.Win.UltraWinChart.UltraChart
    Friend WithEvents lbl1_1 As System.Windows.Forms.Label
    Friend WithEvents lbl1_2 As System.Windows.Forms.Label
    Friend WithEvents ButtonKdcCtrl1 As KdcControl.ButtonKdcCtrl
End Class

Form2.vb文件

Public Class Form2

    Dim dt_Chart1 As New DataTable
    Dim dataRow As System.Data.DataRow
    Dim aryQuantity1 As ArrayList

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ps_ChartIni()
        aryQuantity1 = New ArrayList
        aryQuantity1.Insert(0, 10000)
        aryQuantity1.Insert(1, 2000)
        aryQuantity1.Insert(2, 300)

Me.WindowState = FormWindowState.Maximized
End Sub

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' ｸﾞﾗﾌ初期状態をセット
    ''' </summary>
    ''' <remarks></remarks>
    ''' <history>
    ''' [yuhaitao] 2009/07/08 Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Sub ps_ChartIni()
        If Not dt_Chart1 Is Nothing Then
            With dt_Chart1
                .Columns.Add("SeriesLabel")
                .Columns.Add("前年同月実績", GetType(Decimal))
                .Columns.Add("当月実績", GetType(Decimal))
                .Columns.Add("目標", GetType(Decimal))
            End With
        End If

dt_Chart1.Clear()

        Me.UltraChart1.DataSource = dt_Chart1

        Me.lbl1_1.Text = "0%"
        Me.lbl1_1.Parent = Me.UltraChart1

        Me.lbl1_2.Text = "0%"
        Me.lbl1_2.Parent = Me.UltraChart1
        'Chartｸﾞﾗﾌの初期化
        Call ps_ChartReset()

End Sub

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Chartｸﾞﾗﾌの初期化
    ''' </summary>
    ''' <remarks></remarks>
    ''' <history>
    ''' [yuhaitao] 2009/07/08 Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Sub ps_ChartReset()

        Me.UltraChart1.TitleTop.Text = "【yyyy/mm　ログイン担当者ＣＤ：名称】　売上実績"
        Me.UltraChart1.Axis.Y.Labels.ItemFormatString = "(\<DATA_VALUE:\##,###,##0>) <ITEM_LABEL>"
        Me.UltraChart1.Axis.X.RangeMax = 30000
        Me.UltraChart1.Axis.X.TickmarkInterval = 600

dt_Chart1.Clear()
dataRow = dt_Chart1.NewRow

        dataRow.Item("SeriesLabel") = ""
        dataRow.Item("目標") = 0
        dataRow.Item("当月実績") = 0
        dataRow.Item("前年同月実績") = 0

dt_Chart1.Rows.Add(dataRow)

Me.lbl1_1.Text = "0.00%"
Me.lbl1_2.Text = "0.00%"

End Sub

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' ｸﾞﾗﾌ①のデータセット
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' -----------------------------------------------------------------------------
    Private Sub pf_SetQuantitySum()

        '・データセット
        If aryQuantity1 IsNot Nothing AndAlso aryQuantity1.Count > 0 Then
            dt_Chart1.Clear()
            dataRow = dt_Chart1.NewRow
            With dataRow
                .Item("SeriesLabel") = ""
                .Item("目標") = aryQuantity1(0)        '目標
                .Item("当月実績") = aryQuantity1(1)        '当月実績
                .Item("前年同月実績") = aryQuantity1(2)        '前年同月実績
            End With

dt_Chart1.Rows.Add(dataRow)

            '・比率ラベル
            Me.lbl1_1.Text = Me.pf_HirituAccount(aryQuantity1(1), aryQuantity1(0)) & "%"
            Me.lbl1_2.Text = Me.pf_HirituAccount(aryQuantity1(2), aryQuantity1(0)) & "%"
        End If

End Sub

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' 比率の計算
    ''' </summary>
    ''' <param name="numerator">実績</param>
    ''' <param name="denominator">マスタ</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ''' <history>
    ''' [yuhaitao] 2009/07/08 Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Function pf_HirituAccount(ByVal numerator As Decimal, ByVal denominator As Decimal) As Decimal

        '実績 / 目標 * 100 小数点第２位まで表示、以下四捨五入
        If denominator <> 0 Then
            Return Math.Round(numerator / denominator * 100, 2)
        Else
            Return 0.0
        End If

End Function

    Private Sub ButtonKdcCtrl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKdcCtrl1.Click
        pf_SetQuantitySum()
    End Sub
End Class