Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


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 <noelsond@gmail.com> 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 <rolemosda@gmail.com
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 <
afssilva@metrosp.com.br> escreveu:

Ja está criada a biblioteca, o dialogo e o rotulo. Normal.. o Dialogo
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: afssilva@metrosp.com.br


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 <
afssilva@metrosp.com.br> 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: afssilva@metrosp.com.br              |
+-----------------------------**----------------+


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<
afssilva@metrosp.com.br>  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: afssilva@metrosp.com.br              |
+-----------------------------****----------------+


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
usuarios@pt-br.libreoffice.org
# 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%252Bhelp@pt-br.libreoffice.org>

# 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%252Bunsubscribe@pt-br.libreoffice.org>

# 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 usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para
usuarios+help@pt-br.**libreoffice.org<
usuarios%2Bhelp@pt-br.libreoffice.org>
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.**libreoffice.org<
usuarios%2Bunsubscribe@pt-br.libreoffice.org>
# Arquivo de mensagens: http://listarchives.**
libreoffice.org/pt-br/**
usuarios/ <http://listarchives.libreoffice.org/pt-br/usuarios/>



--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/





--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/



--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/



--
 Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens:
http://listarchives.libreoffice.org/pt-br/usuarios/



-- 
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.