无情剑内购破解版:用vb中的line方法编写钟表程序

Private Sub Command1_Click()

End Sub

Private Sub Check1_Click()
If Check1.Value = 0 Then
Timer1.Enabled = False
Check1.Caption = "钟表已停"
Else
Timer1.Enabled = True
Check1.Caption = "钟表正在走动"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 0 Then
Label1.Visible = False
Check2.Caption = "钟表已关闭"
Else
Label1.Visible = True
Check2.Caption = "钟表已打开"
End If

End Sub

Private Sub Form_Load()
Label1.Caption = Time
End Sub

Private Sub HScroll1_Change()
Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value))
End Sub

Private Sub HScroll2_Change()
Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value))

End Sub

Private Sub HScroll3_Change()
Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value))

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Private Sub Timer2_Timer()
Dim i, j, k As Integer
i = Int(Rnd() * 225 + 1) + 0
j = Int(Rnd() * 225 + 1) + 0
k = Int(Rnd() * 225 + 1) + 0
Label1.BackColor = RGB(i, j, k)

End Sub