Question

我用VB在图像框里画了一条直线，怎么在直线上标上数据呢？相当于一条数轴！谢谢了

Answer 1

Private Sub Command1_Click()
Picture1.Scale (-10, -10)-(10, 10)
Picture1.Line (-10, 0)-(10, 0)
Picture1.Line (0, -10)-(0, 10)
For i = -10 To 10 Step 5
Picture1.CurrentX = i
Picture1.CurrentY = 0
Picture1.Print i
Picture1.CurrentX = 0
Picture1.CurrentY = i
Picture1.Print i
Next
End Sub

Answer 2

新建一个工程放入一个Picture1 Private Declare Function ReleaseCapture Lib

追问

能详细点吗 看不懂 刚学的VB