vb编程,画一个表盘弧度200度,,20个刻度,显示范围-30到70
发布网友
发布时间：2022-12-25 08:56
共1个回答
热心网友
时间：2023-10-11 22:56
Dim px As Long, py As Long, i As Long
Picture1.Cls
Picture1.ForeColor = &H33AA22
Picture1.Circle (3000, 3000), 2800, &ha0a0a0, -350 * PI / 180, -190 * PI / 180, 1
For i = 0 To 20
px = cRadius * Cos(-10 * PI / 180 + i * 10 * PI / 180) + CX
py = cRadius * -Sin(-10 * PI / 180 + i * 10 * PI / 180) + CY '电脑和标准坐标系Y轴相反，所以这里用 -Sin
Picture1.PSet (px, py), &H5555EE '为了更加醒目可以画圆
Picture1.CurrentX = px '这里定位刻度文字位置，可以细调
Picture1.CurrentY = py
Picture1.Print Format(-30 + i * 5)
Next i
