Jump to content
Fórum Script Brasil
  • 0

Combo: Descobrir Texto A Partir Do Index ?


vilmarbr
 Share

Question

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

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0
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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...