Pergunte aqui
0

Porque Não Consigo adicionar item em uma ListBox no USerForm

perguntadas 2019-09-05 15:27:39 +0200

imagem do gravatar de ChagasP

updated 2019-09-08 22:30:21 +0200

imagem do gravatar de Grafeno

Crie um formulário e adicionei nele combobox e listbox para depois de imputar dados neles salvar em uma planilha, porem ao tentar adicionar os dados dos combobox na listbox não são adicionados. Poderiam me ajudar com este problema, pois já vi vários exemplos de listbox aqui, mas não consigo entender porque o meu não funciona? Segue código que estou usando:

Sub AddButton

Dim oListBox As Object


Dim Mes As Object, Semana  As Object, Produto As Object, MP As Object, Qtd As Object, OP As Object, Lista As Object
Dim Meta As Object, Compri  As Object, Perim As Object, Aprov As Object, Real As Object, oDialogo As Object


    DialogLibraries.LoadLibrary("Standard")
    oDialogo = CreateUnoDialog(DialogLibraries.Standard.getByName("FrmRegistro"))

    oListBox=oDialogo.getControl("Listbox1")
    oListBox.Model.removeAllItems


    Mes = oDialogo.getControl("cbMes")
    Semana = oDialogo.getControl("cbSemana")    
    Produto = oDialogo.getControl("txtProduto")
    MP = oDialogo.getControl("cbMp")
    OP = oDialogo.getControl("txtOP")
    Qtd = oDialogo.getControl("txtQtd")
    Meta = oDialogo.getControl("txtMeta")
    Compri = oDialogo.getControl("txtComp")
    Perim = oDialogo.getControl("txtPerimentro")
    Aprov = oDialogo.getControl("txtAproveit")
    Real = oDialogo.getControl("txtRealizado")

    oListBox.additem(Meta.model.Text, 0) 


End Sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2019-09-06 22:27:37 +0200

imagem do gravatar de ChagasP

Ao revisar minuciosamente o código observei que uma variável esta declarada errada, apos a correção funcionou tudo perfeito.

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2019-09-05 16:32:30 +0200

imagem do gravatar de Conrado

A variávle Meta.model está errada.

Deixe apenas

oListBox.additem(Meta.Text, 0)

editar assinalar como ofensivo Excluir Link mais

Comentários

Infelizmente não resolveu. Executei a macro em modo pausado e observei que ao executar o código as variáveis não recebiam os valores do objeto. E como se a macro perdese a conexão com formulário

imagem do gravatar de ChagasPChagasP ( 2019-09-06 14:11:35 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-09-05 15:27:39 +0200

Lidas: 29 vezes

Última atualização: Sep 08