请你进来look一下，分是少不了你的，不够可以加！！！

Question

介绍你一本书：《Visual Basic与分布式监控系统——RS-232/485串行通信》，非常不错

Answer 1

我们不用mschart来动态生成性能曲线。有法吗？
手动画行吗？听说picturebox的line方法可以实现，我弄了一下
画不起，帮帮我哈

Answer 2

还是在picturebox上画吧，挺方便的

Answer 3

mazhayang(蚂蚱先生) ,你稍微给点提示，怎么弄?谢谢

Answer 4

还是同意，picturebox上画线哦， 发了时间不是十分长。

Answer 5

Private Sub Form_Click()
   Dim I, OldFontSize   ' 声明变量。
   Width = 8640: Height = 5760   ' 按缇设置窗体大小。
   Move 100, 100  ' 移动窗体起点。
   AutoRedraw = -1   ' 打开AutoRedraw。
   OldFontSize = FontSize   ' 保持旧的字体大小。
   BackColor = QBColor(7)   ' 将背景设置为灰色。
   Scale (0, 110)-(130, 0)   ' 设定自定义座标系统。
   For I = 100 To 10 Step -10
      Line (0, I)-(2, I)   ' 每隔 10 个单位划尺寸标记。
      CurrentY = CurrentY + 1.5   ' 移动光标位置。
      Print I   ' Print scale  value on left.
      Line (ScaleWidth - 2, I)-(ScaleWidth, I)
      CurrentY = CurrentY + 1.5   ' 移动光标位置。
      CurrentX = ScaleWidth - 9
      Print I   ' 将尺寸标记值打印在右边。
   Next I
   ' 画条形图。
   Line (10, 0)-(20, 45), RGB(0, 0, 255), BF  ' 第一个蓝色条。
   Line (20, 0)-(30, 55), RGB(255, 0, 0), BF   ' 第一个红色条。
   Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
   Line (50, 0)-(60, 25), RGB(255, 0, 0), BF
   Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
   Line (80, 0)-(90, 60), RGB(255, 0, 0), BF
   Line (100, 0)-(110, 75), RGB(0, 0, 255), BF
   Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
   CurrentX = 18: CurrentY = 100   ' 移动光标位置。
   FontSize = 14   ' 放大标题尺寸。
   Print "Widget Quarterly Sales"   ' 打印标题。
   FontSize = OldFontSize   ' 还原字体大小。
   CurrentX = 27: CurrentY = 93   ' 移动光标位置。
   Print "Planned Vs. Actual"   ' 打印子标题。
   Line (29, 86)-(34, 88), RGB(0, 0, 255), BF   ' 打印图例。
   Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
End Sub

Answer 6

问题关键：根据数据库里的数据在picturebox上画曲线
请留言告诉我，也可以把你的代码发到我信箱[email protected]
请帮助我，分是少不了你的！！！

Answer 7

在picturebox上画出坐标轴，在由数据生成点，再逐个点连接起来就行