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