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
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.**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/
