vb.net UltraChart画柱状图

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb.net UltraChart画柱状图，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

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("ＭＳ ゴシック",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,CType(CType(220,Integer))
PaintElement1.ElementType = Infragistics.UltraChart.[Shared].Styles.PaintElementType.None
PaintElement1.Fill = System.Drawing.Color.FromArgb(CType(CType(255,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("ＭＳ ゴシック",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!,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/08Created
''' </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/08Created
''' </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/08Created
''' </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


原文链接：https://www.f2er.com/vb/260055.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积