文件名称: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