定义一个二维数组，例如：Global studydata(1 To 5, 1 To 7) '学历数据
ElseIf cb_sort.Text = "学历" And cb_chart.Text = "折线图" Then
With MSChart1
.ColumnCount = 6
.ChartData = studydata
.DataGrid.ColumnLabel(1, 1) = "研究生及以上"
.DataGrid.ColumnLabel(2, 1) = "本科"
.DataGrid.ColumnLabel(3, 1) = "专科"
.DataGrid.ColumnLabel(4, 1) = "中专"
.DataGrid.ColumnLabel(5, 1) = "高中"
.DataGrid.ColumnLabel(6, 1) = "初中及以下"
.TitleText = "全公司学历结构图示"
.ToolTipText = "全公司学历结构图示"
.ChartType = VtChChartType2dLine '折线图
'MSChart1.Stacking = True
End With
用这个控件，可以满足你的要求。
VB用mschart画折线图
首先：imports system.windows.forms.datavisualization.charting 然后定义图表类型为折线图：chart1.series("series1").charttype = seriescharttype.line;最后使用1-99之间的随机数生成图表：dim random as new random()dim index as integer for index = 0 to 9 chart1.series("series1").points.ad...
vb怎么根据数组画折线图,用的是mschart控件,
可以使用如下代码：Chart1.Series("Default").Points.DataBindXY(X轴数组, Y轴数组)希望对你有帮助，还有疑问请追问或是Hi
用VB做数据折线图
用MSCHART控件 定义一个二维数组，例如：Global studydata(1 To 5, 1 To 7) '学历数据 ElseIf cb_sort.Text = "学历" And cb_chart.Text = "折线图" Then With MSChart1 .ColumnCount = 6 .ChartData = studydata .DataGrid.ColumnLabel(1, 1) = "研究生及以上".DataGrid.ColumnLabel...
如何用vb画折线图?
把这些相邻的点之间用直线连接起来，就是折线了。VB6可以在窗体上或者PictureBox里绘制图形，语句为：对象.Line (x1,y1)-(x2,y2)其中：(x1,y1)和(x2,y2)分别是两个点的坐标。
vb里面如何生成折线图
object.Line [Step] (x1, 1)[Step] (x2, y2), [color]，起点坐标，终点坐标
有关VB画折线图的问题
点击按钮时图片显示为一折线图 折线图为十二个点的连线 （1，13）（2，14）（3，15）（4，16）（5，17）...(12，24)请教如何编写程序 回答：控件用MsChart，在Microsoft Chart Control 6.0(OLEDB)。Private Sub Form_Load()Dim CData(1 To 2, 1 To 24) As Variant mctChart.chartType...
vb6.0 画折线图,chart,line等控件也行
加你没回，给你看看我的 一个实例吧 Dim BHgc '最高高程 Dim BHLc '里程 Dim BLgc '最低高程 Dim DrwGC '起画点高程 Dim i As Integer '记录条数 Dim GTSL As Integer '杆塔数量 Dim d2Width As Double '绘图大小 Dim d2Height As Double '绘图大小 Dim P2L As Double Dim...
求助,各位vb高手,帮忙设计一个用数组存储数据,利用vb6.0中的mschart控件...
新建工程，在表单上放置MSChart1控件，然后粘贴以下代码：Private Sub Form_Load()Dim D(1 To 10, 1 To 2) As Double, i As Integer Randomize For i = 1 To 10 '产生随机数 D(i, 1) = 100 * Rnd(1)D(i, 2) = -100 * Rnd(1)Next MSChart1.chartType = VtChChartType2dL...
一个月每天的花费用vb画折线图,横坐标时间,纵坐标每天的花费,每天输 ...
Private Sub Command1_Click()Dim i As SingleDim n As IntegerPicture1.ClsClsn = Day(Now())i = Val(Text1.Text)Print NowPicture1.ForeColor = RGB(0, 200, 0)Picture1.Line (n * 100 + 50, 1800)-(n * 100 + 50, 1800 - i)Picture1.Line ((n - 1) * 100 + 50, 1800...
VB6.0中MSChart调用数据库数据绘制折线图,代码一直有问题。没有接触过M...
你虽然改过来了，但是还是不对，应该是SQL="SELECT FIELD FROM TALBE WHERE DATE BETWEEN '" & STARTDATE & "' AND '" & ENDDATE & "'"注意查询文本和时间字段需要单引号在SQL语句中。另外你使用的是文本格式，请注意你数据库设置的字段格式是什么？这里出现对象没有初始化，是因为SQL语句错的，...
