Code: Detail

VisualBasic6.0 - (Portuguese)

Selecionando item do combo pelo itemdata

Rotina para selecionar um item do combo com base na localização de um id contido no itemdata do mesmo

Last update: 18/07/2014

'Rotina para selecionar um item do combo ou listbox através do item data
'Parametro ctl é passado o controle
'Parametro id é passado o valor numérico a ser localizado
Sub SelectItemData(ctl As Control, Id As Integer)
    Dim nCnt As Long

    If TypeName(ctl) = "ComboBox" Or TypeName(ctl) = "ListBox" Then
        For nCnt = 0 To ctl.ListCount - 1
            If ctl.ItemData(nCnt) = Id Then
                ctl.ListIndex = nCnt
                Exit For
               ctl.ListIndex = -1
            End If
    End If
End Sub

'Utilizando a rotina acima

'Carregando o combo com valores
cbo_SetorProdutividade.AddItem ("VALOR 10)
cbo_SetorProdutividade.ItemData(cbo_SetorProdutividade.NewIndex) = 10
cbo_SetorProdutividade.AddItem ("VALOR 20)
cbo_SetorProdutividade.ItemData(cbo_SetorProdutividade.NewIndex) = 20
cbo_SetorProdutividade.AddItem ("VALOR 30)
cbo_SetorProdutividade.ItemData(cbo_SetorProdutividade.NewIndex) = 30
cbo_SetorProdutividade.AddItem ("VALOR 40)
cbo_SetorProdutividade.ItemData(cbo_SetorProdutividade.NewIndex) = 40

'Localizando e selecionando o item
Call SelectItemData(cbo_SetorProdutividade, 20)

Users who have marked this routine as a favorite
The site ti4fun is not responsible for the content on sites for which you have external links

Articles, routines, tips, forums, blogs or any other content posted on ti4fun site is not tested and not validated, so you should test and validate any information collected on the ti4fun site before applying it to final use environment, such as example, production. the TI4FUN site is not responsible for quality or for any damages, direct, indirect or consequential, from use of any content posted by the authors in the site.

All content published on the ti4fun site is the responsibility of the author and do not necessarily express the views of the site ti4fun and its employees.