ADICIONAR DADOS NO COMBOBOX SEM APAGAR O TEXT

WEBIER 24/11/2004 21:48:59
#51853
possui um combobox com esse codigo no gotfocus:

If Combo1.Text = "2Âê, 4Âê e 6Âê" Then
Combo2.Clear
Combo2.AddItem "08:00"
Combo2.AddItem "09:00"
Combo2.AddItem "10:00"
Combo2.AddItem "14:00"
Combo2.AddItem "15:00"
Combo2.AddItem "16:00"
Combo2.AddItem "17:00"
Combo2.AddItem "18:00"
Combo2.AddItem "19:00"
Combo2.AddItem "20:00"
ElseIf Combo1.Text = "3Âê e 5Âê" Then
Combo2.Clear
Combo2.AddItem "08:00"
Combo2.AddItem "09:30"
Combo2.AddItem "14:00"
Combo2.AddItem "15:30"
Combo2.AddItem "17:00"
Combo2.AddItem "18:30"
Combo2.AddItem "20:00"
ElseIf Combo1.Text = "Sábados" Then
Combo2.Clear
Combo2.AddItem "08:00"
Combo2.AddItem "11:00"
Combo2.AddItem "14:00"
Combo2.AddItem "17:00"
ElseIf Combo1.Text = "Domingos" Then
Combo2.Clear
Combo2.AddItem "08:00"
Combo2.AddItem "11:00"
Combo2.AddItem "14:00"
Combo2.AddItem "17:00"
ElseIf Combo1.Text = "Todos" Then
Combo2.Clear
Combo2.AddItem "08:00"
Combo2.AddItem "08:30"
Combo2.AddItem "09:00"
Combo2.AddItem "09:30"
Combo2.AddItem "10:00"
Combo2.AddItem "10:30"
Combo2.AddItem "14:00"
Combo2.AddItem "14:30"
Combo2.AddItem "15:00"
Combo2.AddItem "15:30"
Combo2.AddItem "16:00"
Combo2.AddItem "16:30"
Combo2.AddItem "17:00"
Combo2.AddItem "17:30"
Combo2.AddItem "18:00"
Combo2.AddItem "18:30"
Combo2.AddItem "19:00"
Combo2.AddItem "19:30"
Combo2.AddItem "20:00"
Else
Combo2.Clear
Exit Sub
End If
SendKeys "{F4}"


.... se deixo sem o .CLEAR ele não limpa, mas toda vez vai adicionando mais e mais a cada gotfocus...
... se deixo o .CLEAR toda vez que o foco cai no combo ele é limpo...

O que quero?
imagine que no combobox tem o text=08:00 ... caso eu escolha no combo1 outra coisa e voltar para o combo2 ele deixe o text=08:00 e adicione no additem os novos itens do combobox, apagando os outros existentes... sem apagar o nome exibido no text do combobox.
DNEVONY 24/11/2004 21:55:49
#51856 Resposta escolhida
Webier cria uma string:
Dim vCombo as String
ai vc manda que ela fique com o texto da combo antes de dar o CLEAR e após ele carregar a combo novamente vc manda que o text da combo receba o conteúdo da string.
se naum ficou claro me avise que eu crio um exemplo para vc

espero ter ajudado e lembre-se de encerrar seu tópico assim que sua dúvida for resolvida
Tópico encerrado , respostas não são mais permitidas
Voltar