189 8069 5689
采用绘制直线的方法：
成都创新互联公司服务项目包括舞阳网站建设、舞阳网站制作、舞阳网页制作以及舞阳网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，舞阳网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到舞阳省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
你给出了9个点坐标；
(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........
把这些相邻的点之间用直线连接起来，就是折线了。
VB6可以在窗体上或者PictureBox里绘制图形，语句为：
对象.Line (x1,y1)-(x2,y2)
其中：(x1,y1)和(x2,y2)分别是两个点的坐标。
1 新建一个工程。
2 在工程/部件内加载图表控件到工具栏上。在窗体上绘制这个控件。
3 在窗体上绘制一个命令按钮。
在此按钮的Click事件内编写代码给图表控件的数据网格属性赋值，值是一个二维数组，假定为dim X(1 to 3,1 to 4),必须先给每个数组元素赋值。
数据网格属性接收到X的值，即自动绘出图形，此时是默认的柱形图，通过更改图表类型，就可变成折线图。
用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(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.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。
构造Pen的时候可以指定粗细，如果你指定为1，并且放大了10倍，最后就成10了，所以你指定小点就行了，比如 Dim p As New Pen(Color.Black, 0.01) 最终绘制的线的粗细不会小于1
。net 其实还是很好绘制图形的
你可以看下 Graphics 类
Dim d As New Bitmap(Me.Width, Me.Height) ‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制 准备在这个图片是进行
然后 就是你绘制的东西了
线 就是 g.DrawLine()
圆 弧度 就用 g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
复杂的就是 g.DrawBezier()
等 如果你用的是 VS的 编译 上面都有详细的参数说明
Dim d As New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(d)
g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)
g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))
g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})
g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d