Question

VB 画图时怎么画坐标轴啊？还是有那个控件啊？谢谢了

二楼的画出来不带箭头的啊，箭头怎么画啊？

Answer 1

Private Sub Form_paint()
Dim i, j As Integer
Me.CurrentX = 0
Me.CurrentY = 0
Print 0
Me.ScaleMode = 3
Me.Line (0, 0)-(0, 3000)
Me.Line (0, 0)-(3000, 0)
For i = 100 To 3000 Step 100
Me.Line (i, 0)-(i, 10)
temp = i
CurrentX = i - TextWidth(temp) / 2
Print i
Next

For i = 100 To 3000 Step 100
Me.Line (0, i)-(10, i)
temp = i
CurrentY = i - TextHeight(temp) / 2
Print i
Next
End Sub

加箭头

Private Sub Form_paint()
Dim i, j As Integer
Me.CurrentX = 10
Me.CurrentY = 10
Print 0
Me.ScaleMode = 3
Me.Line (10, 10)-(10, 600)
Me.Line (10, 10)-(600, 10)
For i = 100 To 500 Step 100
Me.Line (i, 10)-(i, 20)
temp = i
CurrentX = i - TextWidth(temp) / 2
Print i
Next

For i = 100 To 500 Step 100
Me.Line (10, i)-(20, i)
temp = i
CurrentY = i - TextHeight(temp) / 2
Print i
Next
Me.Line (590, 20)-(600, 10) 'x箭头
Me.Line (590, 0)-(600, 10) 'x箭头
Me.Line (0, 590)-(10, 600) 'y箭头
Me.Line (20, 590)-(10, 600) 'y箭头
End Sub

Answer 2

用画直线的方法一点点画出来