Private Sub IfThen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _
My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then
MsgBox("Tenha um ótimo fim de semana!")
Else
MsgBox("Tenha uma boa semana não trabalhe demais!")
End If
End Sub
End Class
Você pode alterar o dia da semana clicando duas vezes na hora na barra de tarefas do Windows, caso deseje testar a execução de ambos os blocos de código.(A BAR de tarefas é a BAR que contém o WindowsIniciar botão; por padrão, é na parte inferior da área de trabalho e a time aparece no canto direito.) |
Nenhum comentário:
Postar um comentário
Surpreenda com o seu conhecimento...