在vb上用画一个原点不在中心的坐标系我想用picturebox画一个原点在左下角,只要两轴正半轴的部分（向右和向上）的坐标系,横轴单位长度1,总长10；纵轴单位长度50,总长300.请问代码是什么?麻

Question

在vb上用画一个原点不在中心的坐标系
我想用picturebox画一个原点在左下角,只要两轴正半轴的部分（向右和向上）的坐标系,横轴单位长度1,总长10；纵轴单位长度50,总长300.请问代码是什么?麻烦写出全部代码和操作步骤,xiexie!

Answer 1

'添加一个picturebox,命名为p1,在p1_click()事件中输入以下代码
Private Sub p1_Click()
p1.Scale (-0.5, 310)-(11, -10)
p1.Line (0, 300)-(0, 0)
p1.Line (0, 0)-(10, 0)
p1.Line (0, 300)-(-0.2, 280)
p1.Line (0, 300)-(0.2, 280)
p1.Line (10, 0)-(9.8, 6)
p1.Line (10, 0)-(9.8, -6)
For i = 1 To 10
p1.PSet (i, 1)
p1.ScaleX (i - 0.5)
p1.ScaleY (0)
p1.Print i
Next
For j = 0 To 300 Step 50
p1.PSet (0.05, j)
p1.ScaleX (-0.4)
p1.ScaleY (j - 10)
p1.Print j
Next
End Sub
'如果您满意,请采纳以支持我,