Search

A carregar...

Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-01-13

Quando criamos uma Caixa de Combinação dentro de um UserForm,



em vez de preencher o campo RowSource nas Propriedades da Caixa,



podemos optar pelo seu preenchimento



através de VBE.

O Código:

Private Sub UserForm_Initialize()

    ContarEntradas
    CarregarCaixa
    lblTitulo.SetFocus
End Sub

Sub CarregarCaixa()
    Dim genero(14) As String
    genero(0) = "Romance"
    genero(1) = "Policial"
    genero(2) = "Técnico"
    genero(3) = "Estudo"
    genero(4) = "Clássico"
    genero(5) = "Crónica"
    genero(6) = "História"
    genero(7) = "Informática"
    genero(8) = "Literatura"
    genero(9) = "Direito"
    genero(10) = "Economia.Gestão"
    genero(11) = "Esoterismo"
    genero(12) = "Dicionário.Enciclopédia"
    genero(13) = "Poesia"
    genero(14) = "Não Classificado"
    cboGenero.List = genero()
End Sub