在vb上用画一个原点不在中心的坐标系我想用picturebox画一个原点在左下角,只要两轴正半轴的部分(向右和向上)的坐标系,横轴单位长度1,总长10;纵轴单位长度50,总长300.请问代码是什么?麻
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 23:56:47
在vb上用画一个原点不在中心的坐标系我想用picturebox画一个原点在左下角,只要两轴正半轴的部分(向右和向上)的坐标系,横轴单位长度1,总长10;纵轴单位长度50,总长300.请问代码是什么?麻
在vb上用画一个原点不在中心的坐标系
我想用picturebox画一个原点在左下角,只要两轴正半轴的部分(向右和向上)的坐标系,横轴单位长度1,总长10;纵轴单位长度50,总长300.请问代码是什么?麻烦写出全部代码和操作步骤,xiexie!
在vb上用画一个原点不在中心的坐标系我想用picturebox画一个原点在左下角,只要两轴正半轴的部分(向右和向上)的坐标系,横轴单位长度1,总长10;纵轴单位长度50,总长300.请问代码是什么?麻
'添加一个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
'如果您满意,请采纳以支持我,