Programa Que Da "bom Dia" "boa Tarde" E "boa Noite"

Um código ótimo para quem quer aprender a fazer eventos em determinadas Horas:

'No evento Form_Load() do Form principal:
Private Sub Form_Load()
 Me.Show
 If Time$ > "19:00:00" Then
MsgBox "Boa noite e seja bem vindo!!!", _
	   vbInformation
 ElseIf Time$ > "12:00:00" Then
MsgBox "Boa tarde e seja bem vindo!!!", _
	   vbInformation
 ElseIf Time$ > "00:00:00" Then
MsgBox "Bom dia e seja bem vindo!!!", _
	   vbInformation
 End If
End Sub

Assim, ele lhe dirá:

* "Bom dia e seja bem vindo!!!" - de manha

* "Boa tarde e seja bem vindo!!!" - de tarde

* "Boa noite e seja bem vindo!!!" - de noite

créditos: Silício

hehehe bem simples!

e ajuda a entender os conceitos de VB, boaa laairoy!! ^^

Eu adoro esses programas educados!! ahahah

time$ - é ele que pega o horário do sistema?

E para que serve o me.show?

Abraços

Eu adoro esses programas educados!! ahahah

 

time$ - é ele que pega o horário do sistema?

 

E para que serve o me.show?

 

Abraços

time$ - Verifica hora do sistema.

me.show - Oculta o form.

até mais,

e aond eu ponho isso?

no Evento Form_Load uai!!

se tem VB instalado ai!?

abre o vb vai aparece uma Janela sem nada "Form" da doi clicks nele a vai aparece

Private Sub Form_Load()

End Sub

Você coloca isso entre o Form_Load e o End Sub =)

Ah entendi,

Ele somente vai dar o aviso...

Agora que me liguei

Seguindo essa linha dá para fazer um que diz as horas e etc... (Bom para quem se perde no tempo quando está no pc)

ahha

Abraços

ehuahehea

parabens ae rapaz...

bem criativo, e como o andre falo, da pra aproveitar a ideia e fazer outras coisas :x

Criatividade é conhecimento

Parabens isso sim é uma obra de arte

huahuahuah

@Eingenlieb

O me.show serve para esconder/aparecer o formulário que está sendo manipulado, por isso o uso do "me", mas caso você queira com outro formulário, basta colocar o nome do mesmo.

time$ - Verifica hora do sistema.

 

me.show - Oculta o form.

 

 

até mais,

time$

time = retorna o horario

com o simbolo: $ no final retorna o binario de string (optminização)

@Eingenlieb

 

O me.show serve para esconder/aparecer o formulário que está sendo manipulado, por isso o uso do "me", mas caso você queira com outro formulário, basta colocar o nome do mesmo.

me.show

me.show param

me.hide

unload me

me = objeto Form atual

.show = função que faz o formulario aparecer (quando estiver Hide, tambem serve para dar Load em certos casos)

.show Param = vbModeless (0)|vbModal(1)

.Show 0 ou vbModeless ou Nada: mostra o formulario normalmente

.Show 1 ou vbModal: mostra o formulario em primeiro plano dos formularios, inquanto o mesmo não for desativado você não pode mexer nos outros (como MessageBox)

.Hide esconde o formulario POREM ELE FICA ATIVO

unload me, deleta o formulario, ele some e perde sua memoria

PS: me se aplica ao form atual, porem podemos utilizar o nom de outros forms em qualquer das funções citadas acima

lol, pra fae isso eh a coisa mais facil do mundo, da pra faze um programa que de uma mensagem determinado dia, etc