此主题相关图片如下：22.png
Dim zz As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim zxz As WinForm.TextBox = e.Form.Controls("TextBox8")
Dim zja As WinForm.Label = e.Form.Controls("Label03")
Dim zs As Double = zz.value
Dim zx As Double = zxz.value
Dim zj As Double = zja.text
MessageBox.Show(zs)
MessageBox.Show(zx)
MessageBox.Show(zj)
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("直方图").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型
Chart.DataSource = "生成直方图表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Histogram.IntervalStart = zx '指定起始值
Series.Histogram.IntervalWidth = zj '指定分区宽度
Series.Histogram.IntervalNumber= zs '指定分区个数
Series.Y.DataField = "数据" 'Y轴绑定到数量列
'Dim Chart1 As WinForm.Chart '定义一个图表变量
'Dim Series1 As WinForm.ChartSeries '定义一个图系变量
'Chart1= Forms("直方图").Controls("Chart1") ' 引用窗口中的图表
'Chart1.ChartType = ChartTypeEnum.Hilo '设置图表类型
''Chart.SeriesList.Clear() '清除图表原来的图系
'Series1 = Chart1.SeriesList.Add() '增加一个图系
'Series1.LineThickNess = 3 '设置线条宽度
'Series1.Length = 2 '图系包括10个数据点
'For i As Integer = 0 To 1 '指定每个数据点的位置
'Series1.X(i) = i '指定水平坐标
'Series1.Y(i) = 99 '生成最大值
'Series1.Y1(i) = 0.1 '生成最小值
'Next
加好友 
发短信
Post By：2016/2/27 16:54:00 [只看该作者]
