Question

想在VB中根据数据库的数据画曲线变化图，如何画？用什么方法

我是用DataGrid显示查询结果想将结果用曲线显示，怎么坐标横轴为时间（24）小时，纵轴为温度值（上限为最高温，下限为最低温）如何来画这个曲线以及曲线坐标

Answer 1

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)实现曲线的绘制。

追问

我想绘制数据24小时各点的值，然后用折线连接，有想过在Excel中画通过录制宏获得VBA代码，在VB中用，具体要怎么来做？

追答

你如果一点VB基础？
我上面已经说得很详细了，可以在窗体上添加一个PicTureBox控件，在它里边绘制图形，根据你的要求，有以上一些语句，就可以实现了。
比如：添加的控件名 PicTure1，那么绘制直线
PicTure1.Line (x1,y1) - (x2,y2), [color]

你实在不会，那么你把你的数据说一说，是以什么方式获得的？

追问

是SQL数据库中查询到的数据，我用的DataGrid控件显示查询结果，然后想在程序中显示图表趋势分析图，数据量比较大，用画线不太好实现吧

追答

你可以编写数据库应用程序，应该有一定的VB基础了。
数据量大？当然还是绘制直线，用循环实现，两点决定一条直线！！！
我用伪代码，描述一下算法：
假设数据表里有两个字段，分别是X 和Y 的值：
1，打开数据表
2，获取第一条记录，读X1，Y1
3，下移一条记录
4，Do while 数据表还有数据
获取记录，读X2，Y2
PicTure1.Line (x1,y1) - (x2,y2) ‘绘制直线段
x1 = x2
y1 =y2
下移一条记录
Loop
以上就是基本思路，当然，还要根据具体情况，设计解决比例问题，和数据量比较大，图形会超过屏幕的宽度，就要设计解决左右滚动问题。

追问

我还有一个问题不明白，就是这个坐标轴如何定义和绘制以及X,Y坐标值怎么对应起来，也就是怎么建立坐标轴来画线，另外我想实现的是X轴按一天时间24小时的数据显示在一个趋势图上，多天就实现翻页显示

追答

你这样：分步解决，先解决 一天的，当你解决了一天的问题，多天翻页，也就容易了。

那么，你的数据表，就应该有一个日期的字段了，Select 语句，查询某一日的记录，我想你是没有问题的了。然后，绘制数据表里返回的记录集的所有点构成的直线，就好了。
关于，VB的坐标系统问题：我建议你最好安装VB6的时候，安装 MSDN （帮助系统），这样对你的开发会有非常的的帮助的。VB默认的坐标系统，与数学上坐标系统稍微不一样，要注意，左上角为原点，然后横轴为X轴，向右为正方向；纵轴为Y轴，但是向下为正方向。
见图：不知道什么原因，图片无法上传。