Question

VB怎样在picturebox中画一个坐标系？

Answer 1

Option Explicit

Private Sub Command1_Click()
Picture1.BackColor = vbGreen
Picture1.Cls

Picture1.ScaleMode = 3 '像素
Picture1.Scale (-20, 120)-(110, -20) '定义左上角座标为(-20,120),右下角座标为110,-20)

'设置绘线宽度
Picture1.DrawWidth = 1

' 绘坐标横线
Picture1.Line (0, 0)-(110, 0), vbBlack
Picture1.Line (0, 10)-(100, 10), vbBlack
Picture1.Line (0, 20)-(100, 20), vbBlack
Picture1.Line (0, 30)-(100, 30), vbBlack
Picture1.Line (0, 40)-(100, 40), vbBlack
Picture1.Line (0, 50)-(100, 50), vbBlack
Picture1.Line (0, 60)-(100, 60), vbBlack
Picture1.Line (0, 70)-(100, 70), vbBlack
Picture1.Line (0, 80)-(100, 80), vbBlack
Picture1.Line (0, 90)-(100, 90), vbBlack
Picture1.Line (0, 100)-(100, 100), vbBlack

' 绘坐标纵线
Picture1.Line (0, 0)-(0, 120), vbBlack
Picture1.Line (10, 0)-(10, 100), vbBlack
Picture1.Line (20, 0)-(20, 100), vbBlack
Picture1.Line (30, 0)-(30, 100), vbBlack
Picture1.Line (40, 0)-(40, 100), vbBlack
Picture1.Line (50, 0)-(50, 100), vbBlack
Picture1.Line (60, 0)-(60, 100), vbBlack
Picture1.Line (70, 0)-(70, 100), vbBlack
Picture1.Line (80, 0)-(80, 100), vbBlack
Picture1.Line (90, 0)-(90, 100), vbBlack
Picture1.Line (100, 0)-(100, 100), vbBlack
Picture1.Line (110, 0)-(110, 100), vbBlack

'指定位置显示原点O
Picture1.CurrentX = -5
Picture1.CurrentY = 0
Picture1.Print "O"

' 指定位置显示1O
Picture1.CurrentX = -10
Picture1.CurrentY = 10
Picture1.Print "1O"

' 指定位置显示2O
Picture1.CurrentX = -10
Picture1.CurrentY = 20
Picture1.Print "2O"

' 指定位置显示3O
Picture1.CurrentX = -10
Picture1.CurrentY = 30
Picture1.Print "3O"

' 指定位置显示4O
Picture1.CurrentX = -10
Picture1.CurrentY = 40
Picture1.Print "4O"

' 指定位置显示5O
Picture1.CurrentX = -10
Picture1.CurrentY = 50
Picture1.Print "5O"

' 指定位置显示6O
Picture1.CurrentX = -10
Picture1.CurrentY = 60
Picture1.Print "6O"

' 指定位置显示7O
Picture1.CurrentX = -10
Picture1.CurrentY = 70
Picture1.Print "7O"

' 指定位置显示8O
Picture1.CurrentX = -10
Picture1.CurrentY = 80
Picture1.Print "8O"

' 指定位置显示9O
Picture1.CurrentX = -10
Picture1.CurrentY = 90
Picture1.Print "9O"

' 指定位置显示10O
Picture1.CurrentX = -10
Picture1.CurrentY = 100
Picture1.Print "10O"

' 指定位置显示1O
Picture1.CurrentX = 0
Picture1.CurrentY = 110
Picture1.Print "效率"

'指定位置显示原点O.2
Picture1.CurrentX = 10
Picture1.CurrentY = 0
Picture1.Print ".2"

' 指定位置显示.4
Picture1.CurrentX = 20
Picture1.CurrentY = 0
Picture1.Print ".4"

' 指定位置显示.6
Picture1.CurrentX = 30
Picture1.CurrentY = 0
Picture1.Print ".6"

' 指定位置显示.8
Picture1.CurrentX = 40
Picture1.CurrentY = 0
Picture1.Print ".8"

' 指定位置显示1
Picture1.CurrentX = 50
Picture1.CurrentY = 0
Picture1.Print "1"

' 指定位置显示1.2
Picture1.CurrentX = 60
Picture1.CurrentY = 0
Picture1.Print "1.2"

' 指定位置显示1.4
Picture1.CurrentX = 70
Picture1.CurrentY = 0
Picture1.Print "1.4"

' 指定位置显示1.6
Picture1.CurrentX = 80
Picture1.CurrentY = 0
Picture1.Print "1.6"

' 指定位置显示1.8
Picture1.CurrentX = 90
Picture1.CurrentY = 0
Picture1.Print "1.8"

' 指定位置显示2
Picture1.CurrentX = 100
Picture1.CurrentY = 0
Picture1.Print "2"

End Sub

追问

做个朋友好么？+623064575 我很佩服你。