PREENCHER UM COMBOBOX COM UMA FUNCTION

FREDSMORAIS 20/08/2011 18:31:19
#382174
Pessoal,


Estou precisando preencher um combobox atravex de uma function. tentei o seguinte código, mas não deu certo:


Public Function [txt-color=#e80000]populacmb[/txt-color]() As ListItems

Dim lista As ListItems

lista.Add ([Ô]teste1[Ô])
lista.Add ([Ô]teste2[Ô])

[txt-color=#e80000]populacmb [/txt-color]= lista

End Function



Private Sub Command9_Click()

Combo2.List = [txt-color=#e80000]populacmb[/txt-color]

End Sub[txt-color=#e80000] [/txt-color]



Qual a solução?
MARCELO.TREZE 20/08/2011 19:15:13
#382175 Resposta escolhida
para popular combo

seria assim

Public Function PopulaCmb(cmb As Combobox)
cmb.AddItem [Ô]teste1[Ô]
cmb.AddItem [Ô]teste2[Ô]
End Function


Private Sub Command9_Click()
PopulaCmb Combo2
End Sub
FREDSMORAIS 22/08/2011 12:02:08
#382221
Perfeito!
Tópico encerrado , respostas não são mais permitidas
Voltar