Question

VB picturebox中画坐标轴的方法

最好能编一段程序

Answer 1

Private Sub Form_Click()
w = Picture1.Width / 2: h = Picture1.Height / 2
Picture1.Scale (-w, h)-(w, -h)
Picture1.Line (-w, 0)-(w, 0), vbBlue
Picture1.Line (w, 0)-(w - 100, 100), vbBlue
Picture1.Line (w, 0)-(w - 100, -100), vbBlue
Picture1.Line (0, -h)-(0, h), vbBlue
Picture1.Line (0, h)-(100, h - 100), vbBlue
Picture1.Line (0, h)-(-100, h - 100), vbBlue
Picture1.PSet (0, 0), vbRed
End Sub