Substituir dlgcalc => troca, ou vice-versa.
Em 12 de agosto de 2011 16:25, sp24horas <[email protected]> escreveu:
> fiz assim e funcionou:
> criei um arquivo teste.odb
> criei uma nova biblioteca MyLibrary em teste.odb - para isso vá em :
> organizador de macros do BROffice Basic.
> criei na biblioteca Standard o diálogo de nome Dlg1,
> com um Label - nome: Lblres , rótulo: Label1
> e um CommandButton, nome: CommandButton1,
> neste botão
> associei ao evento (Ao executar ação), a macro:
> MyLibrary.Module1.troca
> executei a macro dlgcalc
> e voilá!
>
> códigos abaixo:
>
> Sub Main
> dlgcalc
> End Sub
>
> sub troca
> Dim LblRes As Object
> DialogLibraries.LoadLibrary("Standard")
> oDialogo=createUnoDialog(DialogLibraries.Standard.Dlg1)
> LblRes=oDialogo.getControl("LblRes")
> LblRes.Text="TROCADO !!!"
> oDialogo.Execute()
> end sub
>
>
>
> Em 12 de agosto de 2011 09:22, Noelson Duarte <[email protected]>escreveu:
>
> Olá Adam,
>>
>> Não vi a chamada ao método execute() na macro dlgcalc. Então, essa chamada
>> ocorre noutra rotina, é isto? Caso positivo você deve reorganizar seu
>> código, por exemplo, a variável LblRes é LOCAL e as alterações tem efeito
>> APENAS dentro da rotina dlgcalc.
>>
>> Outras questões:
>> - a rotina dlgcalc foi definida em "MyLibrary"?
>> - em qual container a bilbioteca "MyLibrary" está localizada? Caso esteja
>> num nível superior você deve carregar a biblioteca com o comando:
>>
>> GlobalScope.DialogLibraries.loadLibrary ( ... )
>>
>> No LibreOffice, formulários e caixas de diálogos são objetos completamente
>> diferentes e nem sempre há coincidência nos nomes dos métodos.
>>
>> Para inspecionar os objetos da API, recomendo o uso do MRI ou do XRay.
>>
>> Att.
>> --
>> Noelson
>>
>>
>> Em 12 de agosto de 2011 06:41, rogerio dandrea <[email protected]
>> >escreveu:
>>
>> > Oi, se for usar o Form.reload() , Tenta primeiro declarar a variavel
>> como
>> > global , que acredito que pode funcionar
>> >
>> > Em 11 de agosto de 2011 17:39, Adam Fabricio Silveira Silva <
>> > [email protected]> escreveu:
>> >
>> > > Ja está criada a biblioteca, o dialogo e o rotulo. Normal.. o Dialogo
>> já
>> > > está sendo executado. quando eu clicar no botão ele chama a sub-rotina
>> > > dlgcalc.
>> > > Porem ao termino da sub-rotina o rótulo não atualiza o seu valor para
>> > > "teste".
>> > >
>> > > Estava pensando em usar o comando que o rogerio usou mas deu erro. o
>> > > Form.reload(),
>> > >
>> > > Obrigado
>> > >
>> > > --
>> > > Adam Fabricio Silveira Silva
>> > > Companhia do Metropolitano de São Paulo - Metrô
>> > > Técnico de Manutenção Corretiva
>> > > Tel: 3444-1377 PAT
>> > > E-mail: [email protected]
>> > >
>> > >
>> > > > Olá Adam,
>> > > >
>> > > > Você precisa de:
>> > > > - uma biblioteca chamada "Mylibrary"
>> > > > - nesta biblioteca, uma caixa de diálogo chamada "Dlg1"
>> > > > - nesta cx de diálogo, um rótulo chamado "LblRes"
>> > > >
>> > > > Dito isto, o rótulo será alterado apenas durante a exibição da caixa
>> de
>> > > > diálogo. Para isto, acrescente a linha abaixo no final da rotina:
>> > > >
>> > > > oDialogo.execute()
>> > > >
>> > > > Att.
>> > > >
>> > > > --
>> > > > Noelson
>> > > >
>> > > >
>> > > > Em 11 de agosto de 2011 13:14, Adam Fabricio Silveira Silva <
>> > > > [email protected]> escreveu:
>> > > >
>> > > >> Olá inicialmente estou tentando apenas através de uma macro mudar o
>> > > >> valor
>> > > >> do Label e não deu certo. Ele executa a macro certo porem a caixa
>> de
>> > > >> dialogo
>> > > >> não atualiza o valor. O código esta a seguir:
>> > > >> *sub dlgcalc
>> > > >> Dim LblRes As Object
>> > > >> DialogLibraries.LoadLibrary("**Mylibrary")
>> > > >> oDialogo = createUnoDialog(**
>> > > >> DialogLibraries.Mylibrary.**Dlg1)
>> > > >> LblRes =
>> oDialogo.getControl("LblRes")
>> > > >> LblRes.Text = "teste"
>> > > >> end sub
>> > > >>
>> > > >>
>> > > >> Obrigado,
>> > > >> *
>> > > >>
>> > > >> +-----------------------------**----------------+
>> > > >> |Adam Fabricio Silveira Silva |
>> > > >> |Cia do Metropolitano de São Paulo - Metrô |
>> > > >> |Técnico de Manutenção Corretiva - MTR/MRN |
>> > > >> |Tel: 3444-1373/1442 - (86) 373 PAT - 16795 |
>> > > >> |Base Tiradentes - 31792000 - Ramal 15239 |
>> > > >> |E-mail: [email protected] |
>> > > >> +-----------------------------**----------------+
>> > > >>
>> > > >>
>> > > >> Em 11/8/2011 08:50, rogerio dandrea escreveu:
>> > > >>
>> > > >> Oi Adam, este é o problema, não encontrei em lugar algum...rs
>> fiquei
>> > > >>> quebrando a cabeça e procurando diversos exemplos, e a maioria da
>> > > >>> informação
>> > > >>> foi em ingles(sem problemas com isto), mas que não funcionavam no
>> > > >>> libreoffice.(exemplos de versoes antigas do openoffice).
>> > > >>> Recomendo o livro do pintonyak,
>> > > >>>
>> > > >>> http://www.pitonyak.org/OOME_**3_0.odt<
>> > > http://www.pitonyak.org/OOME_3_0.odt>
>> > > >>>
>> > > >>> me mande o seu script que podemos ver se dou um help.
>> > > >>>
>> > > >>> Em 11 de agosto de 2011 08:32, Adam Fabricio Silveira Silva<
>> > > >>> [email protected]> escreveu:
>> > > >>>
>> > > >>> Olá Rogerio Dandrea!
>> > > >>>>
>> > > >>>> Onde você achou essa solução. É algo parecido o que eu quero
>> fazer
>> > no
>> > > >>>> LibreO. Eu gostaria de escrever um número em uma caixa de número,
>> e
>> > ao
>> > > >>>> clicar em um botão, ele copiar esse valor em uma caixa de Rótulo.
>> > > >>>>
>> > > >>>> Se tiver algum material ou algo que possa me ajudar nessa jornada
>> eu
>> > > >>>> agradeço.
>> > > >>>>
>> > > >>>> Obrigado,
>> > > >>>>
>> > > >>>> +-----------------------------****----------------+
>> > > >>>> |Adam Fabricio Silveira Silva |
>> > > >>>> |Cia do Metropolitano de São Paulo - Metrô |
>> > > >>>> |Técnico de Manutenção Corretiva - MTR/MRN |
>> > > >>>> |Tel: 3444-1373/1442 - (86) 373 PAT - 16795 |
>> > > >>>> |Base Tiradentes - 31792000 - Ramal 15239 |
>> > > >>>> |E-mail: [email protected] |
>> > > >>>> +-----------------------------****----------------+
>> > > >>>>
>> > > >>>>
>> > > >>>> Em 10/8/2011 10:11, rogerio dandrea escreveu:
>> > > >>>>
>> > > >>>> Form=Event.Source.Model.Parent
>> > > >>>>
>> > > >>>>> nome = InputBox("ENTRE COM AS INICIAIS DO NOME")
>> > > >>>>> Form.Filter= "CLIENTE3.Nome LIKE '"&nome&"%'"
>> > > >>>>> Form.ApplyFilter=True
>> > > >>>>> Form.reload()
>> > > >>>>> End Sub
>> > > >>>>>
>> > > >>>>> --
>> > > >>>> Você está recebendo e-mails da lista
>> [email protected]
>> > > >>>> # Informações sobre os comandos disponíveis (em inglês):
>> > > >>>> mande e-mail vazio para
>> > > >>>> usuarios+help@pt-br.**libreoff**ice.org<http://libreoffice.org>
>> > > >>>> <usuarios%2Bhelp@pt-br.**libreoffice.org<
>> > > usuarios%[email protected]>
>> > > >>>> >
>> > > >>>> # Cancelar sua assinatura: mande e-mail vazio para:
>> > > >>>> usuarios+unsubscribe@pt-br.**l**ibreoffice.org
>> > > >>>> <http://libreoffice.org>
>> > > >>>> <usuarios%**2Bunsubscribe@pt-br.**libreoffice.org<
>> > > usuarios%[email protected]>
>> > > >>>> >
>> > > >>>> # Arquivo de mensagens:
>> > > >>>> http://listarchives.**libreoff**ice.org/pt-br/**<
>> > > http://libreoffice.org/pt-br/**>
>> > > >>>> usuarios/<http://listarchives.**
>> libreoffice.org/pt-br/**usuarios/<
>> > > http://listarchives.libreoffice.org/pt-br/usuarios/>
>> > > >>>> >
>> > > >>>>
>> > > >>>>
>> > > >>>>
>> > > >> --
>> > > >> Você está recebendo e-mails da lista
>> [email protected]
>> > > >> # Informações sobre os comandos disponíveis (em inglês):
>> > > >> mande e-mail vazio para
>> > > >> usuarios+help@pt-br.**libreoffice.org<
>> > > usuarios%[email protected]>
>> > > >> # Cancelar sua assinatura: mande e-mail vazio para:
>> > > >> usuarios+unsubscribe@pt-br.**libreoffice.org<
>> > > usuarios%[email protected]>
>> > > >> # Arquivo de mensagens: http://listarchives.**
>> > libreoffice.org/pt-br/**
>> > > >> usuarios/ <http://listarchives.libreoffice.org/pt-br/usuarios/>
>> > > >>
>> > > >>
>> > > >
>> > > > --
>> > > > Você está recebendo e-mails da lista [email protected]
>> > > > # Informações sobre os comandos disponíveis (em inglês):
>> > > > mande e-mail vazio para [email protected]
>> > > > # Cancelar sua assinatura: mande e-mail vazio para:
>> > > > [email protected]
>> > > > # Arquivo de mensagens:
>> > > > http://listarchives.libreoffice.org/pt-br/usuarios/
>> > > >
>> > > >
>> > >
>> > >
>> > >
>> > > --
>> > > Você está recebendo e-mails da lista [email protected]
>> > > # Informações sobre os comandos disponíveis (em inglês):
>> > > mande e-mail vazio para [email protected]
>> > > # Cancelar sua assinatura: mande e-mail vazio para:
>> > > [email protected]
>> > > # Arquivo de mensagens:
>> > > http://listarchives.libreoffice.org/pt-br/usuarios/
>> > >
>> > >
>> >
>> > --
>> > Você está recebendo e-mails da lista [email protected]
>> > # Informações sobre os comandos disponíveis (em inglês):
>> > mande e-mail vazio para [email protected]
>> > # Cancelar sua assinatura: mande e-mail vazio para:
>> > [email protected]
>> > # Arquivo de mensagens:
>> > http://listarchives.libreoffice.org/pt-br/usuarios/
>> >
>> >
>>
>> --
>> Você está recebendo e-mails da lista [email protected]
>> # Informações sobre os comandos disponíveis (em inglês):
>> mande e-mail vazio para [email protected]
>> # Cancelar sua assinatura: mande e-mail vazio para:
>> [email protected]
>> # Arquivo de mensagens:
>> http://listarchives.libreoffice.org/pt-br/usuarios/
>>
>>
>
--
Você está recebendo e-mails da lista [email protected]
# Informações sobre os comandos disponíveis (em inglês):
mande e-mail vazio para [email protected]
# Cancelar sua assinatura: mande e-mail vazio para:
[email protected]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
