Combobox

[Guest - Jorge -]

Ola pessoal td bem ?

A duvida é o seguinte:

Queremos q ao seleccionar um Item de uma combo, va aparecer numa label um valor associado a essa selecçao ou seja,

Combo com: 1, 2, 3

label deve aparecer quando selecciona o 1 : ola

label deve aparecer quando selecciona o 2 : oi

label deve aparecer quando selecciona o 3 : ui

entendem ?

obrigado

cumps

[abertoletti]

Você pode criar um array com uma String dessa forma

Dim stringA () As String

E quando for adicionar um item novo na combo, fazer isso:

Combo.AddItem "1"

stringA(Combo.NewIndex) = "ola"

Combo.AddItem "2"

stringA(Combo.NewIndex) = "oi"

Combo.AddItem "3"

stringA(Combo.NewIndex) = "ui"

Quando selecionar um item na combo:

Label.Caption = stringA(Combo.ListIndex)

Acredito que assim funcione.

[abertoletti]

Ah me esqueci, antes você vai precisar usar o ReDim na string

ReDim stringA(0 To 'quantidade de itens que o combo terá' )

Option Explicit
Dim stringA() As String

Private Sub Combo1_Click()
    Label1.Caption = stringA(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
ReDim stringA(0 To 2)
    Combo1.AddItem "1"
    stringA(Combo1.NewIndex) = "ola"
    
    Combo1.AddItem "2"
    stringA(Combo1.NewIndex) = "oi"
    
    Combo1.AddItem "3"
    stringA(Combo1.NewIndex) = "ui"
End Sub

[Guest - Jorge -]

é isso mesmo.

obrigado pela ajuda

cumps