1、首先打开excel,打开需要生成曲线图的文件,然后选中要绘制为曲线图的数据
2、点击上方菜单栏中的“插入”按钮,如图所示
3、然后点击“折线图”按钮,在出现的下拉菜单中选择需要的曲线图形式即可
4、回到主界面,可以看到曲线图已经自动生成了
VB提供的绘制图形的方法:(可以在窗体上或PicTureBox控件上使用)与你主题相关的有:
1,绘制直线
object.Line (x1,y1) - (x2,y2), [color]
其中:(x1,y1) 和 (x2,y2)分别是平面上的两个点坐标。
2,绘制一点:
object.PSet (x,y), [color]
其中:(x1,y1) 是平面上的一个点坐标。
3,绘制图形的笔尖的粗细:
object.DrawWidth = size
默认粗细为1。
4,绘制图形的线条的颜色设置:
1)Object.ForeColor = QbColor(n) :n = 0 -- 15
2) 或者在使用上述方法时,在后边跟的参数[color]
思路:
绘制曲线,就是根据函数关系:y = f(x),采用描点法,在某一区域范围内,根据x计算y,然后用
PSet (x,y)实现曲线的绘制。
采用tdbchart控件procedure TForm1.Button1Click(Sender: Object)
var
LS: TLineSeries
begin
LS := TLineSeries.Create(DBChart1)//这里假设你用的是DBChart1
LS.ParentChart := DBChart1
LS.Title := '标题'
LS.DataSource := Adoquery1//这里假设你用的adoquery1作为dataset
LS.XLabelsSource := '你横坐标要显示的字段名称'
LS.YValues.ValueSource := ‘纵坐标的字段名称'//必须是数值型
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)