ADICIONANDO ITENS NA COMBOBOX

DARTAGNAN 11/04/2004 06:57:16
#19888
Private Sub novoprojeto_Click()
Dim a As String


a = InputBox("Enter a name for the new profile:")
If "a" = Empty Then
Unload Me
Else
Combo3.AddItem a
End If


End Sub



Eu tenho isso ai minha duvida eh, como eu faco para quando a pessoa escreve no inputbox aparece direto no combo3

pois dakele jeito ali ele aparece mais tem q abri o combo e selecionar
eu gostaria q aparecece direto

obrigado
USUARIO.EXCLUIDOS 11/04/2004 07:12:58
#19890 Resposta escolhida
Private Sub novoprojeto_Click()
Dim a As String
a = InputBox("Enter a name for the new profile:")
If "a" = Empty Then
Unload Me
Else
Combo3.AddItem a
Combo3.ListIndex = Combo3.ListCount - 1
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar