Problemas com StatusBar !

[fagnerx21 0]

Bom,1 codigo vale mais do que 1000 palavras,então vou postar o código do que estou tentando fazer e dou uma breve explicação:

 

Private Sub Form_Activate()

Dim msg As String

 

If Time >= "00:00:00" And Time <= "11:59:59" Then

msg = "Bom Dia ! "

ElseIf Time >= "12:00:00" And Time <= "17:59:59" Then

msg = "Boa Tarde ! "

ElseIf Time >= "18:00:00" And Time <= "23:59:59" Then

msg = "Boa Noite ! "

End If

StatusBar1.Panels(0) = msg

StatusBar1.Panels(2) = WeekDay(Date)

StatusBar1.Panels(3) = Date

End Sub

 

Private Sub Timer1_Timer()

StatusBar1.Panels(1) = Time

End Sub

Então,queria mostrar uma mensagem no painel 0 dependendo da hora,mostrar a hora corrente no painel 1,mostrar o dia da semana no painel 2 e mostrar a data atual no painel 3,será que alguém pode me ajudar por gentileza?

[Claudio Neto 3]

Olha só, para mim seu código funcionou, só alterei duas pequenas coisas.

 

1° o número do index, pois não dá para ter index zero

2° a função que capta o dia da semana

 

Então ficou assim:

CODE

If Time >= "00:00:00" And Time <= "11:59:59" Then

msg = "Bom Dia ! "

ElseIf Time >= "12:00:00" And Time <= "17:59:59" Then

msg = "Boa Tarde ! "

ElseIf Time >= "18:00:00" And Time <= "23:59:59" Then

msg = "Boa Noite ! "

End If

StatusBar1.Panels(1) = msg

StatusBar1.Panels(3) = WeekdayName(Weekday(Date))

StatusBar1.Panels(4) = Date

 

E a parte para exibir a hora está correta, basta deixar o intervalo do obj timer como 1000

[fagnerx21 0]

Olha só, para mim seu código funcionou, só alterei duas pequenas coisas.

 

1° o número do index, pois não dá para ter index zero

2° a função que capta o dia da semana

 

Então ficou assim:

CODE

If Time >= "00:00:00" And Time <= "11:59:59" Then

msg = "Bom Dia ! "

ElseIf Time >= "12:00:00" And Time <= "17:59:59" Then

msg = "Boa Tarde ! "

ElseIf Time >= "18:00:00" And Time <= "23:59:59" Then

msg = "Boa Noite ! "

End If

StatusBar1.Panels(1) = msg

StatusBar1.Panels(3) = WeekdayName(Weekday(Date))

StatusBar1.Panels(4) = Date

E a parte para exibir a hora está correta, basta deixar o intervalo do obj timer como 1000

Opa,valeu cara,quanto ao timer eu nem sei pq coloquei,é pq teclei ctrl + A,mas isso eu já tinha arruma pra pular de 1 em 1 seg.

Valeu ae

[fagnerx21 0]

No event form-load meu aqui continuou dando erro na linha StatusBar1.Panels(3) = WeekdayName(WeekDay(Date))

O erro é:compile error:Sub or Function not defined

[fagnerx21 0]

Bom,já consegui resolver,ele dá esse problema porque essa função não existe,eu teclei F2 e procurei por essa função e ele não achou nada,o código ficou assim então:

Private Sub Form_Load()

Dim msg As String

Dim diasemana As Variant

Dim nomediasemana As String

 

If Time >= "00:00:00" And Time <= "11:59:59" Then

msg = "Bom Dia ! "

ElseIf Time >= "12:00:00" And Time <= "17:59:59" Then

msg = "Boa Tarde ! "

ElseIf Time >= "18:00:00" And Time <= "23:59:59" Then

msg = "Boa Noite ! "

End If

 

diasemana = WeekDay(Date)

 

Select Case diasemana

Case 1

nomediasemana = "Domingo"

Case 2

nomediasemana = "Segunda-Feira"

Case 3

nomediasemana = "Terça-Feira"

Case 4

nomediasemana = "Quarta-Feira"

Case 5

nomediasemana = "Quinta-Feira"

Case 6

nomediasemana = "Sexta-Feira"

Case 7

nomediasemana = "Sabado"

End Select

 

StatusBar1.Panels(1) = msg

StatusBar1.Panels(3) = nomediasemana

StatusBar1.Panels(4) = Date

End Sub

[Claudio Neto 3]

Nossa, esse função não existe para você? Que versão do VB está utilizando?

[fagnerx21 0]

vb 5.0 ee