Question

用visual basic 6.0画点，画到坐标轴的尽头了，然后还想继续画下去，想把前面的点一个个的往左移，

怎么样才能做到呢？以Y=sinX为例
考虑到用数组数据位移，但是不懂怎么给函数赋值

Answer 1

PSet 方法

将对象上的点设置为指定颜色。

语法

object.PSet [Step] (x, y),
[color]

PSet 方法的语法有如下对象限定符和部分：

部分
描述

object
可选的。
对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step
可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。

(x, y)
必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。

color
可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor
函数指定颜色。

说明

所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为
1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。

画点的方法取决于 DrawMode 和 DrawStyle
属性值。

执行 PSet 时，CurrentX 和 CurrentY
属性被设置为参数指定的点。

想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor
属性设置作为 color 参数。

这个方法不能用在 With匛nd With 语句块中。

Answer 2

Dim x
Private Sub command1_click()
Timer1.Interval = 100
Timer1.Enabled = True
Picture1.AutoRedraw = True
Picture1.Left = 0
Picture1.Width = 100000
End Sub
Private Sub Timer1_Timer()
Picture1.PSet (x, Picture1.Height * 15 / 2 - 100 * Sin(x))
x = x + 100
If x > 10000 Then
Picture1.Left = (10000 - x) / 15
End If
End Sub
思路：把picture1控件左移，仅供参考

追问

是把picture1变长了吗？主要是想保持坐标轴不变，只移动波形的点。

追答

picture1没有任何变化，只是预先放1个足够长的picture1,右半部分在窗体外，逐步把picture往左移动,坐标轴的数字不会变，只是整体(包括y轴和点)不断向左移动
如果只移动点而不移动y轴反而数据不对

追问

参照这个方法，如果一直往左移动，那么，坐标轴会不会被移到左边，到最后消失掉了？

追答

会的,只不过是看不到而已,提供个思路给你参考,你也可以寻找更好的方法

Answer 3

用SCAL方法重新定义坐标系，例如以前X是0-100，改为20-120，然后重新画整个图形。

Answer 4

加入下面语句
Picture1.AutoRedraw = True
if x>=Picture1.Left +Picture1.Width then Picture1.Left =Picture1.Left +Picture1.Width/3
即可移位1/3窗口