vb.net UltraChart画柱状图

末蓝、 2022-06-12 04:18 278阅读 0赞

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

![1335429083_2572.JPG][]

[1335429083_2572.JPG]: https://img-my.csdn.net/uploads/201204/26/1335429083_2572.JPG