VB源代码-动态时钟

时间:2012-06-24 08:33:31
【文件属性】:

文件名称:VB源代码-动态时钟

文件大小:24KB

文件格式:EXE

更新时间:2012-06-24 08:33:31

VB

Dim x0 As Single Dim y0 As Single Private Sub Form_Load() With Form1 .Width = 3000 .Height = 3100 .BackColor = vbBlack .Caption = "动态时钟" End With x0 = 1430 y0 = 1290 With Line1 .X1 = x0 .Y1 = y0 End With With Line2 .X1 = x0 .Y1 = y0 End With With Line3 .X1 = x0 .Y1 = y0 End With Line1.Visible = False Line2.Visible = False Line3.Visible = False Line1.BorderColor = vbRed Line2.BorderColor = vbRed Line3.BorderColor = vbRed End Sub


网友评论