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


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: 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/

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.