Combo: Descobrir Texto A Partir Do Index ?

[vilmarbr]

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, porque não tem esta propriedade

Tentei isto abaixo, mas não dá certo porque 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

[Anderson Fernandes]

Opa, beleza!

deixa eu ver se entendi

você quer saber qual é o texto de uma ComboBox, certo?

mas você quer saber o texto atual ou seja o texto que estiver selecionado

ou você quer verificar se existe na lista da combobox um texto?

[vilmarbr]

Eu quero saber o texto atual ou seja o texto do INDEX que estiver selecionado.

[Anderson Fernandes]

você já tentou fazer isto?

Private Sub Combo1_Change()
Me.Text1 = Me.Combo1.Text
End Sub

Private Sub Combo1_Click()
Me.Text1 = Me.Combo1.Text
End Sub

[kuroi]

Eu quero saber o texto atual ou seja o texto do INDEX que estiver selecionado.

nesse caso acessa a propriedade .Text normalmente.

[vilmarbr]

usando m_frm.cboValidade.List(intJ) deu certo, vejam: B)

ficou assim:

'Oferta de Compra com validade "Executa ou Cancela" (F1)

For intJ = 0 To m_frm.cboValidade.ListCount - 1

If m_frm.cboValidade.List(intJ) = "Executa e Cancela" Then

m_frm.cboValidade.ListIndex = intJ

Exit For

End If

Next intJ

[Anderson Fernandes]

Eu quero saber o texto atual ou seja o texto do INDEX que estiver selecionado.

bom eu testei o seu código e ele funcionou só que o que deu a entender pela sua pergunta era outra coisa

no seu código você passa o valor a ser pesquisado na combo se existir o valor exato ele seleciona na combo.

bom, resolveu seu problema é isso que importa!

valeu cara qualquer duvida estamos ai, beleza!

Achei interesante este seu código! (Simples porem funcional)

bom, apartir do seu código eu criei uma função que eu espero que te ajude em algo!

'Essa é a função
'perceba que a busca é realizada com o operador LIKE
Public Function BuscaCbo(Combo As ComboBox, ByVal TextoProc As String) As Boolean
Dim intJ As Integer
BuscaCbo = False
For intJ = 0 To Me.Combo1.ListCount - 1
    If Combo.List(intJ) Like TextoProc Then
        Combo.ListIndex = intJ
        BuscaCbo = True
    Exit For
End If
Next intJ
End Function

'Este é um exemplo de uso
Private Sub Command1_Click()
If BuscaCbo(Me.Combo1, Me.Text1) = False Then
    MsgBox "Texto não localizado!!!"
Else
    Me.Text1 = Me.Combo1.Text
End If
End Sub