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("MS ゴシック",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("MS ゴシック",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("MS ゴシック",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("MS ゴシック",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("MS ゴシック",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("MS ゴシック",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 ログイン担当者CD:名称】 売上実績" 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 小数点第2位まで表示、以下四捨五入 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
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|