前提:使用scale在picturebox中绘制一个坐标轴
问题:1)绘制点时,点坐标能否用val(text1.text)表示
2)如果1)成立,如何绘制圆弧,并且连接三个点(三点分别为:弧线的起始点、中点、终结点)
以下是我的代码
Private Sub Command3_Click()
Picture1.Cls
Picture1.ScaleMode = 3 '像素
Picture1.Scale (0, 0)-(103, 103) '定义左上角座标为(0,0),右下角座标为(103,103)
Picture1.DrawWidth = 1 '设置绘线宽度
Picture1.Line (0, 50)-(100, 50), vbBlack ' 绘坐标横线
Picture1.Line (50, 0)-(50, 100), vbBlack ' 绘坐标纵线
' 指定位置显示测设参考图
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print "测设参考图"
'指定位置显示原点O
Picture1.CurrentX = 50
Picture1.CurrentY = 50
Picture1.Print "O"
' 指定位置显示-1Ok
Picture1.CurrentX = 0
Picture1.CurrentY = 50
Picture1.Print "-10k"
' 指定位置显示-8k
Picture1.CurrentX = 10
Picture1.CurrentY = 50
Picture1.Print "-8k"
' 指定位置显示-6k
Picture1.CurrentX = 20
Picture1.CurrentY = 50
Picture1.Print "-6k"
' 指定位置显示-4k
Picture1.CurrentX = 30
Picture1.CurrentY = 50
Picture1.Print "-4k"
' 指定位置显示-2k
Picture1.CurrentX = 40
Picture1.CurrentY = 50
Picture1.Print "-2k"
' 指定位置显示2k
Picture1.CurrentX = 60
Picture1.CurrentY = 50
Picture1.Print "2k"
' 指定位置显示4k
Picture1.CurrentX = 70
Picture1.CurrentY = 50
Picture1.Print "4k"
' 指定位置显示6k
Picture1.CurrentX = 80
Picture1.CurrentY = 50
Picture1.Print "6k"
' 指定位置显示8k
Picture1.CurrentX = 90
Picture1.CurrentY = 50
Picture1.Print "8k"
' 指定位置显示10k
Picture1.CurrentX = 100
Picture1.CurrentY = 50
Picture1.Print "10k"
'指定位置显示-10k
Picture1.CurrentX = 50
Picture1.CurrentY = 0
Picture1.Print "-10k"
' 指定位置显示-8k
Picture1.CurrentX = 50
Picture1.CurrentY = 10
Picture1.Print "-8k"
' 指定位置显示-6k
Picture1.CurrentX = 50
Picture1.CurrentY = 20
Picture1.Print "-6k"
' 指定位置显示-4k
Picture1.CurrentX = 50
Picture1.CurrentY = 30
Picture1.Print "-4k"
' 指定位置显示-2k
Picture1.CurrentX = 50
Picture1.CurrentY = 40
Picture1.Print "-2k"
' 指定位置显示2k
Picture1.CurrentX = 50
Picture1.CurrentY = 60
Picture1.Print "2k"
' 指定位置显示4k
Picture1.CurrentX = 50
Picture1.CurrentY = 70
Picture1.Print "4k"
' 指定位置显示6k
Picture1.CurrentX = 50
Picture1.CurrentY = 80
Picture1.Print "6k"
' 指定位置显示8k
Picture1.CurrentX = 50
Picture1.CurrentY = 90
Picture1.Print "8k"
' 指定位置显示10k
Picture1.CurrentX = 50
Picture1.CurrentY = 100
Picture1.Print "10k"
End Sub