为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

vb应用大量数据绘制折线图实例[最新]

2017-11-26 5页 doc 56KB 37阅读

用户头像

is_682974

暂无简介

举报
vb应用大量数据绘制折线图实例[最新]vb应用大量数据绘制折线图实例[最新] Private Sub Command1_Click() On Error Resume Next Dim i As Integer Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet...
vb应用大量数据绘制折线图实例[最新]
vb应用大量数据绘制折线图实例[最新] Private Sub Command1_Click() On Error Resume Next Dim i As Integer Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb" conn.Open rs.Open "select * from lwl", conn, adOpenKeyset, adLockOptimistic ' Set MSChart1.DataSource = rs With MSChart1 '// 以线条方式显示 .chartType = 3 '// 把刻录改为手工方式 .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False '// 设置最大值 .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000 '// 设置最小值 .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 '// 设置每格为 1 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1 '// 设置收入和兼职收入总列数 .ColumnCount = 2 '//轴坐标标题 .Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期" .Plot.Axis(VtChAxisIdY, 0).AxisTitle = "收入" '//轴坐标标题字体大小的设置 .Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15 .Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25 '//设置图表标题 .Title.Text = "日期和收入对应折线图" '// 显示图例说明 .ShowLegend = True '// 标记每个点的值 For i = 1 To .Plot.SeriesCollection.Count .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint Next If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If For i = 0 To rs.RecordCount - 1 .Column = 1 '收入曲线所在列 .RowCount = rs.RecordCount .Row = i + 1 .RowLabel = CStr(rs("日期")) .Data = rs("收入") .ColumnLabel = "收入" '图例说明文字 '//兼职收入显示 .Column = 2 '兼职收入曲线所在列 .Data = rs("兼职收入") .ColumnLabel = "兼职收入" '图例说明文字 rs.MoveNext Next End With End Sub Private Sub Command2_Click() '下列示例设置图表查看距离和轴分段间距。 ' Change the chart type to 3D Bar. MSChart1.chartType = VtChChartType3dBar With MSChart1.Plot ' Changes 3d bar chart's viewing. .DepthToHeightRatio = 2 .WidthToHeightRatio = 2 ' Changes the spacing between divisions on the ' X-Axis. .xGap = 0 ' Changes the spacing between divisions on the ' Z-Axis. .zGap = 0.8 End With End Sub 调试界面显示:
/
本文档为【vb应用大量数据绘制折线图实例[最新]】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索