Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
- tb_now.Text = Now
- tb_Date.Text = Now.Date
- .....(略)
- '檢查checkBox有無打勾
- If CheckBox1.Checked = True Then
- tim1 = Now.TimeOfDay.TotalMinutes
- tim2 = cmb_hour.Text * 60 + cmb_min.Text
- If tim1 >= tim2 Then
- TextBox1.BackColor = Color.Red
- TextBox1.Text = "ON"
- Else
- TextBox1.BackColor = Color.AliceBlue
- TextBox1.Text = "OFF"
- End If
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement