各位大神有谁可以教我vb的折线图怎么画啊?
1个回答
展开全部
'使用MSChart1 控件或 Line 函数
'Line 函数例子
Private Sub Command1_Click()
'Line (起点x坐标, 起点y坐标)-(终点x坐标, 终点y坐标),线条颜色
DrawWidth = 5 '设置线条粗细,数字,越大越宽
Line (1000, 500)-(1500, 1500), vbRed
Line (1500, 1500)-(2000, 400), vbRed
Line (2000, 400)-(2500, 900), vbRed
Line (2500, 900)-(3000, 600), vbRed
Line (3000, 600)-(3500, 1000), vbBlue
Line (3500, 1000)-(4000, 800), vbRed
Line (4000, 800)-(4500, 1500), vbBlue
End Sub
'请采纳!谢谢!
'Line 函数例子
Private Sub Command1_Click()
'Line (起点x坐标, 起点y坐标)-(终点x坐标, 终点y坐标),线条颜色
DrawWidth = 5 '设置线条粗细,数字,越大越宽
Line (1000, 500)-(1500, 1500), vbRed
Line (1500, 1500)-(2000, 400), vbRed
Line (2000, 400)-(2500, 900), vbRed
Line (2500, 900)-(3000, 600), vbRed
Line (3000, 600)-(3500, 1000), vbBlue
Line (3500, 1000)-(4000, 800), vbRed
Line (4000, 800)-(4500, 1500), vbBlue
End Sub
'请采纳!谢谢!
更多追问追答
追问
谢谢,我已经做出来了
追答
百度任务中,请采纳!谢谢!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询