COMBO: DESCOBRIR TEXTO A PARTIR DO INDEX ?

VILMARBR 08/08/2007 13:56:08
#230013
Combo: descobrir texto a partir do Index ?
Como faço isto?
Já tentei:
m_frm.cboValidade.ItemData(intI).Text
m_frm.cboValidade.List(intI).Text
Mas ambos dão erro, pq nao tem esta propriedade
Tentei isto abaixo, mas não dá certo pq toda hora dispara o cboValidade_Click e chama novamente a rotina UpdateUI() que tem o código abaixo entre outros:

If m_Doc.TipoOfertaValidade = "CEC" Then
'Oferta de Compra com validade "Executa ou Cancela" (F1)
intI = 0

Do While intI <= m_frm.cboValidade.ListCount
m_frm.cboValidade.ListIndex = intI

If m_frm.cboValidade.Text = "Executa e Cancela" Then
Exit Do
End If

intI = intI + 1
Loop
End If
USUARIO.EXCLUIDOS 08/08/2007 14:02:40
#230016

tenta assim

Valor = 4

m_frm.cboValidade.ListIndex = Valor

Vai mostrar ou selecionar o item da posíção 4

é isso?
USUARIO.EXCLUIDOS 08/08/2007 14:04:03
#230017
Tente o seguinte:


m_frm.cboValidade.List(intI)



Não precisa do .Text no final, tenta sem ele...
USUARIO.EXCLUIDOS 08/08/2007 14:08:37
#230021 Resposta escolhida
VILMARBR,

Verifica o exemplo a seguir:
1 - Preencher o combo;

Private Sub Form_Load()

'preencher combo
With Combo1
    .AddItem "Acre"
    .AddItem "Ceará"
    .AddItem "Espírito Santo"
    .AddItem "Goiás"
End With

End Sub


2 - Recuperar texto selecionado

Private Sub Command1_Click()

'mensagem com o texto escolhido
MsgBox Combo1.List(Combo1.ListIndex)

End Sub
VILMARBR 08/08/2007 15:57:15
#230055
tecla,

Combo1.List(Combo1.ListIndex) resolveu [S27]

obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar