POPULAR COMBO

IRENKO 25/10/2011 14:20:33
#387723
Pessoal isso é somente para esclarecer.

Exite maneira de popular um ComboBox usando variaveis Type?

Estou fazendo assim:

Dim Operacao() As Natureza

Private Type Natureza
TipoNatureza As String
End Type

Private Sub Form_Load()

ReDim Operacao(4) As Natureza
Operacao(0).TipoNatureza = [Ô]SAÍDA DE ESTOQUE[Ô]
Operacao(1).TipoNatureza = [Ô]RETORNO DE CONSERTO[Ô]
Operacao(2).TipoNatureza = [Ô]RETORNO DE INDUSTRIALIZAÇÃO[Ô]
Operacao(3).TipoNatureza = [Ô]AMOSTRA[Ô]
Operacao(4).TipoNatureza = [Ô]TESTE[Ô]
End Sub

Agora como adiciono em um ComboBox?
FEDERHEN 25/10/2011 15:34:13
#387732
Eu faria direto:

Combo1.Clear
Combo1.AddItem [Ô]SAÍDA DE ESTOQUE[Ô]
Combo1.AddItem [Ô]RETORNO DE CONSERTO[Ô]
Combo1.AddItem [Ô]RETORNO DE INDUSTRIALIZAÇÃO[Ô]
Combo1.AddItem [Ô]AMOSTRA[Ô]
Combo1.AddItem [Ô]TESTE[Ô]
IRENKO 25/10/2011 15:44:03
#387734
FEDERHEN, esse modo de popular um combobox eu sei, a curiosidade é adaptar o jeito q eu passei no inicio do tópico. Veja bem, é apenas pra saber se é possivel, se é, como?
ROBIU 25/10/2011 16:22:15
#387736 Resposta escolhida
Vê se é isso que deseja:

Dim Operacao() As Natureza

Private Type Natureza
    TipoNatureza As String
End Type

Private Sub Form_Load()
    Dim i As Integer
    ReDim Operacao(4) As Natureza
    Operacao(0).TipoNatureza = [Ô]SAÍDA DE ESTOQUE[Ô]
    Operacao(1).TipoNatureza = [Ô]RETORNO DE CONSERTO[Ô]
    Operacao(2).TipoNatureza = [Ô]RETORNO DE INDUSTRIALIZAÇÃO[Ô]
    Operacao(3).TipoNatureza = [Ô]AMOSTRA[Ô]
    Operacao(4).TipoNatureza = [Ô]TESTE[Ô]
    
    For i = 0 To UBound(Operacao)
        Combo1.AddItem Operacao(i).TipoNatureza
    Next i
End Sub
IRENKO 25/10/2011 16:45:23
#387737
Isso mesmo ROBIU! Valeu!
Tópico encerrado , respostas não são mais permitidas
Voltar