VB编写时钟

来源：百度知道 编辑：UC知道 时间：2024/05/25 15:13:14
试问用VB编时钟时，添加一个timer控件于一个Line控件时有什么要求吗？
还是随便添加啊？（Index值已经设置了）
我按照书上输入的源代码都没办法得到正确的时钟！大概是添加控件时有问题，请各位大侠帮帮忙啊

有没有设置窗体坐标系？ timer随便画在哪 用到的只是它的sub timer1_timer()事件 line 时间设置它的起始点和终点画线 通过设置窗体的DrawWidth 属性和ForeColor来设置线条宽度和颜色

在窗体中添加一个Timer，一个Label，三个Line（位置随便），代码如下：

Dim x0 As Single 'x0,y0表示指针的圆心
Dim y0 As Single

Private Sub Form_Load()

Randomize

x0 = 1500
y0 = 1500

Timer1.Interval = 1000
Label1.BackStyle = 0
Label1.AutoSize = True

With Form1
.Width = 3150
.Height = 3750
.Caption = "模拟时钟"
.BackColor = RGB(188, 238, 104)
End With

With Line1 '时针
.BorderWidth = 3
.X1 = x0
.Y1 = y0
End With

With Line2 '分针
.BorderWidth = 2
.X1 = x0
.Y1 = y0
End With

With Line3 '秒针
.BorderWidth = 1
.X1 = x0