Question

如何在VB中作实时曲线？

如何在VB中作实时曲线？要求是这样的。把EXCEL中的成组数据（一个变量，一个是函数，Y-X关系）导入到VB中，然后在VB中自动生成曲线，修改输入的数据，曲线也跟着变化。这是怎么实现的呢？数据如何导入到VB中。
基本思路是什么呢？或者把TXT文件导入也可以。

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

最方便的方法是在vb中引用mschart部件 选择vb中的菜单:工程--部件---浏览将mschart20.ocx选中(必须是企业版才有该控件)
mschart控件最重要的属性就是data属性,给你一段代码参考就明白了:
ms是该控件的名字 datax 为一维数组 你可以修改datax的值然后再次运行代码
ms.ColumnCount = 1
ms.RowLabelCount = 0
ms.RowCount = UBound(datax) - LBound(datax) + 1
ms.Column = 1
For i = LBound(datax) + 1 To UBound(datax) + 1
ms.row = i
ms.Data = Val(datax(i - 1))
'DoEvents
Next
我这里刚好有一个实时曲线绘制的毕业设计,用vb做的不过要收费的,有意思可以打我电话:09918376733 上述代码就是从我的程序中摘录的,该包包是用vb做的,可以动态显示文本数据的曲线.
在程序运行时,你可以修改数组内容,然后在运行上述代码即可

Answer 2

给你一个参考

Dim AppExcel As Excel.Application
Private Sub Form_Load()
Set AppExcel = New Excel.Application
AppExcel.Workbooks.Open App.Path & "\book1.xls"
AppExcel.Sheets("sheet1").Select
With AppExcel.ActiveSheet
aa = .Cells(5, 2) '这就是要导入的数据(第5行第2列为例)
End With
End Sub

至于画线,可以用MSCHART控件有X-Y方式, 也可以在PICTURE中自己画, 看你的要求.

Answer 3

Dim y1
Dim x
Private Sub Command1_Click()
Picture1.Line (-100, 0)-(100, 0)
Picture1.Line (0, -100)-(0, 100)

End Sub

Private Sub Command2_Click()
For i = 1 To 2000 '线的长度这个你也可以用DO WHILE直接考虑X到那里
x = x + 0.03'点的密度
y = x * x '你直接写你的函数
Picture1.PSet (x, y)
Next
End Sub

Private Sub Command3_Click()
Picture1.Line (10, -100)-(10, 100)
End Sub

Private Sub Form_Load()
Picture1.Scale (-100, 100)-(100, -100)'顶坐标系
End Sub

Answer 4

添加个 控件 ，找到 微软的EXcel，添加进来，后，仔细研究。
直接搜索“VBA 编程”应该可以找到狠多相关资料

Answer 5

做一个图片框空间,就按自己的公式做.