vb6中不压缩图像，如何显示50倍picturebox.width的曲线？？？

[sxgtxayb]

多出来的部分被截了。如何解决？？？？急！！！！！！！！！！！！！！！！！！

[dbcontrols]

Picture1.AutoSize = True

[贝隆]

不压缩？也就只能局部显示了。
可以通过重新定义坐标系统来实现了。

Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.Scale (0, 100)-(100, 0)
    Picture2.AutoRedraw = True
    Picture2.Scale (0, 100 / 50)-(100 / 50, 0)  '把坐标系统显示范围缩小50倍，也就是将曲线放大了50倍
End Sub

[sxgtxayb]

picture1只能装入曲线的1/30,如何设定Picture2.Scale ?

[sxgtxayb]

我只是在一个picturebox内画超长曲线，不能压缩，画完后可移动scroll观看，可否实现？？？

[flfq]

当然可以，比如曲线长度是100，而picturebox的长度是10，将滚动条最大值设为100，随意拖动滚动条，画滚动条当前值到+10的曲线就可以。

[sxgtxayb]

设autosize=true， 曲线长度是100，而picturebox的长度是10，picturebox只能装入长度30的曲线，如何将长度是100的曲线装入长度是10的picturebox中呢？

[flfq]

将原来定义坐标时x的长度乘50就可以