1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dat = DateTimePicker2.Value.Date.ToString.Substring(0, 10)
temps = DateTimePicker1.Value.TimeOfDay.ToString.Substring(0, 5)
If My.Computer.Clock.LocalTime.TimeOfDay.ToString.Substring(0, 5) = temps And My.Computer.Clock.LocalTime.Date.ToString.Substring(0, 10) = dat Then
Timer1.Enabled = False
If txtmsg.Text = "" Then
FrmMémo.lblDate.Text = dat
FrmMémo.lblHeure.Text = temps
FrmMémo.lblTitre.Text = txtnom.Text
FrmMémo.lblContenu.Visible = False
FrmMémo.Show()
Else
FrmMémo.lblDate.Text = dat
FrmMémo.lblHeure.Text = temps
FrmMémo.lblTitre.Text = txtnom.Text
FrmMémo.lblContenu.Text = txtmsg.Text
FrmMémo.Show()
End If
End If
End Sub |
Partager