Question

VB中为什么我画的坐标轴没有箭头也没有刻度啊

Private Sub Command2_Click()
Dim x As Integer
Dim y As Integer
Picture2.Scale (-50, 70)-(1600, -5) '定义坐标系
Picture2.DrawWidth = 1.2
'画x轴坐标系
Picture2.Line (0, 0)-(1550, 0), vbBlue
Picture2.ForeColor = vbBlue
Picture2.Print "h"
'画温度坐标点（以10度为1个单位）
Picture2.DrawWidth = 4
For y = 0 To 60 Step 10
Picture2.PSet (0, y)
Next y
'画温度坐标点（以1度为1个单位）
Picture2.DrawWidth = 1.2
For y = 1 To 59
Picture2.PSet (0, y)
Next y
'画y轴坐标系
Picture2.Line (0, 0)-(0, 65), vbBlue
Picture2.ForeColor = vbBlue
Picture2.Print "℃"
'画时间坐标点（以1小时为1个单位）
For x = 0 To 1440 Step 60
Picture1.PSet (x, 0)
Next x
'画时间坐标点（以6小时为1个单位）
Picture2.DrawWidth = 4
Picture2.PSet (360, 0)
Picture2.PSet (720, 0)
Picture2.PSet (1080, 0)
Picture2.PSet (1440, 0)
'指定位置显示原点o
Picture2.CurrentX = -30
Picture2.CurrentY = -1
Picture2.Print "0"
End Sub

Answer 1

以你上图中温度为列：
Picture2.DrawWidth = 4
For y = 0 To 60 Step 10
'你要画刻度不应该用PSet事件，应该用line事件
'''Picture2.PSet (0, y)
Picture2.Line (0, y)-(30, y) ''''你可以改变"30“的数值控制刻度长短
Next y