|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Programa Educado (Bom Dia/Tarde/Noite)
|
 |
|
|
|
Postada em 9/9/2003 por Deus Eros
Bom pessoal esta dica é para quem quer deixar o programa bem educado dizendo Bom Dia, Boa Tarde ou Boa Noite.
Bom Dia
Boa Tarde
Boa Noite
______________________________________
Na General (Declarations):
Dim x As String
Dim y As String
Dim z As String
______________________________________
No:
Private Sub Form_Load()
x = String(31, " ") + "B o m D i a "
y = String(31, " ") + "B o a T a r d e "
z = String(31, " ") + "B o a N o i t e "
End Sub
_________________________________________
No TIMER :
(Com Interval de 100)
Private Sub Timer1_Timer()
If Hour(Time) < 12 Then
x = Mid(x, 2) & Left(x, 1)
frmStatus.StatusName.Caption = x
End If
If Hour(Time) >= 12 Then
y = Mid(y, 2) & Left(y, 1)
frmStatus.StatusName.Caption = y
End If
If Hour(Time) >= 19 Then
z = Mid(z, 2) & Left(z, 1)
frmStatus.StatusName.Caption = z
End If
End Sub
Faloæ...
"Eu"
|
|
|
|
|
