VB 制作了一个小闹钟 只想要中间的圆表盘

来源：百度知道 编辑：UC知道 时间：2024/06/25 10:10:06
想在运行的时候不显示周围的方框，外表就是一个圆表盘
或者说想让圆表盘的周围透明...
就是实现无边框显示啦！！

下面是一个时钟程序代码，你可以参考一下。

Const PI = 3.14159265
Dim H, W, R As Integer '窗体高、宽、圆半径

Private Sub BiaoKe()
Dim I As Integer
'外盘
Circle (W \ 2, H \ 2), R, vbBlue
'中心
Circle (W \ 2, H \ 2), 1, vbWhite
'盘面各点
For I = 0 To 59
If I Mod 5 = 0 Then
Circle (W \ 2 + R * Cos(I * PI / 30), H \ 2 + R * Sin(I * PI / 30)), 2, vbGreen
Else
Circle (W \ 2 + R * Cos(I * PI / 30), H \ 2 + R * Sin(I * PI / 30)), 1, vbWhite
End If
Next I
End Sub

Private Sub Form_Load()
Me.Show
Me.Cls
H = frmTime.ScaleHeight
W = frmTime.ScaleWidth
R = W \ 4
lbTime.Left = (frmTime.ScaleWidth - lbTime.Width) \ 2
lbTime.Top = frmTime.ScaleHeight - R \ 4
End Sub

Private Sub Form_Resize()
Call Form_Load
End Sub

Private Sub Timer1_Timer()
Dim T1, T2, T3 As Integer