Question

VB6.0 画坐标和函数曲线，坐标刻度变化

一个二次函数在0~Xmax范围内显示图像，但我的坐标是死的，不会变化，最大只有100。我希望有这样的效果：我Xmax取任意数，都能在图像上完整显示，坐标刻度也会变化，即便坐标刻度只有0，和最大值Xmax，没有中间刻度也行，当然完美的更好。
如图是我的效果，我X最大取了30，但受限于坐标，曲线没显示完整，求大神可怜可怜我啊~~~~！！！！急~~~！！！！可加分啊，多少都行
提交问题

Answer 1

主要是设置缩放模式和缩放范围：
Private Sub Picture1_Click()
Dim Ymax As Integer, Xmax As Integer
Xmax = 100
Ymax = 100
Picture1.ScaleMode = 1
Picture1.DrawStyle = 0
Picture1.DrawWidth = 1
Picture1.Scale (0, Ymax + 20)-(Xmax + 20, 0)
Picture1.Line (0, 0)-(Xmax, Ymax), vbRed
End Sub

看懂这个，网格还按你现在的画。

追问

Picture1.Line (0, 0)-(Xmax, Ymax), vbRed 这句有什么用？就一条斜线，还有你说的缩放是怎样的？

追答

上面只是个例子，你能不能看懂？
Picture1.Scale (0, Ymax + 20)-(Xmax + 20, 0)其实就这一句是主要的,也就是根据你的最大坐标来缩放范围。

你要画曲线也不过是循环pset()

追问

恩，X轴能缩放了，但Y轴好像没变，可能我哪里还不对，我再仔细看看，大神能帮我提点一下吗

追答

还要有Y轴的最大值，Ymax随你Y轴最大值设置
Picture1.Scale (0, Ymax + 20)-(Xmax + 20, 0)

追问

大神，我成功了！！多谢多谢，我能去答辩了，感动啊~~~

追答

:)

Answer 2

Xmax/10 *　i (i = 0, 1,2,3,4,5,6,7,8,9,10)
取这些点坐标不行吗
算y的最大值最小值
再除以10画y的坐标轴

追问

还是希望有这样的效果，Xmax是自己定的，自然对应的有了Ymax的值。坐标X轴上就有Xmax作为刻度，Y轴上有Ymax作为刻度，有代码最好，我不是很会。

追答

我没有环境。
就按照这个意思改改吧。