Renato,
o código que enviei era pra vincular à variável ao conteúdo do InputBox
(entendi que era essa a atividade desejada).
Para vincular uma variável ao conteúdo de um campo de um Formulário,
pode utilizar o seguinte código:
'Variáveis de formulário
Global oDoc As Object
Global oDocCrl As Object
Global oForm As Object
Global txtNome As Object
Global txtAnoNasc As Object
Global txtIdade As Object
Sub Form_Open
'Iniciar as variáveis de formulário
oDoc = StarDesktop.CurrentComponent
oDocCrl = oDoc.getCurrentController()
oForm = oDoc.DrawPage.Forms.GetByIndex(0)
txtNome = oDocCrl.GetControl(oForm.getByName("txtNome"))
txtAnoNasc = oDocCrl.GetControl(oForm.getByName("txtAnoNasc"))
txtIdade = oDocCrl.GetControl(oForm.getByName("txtIdade"))
txtNome.Text = ""
txtAnoNasc.Text = ""
txtIdade.Text = ""
End Sub
Sub PegarIdade
sName = InputBox ("Qual o seu nome?","Cálculo de idade")
iAnoNasc = Int(InputBox (sName & ", em que ano você
nasceu?","Informe o ano com quatro dígitos"))
iIdade = (2012 - iAnoNasc)
txtNome.Text = sName
txtAnoNasc.Text = iAnoNasc
txtIdade.Text = iIdade
End Sub
Segue em anexo um arquivo com um formulário de modelo.
Abraço.
Antonio Ezequiel.
Em 26/11/2012 16:13, GMAIL contador.renato.eco escreveu:
Oi Antonio
Como escrevi no email d ontem, só à noite peguei e li direito o seu
email e o que me sugeriste não é tratado pelo Basic como objeto de
formulário (Form)
Segue abaixo imagem
Abraços
Renato
ERRO LIBRE.JPG
--
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/
