SELECT CASE
PESSOAL TO TENTANDO FAZER ESSE SELECT CASE, POREM NAO ESTOU CONSEGUINDO, SOU NOVO EM VB, SE PUDEREM ME AJUDAR, VAI O CODIGO ABAIXO.!
Private Sub txtperiodo_LostFocus()
Select Case txtperiodo.Text = c
Case [Ô]txtperiodo.Text = 11:00[Ô]
txtatividade.Text = [Ô]MEIA[Ô]
Case [Ô]txtperiodo.Text = 06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Case [Ô]txtperiodo.Text = 04:00[Ô]
txtatividade.Text = [Ô]ESPECIAL[Ô]
Case [Ô]txtperiodo.Text = 03:00[Ô]
txtatividade.Text = [Ô]DEMONSTRAÇÃO[Ô]
End Select
End Sub
BOM NAO SEI NO QUE ESTOU ERRANDO , SE PUDEREM ME AJUDAR FICAREI GRATO.!
VALEU PESSOAL ATé MAIS
Private Sub txtperiodo_LostFocus()
Select Case txtperiodo.Text = c
Case [Ô]txtperiodo.Text = 11:00[Ô]
txtatividade.Text = [Ô]MEIA[Ô]
Case [Ô]txtperiodo.Text = 06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Case [Ô]txtperiodo.Text = 04:00[Ô]
txtatividade.Text = [Ô]ESPECIAL[Ô]
Case [Ô]txtperiodo.Text = 03:00[Ô]
txtatividade.Text = [Ô]DEMONSTRAÇÃO[Ô]
End Select
End Sub
BOM NAO SEI NO QUE ESTOU ERRANDO , SE PUDEREM ME AJUDAR FICAREI GRATO.!
VALEU PESSOAL ATé MAIS
qual erro?
Veja esse tópico 
A estrutura Select Case : múltiplas possibilidades
Você esta usando errado o select case...
Acredito que ficaria assim:
Private Sub txtperiodo_LostFocus()
Select Case txtperiodo.Text
Case [Ô]11:00[Ô]
txtatividade.Text = [Ô]MEIA[Ô]
Case [Ô]06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Case [Ô]04:00[Ô]
txtatividade.Text = [Ô]ESPECIAL[Ô]
Case [Ô]03:00[Ô]
txtatividade.Text = [Ô]DEMONSTRAÇÃO[Ô]
End Select
End Sub
A estrutura Select Case : múltiplas possibilidadesVocê esta usando errado o select case...
Acredito que ficaria assim:
Private Sub txtperiodo_LostFocus()
Select Case txtperiodo.Text
Case [Ô]11:00[Ô]
txtatividade.Text = [Ô]MEIA[Ô]
Case [Ô]06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Case [Ô]04:00[Ô]
txtatividade.Text = [Ô]ESPECIAL[Ô]
Case [Ô]03:00[Ô]
txtatividade.Text = [Ô]DEMONSTRAÇÃO[Ô]
End Select
End Sub
Cara valeu pela Ajuda, eu quebrei a cabeça aqui e consegui como vc falo ai, muito thanks.!
O SELECT CASE exige que você faça a referência a uma variável. No seu caso TXTPERIODO.TEXT
Nas comparações, a variável já foi definida, basta o valor. Como citado no exemplo acima.
Se você quiser inserir mais valores na mesma comparação, separe-os com VÃRGULA:
Case [Ô]11:00[Ô],[Ô]06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Nas comparações, a variável já foi definida, basta o valor. Como citado no exemplo acima.
Se você quiser inserir mais valores na mesma comparação, separe-os com VÃRGULA:
Case [Ô]11:00[Ô],[Ô]06:00[Ô]
txtatividade.Text = [Ô]INTEGRAL[Ô]
Tópico encerrado , respostas não são mais permitidas