[pt-br-usuarios] Como definir 1 variável de objeto

Olá pesoal

Criei um formulário com 1 botão de pressão e uma caixa de texto.

 

Ao clicar no botão de Nome TxtNome com o rótulo INICIAR, defini o
eventoexecutar ao link de 1 macro (Sub Iniciar), que abre cx. do inputbox,
digito o nome e da o ERRO : Erro em tempo de execução do Basic. Variável do
objeto não definida e mostra o módulo e a linha do erro sombreada (
TxtNome.Text = sNome) Como defino uma variável a um objeto ? O QUE FALTA OU
?????

Objeto é uma Caixa de texto, que foi definida:

 

Global oDoc As Object

Global oDocCrl As Object

Global oForm As Object

Global TxtNome As Object

Dim sNome

Sub Form_Open

oDoc = StarDesktop.CurrentComponent

oDocCrl = oDoc.getCurrentController()

oForm = oDoc.DrawPage.Forms.GetByIndex(0)

 

TxtNome = oDocCrl.GetControl(oForm.getByName("TxtNome")

 

TxtNome.Text = ""

End Sub

Sub Iniciar

sNome = InputBox("Nome","Qual o seu nome")

TxtNome.Text = sNome

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+unsubscribe@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/