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 中 MSchart 如何作(XY)散点图
1.选中需要建立折线图的数据 2.点工具栏中的插入-图表-自定义类型-两轴折线图-下一步。3.在图标源数据-系列,把需要的几个系列的名字输入到系列1.2.3...下一步。4.图表选项-标题,输入分类X轴,数值Y轴,次数值Y轴名字,下一步。5.下一步-完成,折线图出现了。
VB6.0中MSChart调用数据库数据绘制折线图,代码一直有问题。没有接触过M...
你的条件是开始和结束时间,是拼接到SQL中的,要使用连字符&并且要加单引号。你虽然改过来了,但是还是不对,应该是SQL="SELECT FIELD FROM TALBE WHERE DATE BETWEEN '" & STARTDATE & "' AND '" & ENDDATE & "'"注意查询文本和时间字段需要单引号在SQL语句中。另外你使用的是文本格式,请...
VB中如何使用mschart 控件画曲线图
1、首先,单击左侧工具框中的命令按钮,如下图所示,然后进入下一步。2、其次,双击以直接在表单上绘制,如下图所示,然后进入下一步。3、接着,或者可以单击命令按钮控件,再在页面上拖动绘制,如下图所示,然后进入下一步。4、然后,如果对外观不满意,可以在属性窗口中对其进行更改,如下图所示,...
有关VB画折线图的问题
现有十二个数 设其为13-24 点击按钮时图片显示为一折线图 折线图为十二个点的连线 (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) ...
...利用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,想用mschart画图,但不知道怎么编程,有例子可以参考吗。我...
ADO Data Control 6.0 (OLEDB)"和"Microsoft Chart Control 6.0 (OLEDB)"2、在窗体中添加ADODC和MSChart并设置ADODC的数据源连接(查询或表)和MSChart的图表类型(直方图、饼图等)和DataSource属性为Adodc1 3、剩下的用语句对应好就差不多了。我有个这方面的实例,如需要可以发给你。
visual studio中利用VB使用chart绘图
Private Sub Command1_Click()MSChart1.chartType = VtChChartType2dXYDim arrValues()ReDim arrValues(0 To 10, 1 To 2)Dim i As IntegerFor i = 10 To 100 Step 10 arrValues(i \/ 10 - 1, 1) = i 'xNextFor j = 1 To 10 arrValues(j - 1, 2) = j 'yNextMSChart...