Question

[初学者]}关于在VB picture中画坐标系的问题

picture 大小为3500*3500 我想在其中建立一个直角坐标系（原点在左下角的某点），代码如下，但运行以后坐标系却出现在form1中，而且坐标系统也没变 不知道是什么缘故 希望有个高手帮忙解惑Private Sub Command2_Click()Dim x, y, i, j As IntegerPicture1.RefreshPicture1.Scale (-350, 3150)-(3150, -350)Line (0, 0)-(3150, 0), vbBlueLine (0, 0)-(0, 3150), vbBlueDrawWidth = 10Picture1.Circle (0, 0), 0, vbBlueEnd SubPrivate Sub Command3_Click()Picture1.ClsEnd Sub





Answer 1

注意：
语句中，属性和方法左面不指定具体对象，就成为窗体Form1的属性和方法了？
要这样
Dim x As Integer, y As Integer, i As Integer, j As Integer
Picture1.Refresh
Picture1.Scale (-350, 3150)-(3150, -350)
Picture1.Line (0, 0)-(3150, 0), vbBlue
Picture1.Line (0, 0)-(0, 3150), vbBlue
Picture1.DrawWidth = 10
Picture1.Circle (0, 0), 0, vbBlue