临时要用,画了个表盘
'临时要用,画了个表盘, pic1 是一个picturebox ,大一点吧。Option Explicit
Const PI = 3.1415926
Const 长度 = 120
Const 长度2 = 180
Const 中心点 = 2500
Const 半径 = 2400
Private Sub Command1_Click()
Dim i As Long
Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long
Dim s1 As Single, s2 As Single, j1 As Single
pic1.Line (中心点 - 长度, 中心点)-(中心点 + 长度, 中心点)
pic1.Line (中心点, 中心点 - 长度)-(中心点, 中心点 + 长度)
pic1.DrawWidth = 2
pic1.Circle (中心点, 中心点), 半径
For i = 1 To 60
j1 = 2 * PI * i / 60
s1 = Sin(j1)
s2 = Cos(j1)
x1 = 半径 * s1 + 中心点
y1 = 半径 * s2 + 中心点
If i Mod 5 = 0 Then
pic1.DrawWidth = 2
'pic1.ForeColor = RGB(0, 255, 0)
x2 = (半径 - 长度2) * s1 + 中心点
y2 = (半径 - 长度2) * s2 + 中心点
Else
'pic1.ForeColor = 0
pic1.DrawWidth = 1
x2 = (半径 - 长度) * s1 + 中心点
y2 = (半径 - 长度) * s2 + 中心点
End If
pic1.Line (x1, y1)-(x2, y2)
Next i
End Sub