USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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"
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página