Pergunte aqui
0

Alterar combobox por programação?

perguntadas 2014-02-18 12:10:03 +0200

imagem do gravatar de Caio

Como faço para alterar o valor de uma combobox via programação?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

0

respondidas 2019-04-10 18:41:26 +0200

imagem do gravatar de Ronaldo Elias

updated 2019-04-10 19:13:30 +0200

.

Function InserirServico()

               Dim oSheet, oFormulario, ccServico as Object
           Dim ListEntries() as String
           Dim NextItemIndex as Integer

                    'Formulário no Calc

            oSheet      = ThisComponent.CurrentController.ActiveSheet
            oFormulario = oSheet.DrawPage.Forms.getByName("Formulário")
            ccServico           = oFormulario.GetByName("ccServico") 'O combobox

           With ccServico
                ListEntries             = .StringItemList
                NextItemIndex%  = UBound(ListEntries) + 1 ' UBound(ListEntries) - 1 (excluir)
                Redim Preserve ListEntries(NextItemIndex)
                ListEntries(NextItemIndex) = ccServico.Text
                If (ccServico.Text = "" or ccServico.Text = "Conclusão de Processo" or ccServico.Text = "Outros") Then
                Exit Function
                Else
                iMensagemBox = MsgBox("Deseja inserir o serviço na lista de seleção",4+32+256,"Inserir Serviço")
                    If (iMensagemBox = 6) Then
                        .StringItemList = ListEntries()
                    Else
                    End if
                End if
           End with

    End Function
editar assinalar como ofensivo Excluir Link mais
0

respondidas 2016-01-06 14:50:14 +0200

imagem do gravatar de JDias

Olá. Você conseguiu resolver esse problema? Eu também estou precisando saber como fazer isso. Não parece ser muito fácil, pois o post é antigo e não teve respostas.

Att.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2014-02-18 12:10:03 +0200

Lidas: 95 vezes

Última atualização: Apr 10