VB坐标轴绘制

[VIVI0622]

有谁可以帮我编一段程序，实现坐标轴的放大缩小啊！就是说比如一段曲线可以随着坐标轴的放大缩小而变换

[嗷嗷叫的老马]

http://topic.csdn.net/u/20091011/20/9e9aa782-960c-41cc-a93d-c488387300b0.html

参考这个.

设定好绘图区域大小后再重绘就OK了.

[VIVI0622]

[Quote=引用 1 楼 myjian 的回复:]
http://topic.csdn.net/u/20091011/20/9e9aa782-960c-41cc-a93d-c488387300b0.html

参考这个.

设定好绘图区域大小后再重绘就OK了.
[/Quote]

不懂啊！我十字架画上去了，上面的刻度怎么画啊？可不可以有个完整的例子？

[cBirdNO1NO1]

如:
sn=100
me.scale (-sn,sn)-(sn,-sn) '屏幕中心为原点\X轴水平向右,Y轴垂直向上的自定义坐标系
画图时,数据不变,只改变sn的值即可.

[VIVI0622]

可以实现放大缩小？

[贝隆]

帮顶

[cBirdNO1NO1]

以下为窗体模块中的代码，单击窗体看看？
Dim s As Single
Sub drawc(sc As Single) 'sc为缩放倍数
Dim i As Single
Me.Scale (-100, 100)-(100, -100)
Me.Cls
Me.Line (-100, 0)-(100, 0), vbRed
Me.Line (0, -100)-(0, 100), vbRed
For i = -100 To 100
Me.Line (i - 1, 100 * sc * Sin((i - 1) * 0.0628 / sc))-(i, 100 * sc * Sin(i * 0.0628 / sc)), vbBlue
Next
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then s = s + 0.1 Else s = s - 0.1
If s <= 0 Then s = 0.1
drawc s
End Sub

[VIVI0622]

能不能在用Command1控制？