Olá!!!

 

Tenho um combo que qndo o usuário digita algo, faz uma pesquisa e popula este combo. Qndo ele selecionar algum dos resultados listados, este combo deve ser limpo e posteriormente aparecer uma mensagem original... Parece simples, mas não sei pq o código abaixo não funciona...

 

Private Sub Combo1_Click()
    Combo1.Clear
    Combo1.Text = "Digite algo para pesquisa..."
End Sub

 

não sei como você está fazendo a pesquisa para popular este combo, mas o problema é o seguinte, qundo você digitar qualquer coisa, e selecionar o que foi listado no combo o evento click vai funcionar apagando a combo este é o problema.

 

dica se você estápovoandoa combo com dados de um banco de dados utilize a função change da combo, e não o evento click.

 

para ser mais preciso o ideal seria postar o código que está utilizando para povoar esta combo.

 

Não importa como está sendo populado a lista do combo, pois o problema não está no preenchimento deste, e sim quero a mensagem após limpa-lo... Veja exemplo abaixo:

 

Crie um formulario, com um único combo (combo1) e copie o código abaixo:

 

Private Sub Form_Load()
    Combo1.AddItem "Conteudo 1"
    Combo1.AddItem "Conteudo 2"
    Combo1.AddItem "Conteudo 3"
    Combo1.AddItem "Conteudo 4"
    Combo1.AddItem "Conteudo 5"
End Sub
Private Sub Combo1_Click()
    Combo1.Clear
    Combo1.Text = "Digite algo para pesquisa..."
End Sub

 

Ao clicar no combo ele zera, mas não aparece a mensagem "Digite algo para pesquisa..."...

Se vc debugar, vai perceber que ele joga o texto para o combo, mas ao passar pelo End Sub ele apaga !!!!

veja a solução que encontrei

 

Private Sub Form_Load()
    Combo1.AddItem "Conteudo 1"
    Combo1.AddItem "Conteudo 2"
    Combo1.AddItem "Conteudo 3"
    Combo1.AddItem "Conteudo 4"
    Combo1.AddItem "Conteudo 5"
End Sub

Private Sub Combo1_Click()
   Combo1.Text = "Digite algo para pesquisa..."
   While c < Combo1.ListCount
   Combo1.RemoveItem (c)
   Wend
End Sub

Deu certo,

Valeu !!!