OK.
Todo arreglado.
Muchas gracias Santiago.
----- Original Message -----
From: "Santiago Bosio" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, March 06, 2006 7:50 PM
Subject: Re: [dev] Obtener el Texto de un diálogo.
> Kisco:
>
> A si es esto lo que quieres hacer (es que no me queda muy claro qué
> necesitas y el código que me enviaste tampoco me parece que esté
> correcto):
>
> - Cargar el diálogo Asunt, que tiene una caja de texto llamada T.
> - Cada vez que modificas el texto que contiene la caja, llamar a un
> procedimiento que te muestra una caja de mensaje con el contenido de T.
>
> Si esto es así, aquí va el código, fíjate bien que necesitas dos Sub's
> distintos. Uno te carga el diálogo, y el otro responde al evento "Texto
> modificado" de T:
>
> REM ***** Inicio del código *****
>
> Public DlgAsunt As Object
>
> Sub Main
>
> DlgAsunt = LoadDialog("Standard", "Asunt")
> DlgAsunt.execute()
>
> End Sub
>
> Sub TxtCambio()
>
> Dim sTexto As String
>
> sTexto = DlgAsunt.Model.T.Text
> MsgBox (sTexto)
>
> End Sub
>
> REM ***** Fin del código *****
>
>
> Cualquier duda, pregunta nuevamente. Sumamente importante es el
> Execute() del diálogo, hasta que no lo haces, no aparece en pantalla.
>
> Saludos,
>
> Santiago.
>
> El lun, 06-03-2006 a las 19:11 +0100, kisco escribió:
> > Hago que cada vez que cambie el Texto le he asignado este procedimiento
que
> > lo único que haría es mostrarme lo que voy introduciendo no?
> > Pues no me sale el msgbox sTexto en blanco
> > ¿Porque?
> > Por cierto mi Dialogo se llama Asunt
> >
> > sub TxtCambio()
> > 'Cuando cambie entonces
> > Dim Dlg As Object
> >
> > Dim sTexto As String
> > DialogLibraries.LoadLibrary("Standard")
> > Dlg = CreateUnoDialog(DialogLibraries.Standard.Asunt)
> > sTexto = Dlg.Model.T.Text
> > msgbox sTexto
> >
> > end sub
> >
> > ----- Original Message -----
> > From: "Santiago Bosio" <[EMAIL PROTECTED]>
> > To: "Desarrollo OpenOffice.org" <[email protected]>
> > Sent: Monday, March 06, 2006 5:57 PM
> > Subject: Re: [dev] Obtener el Texto de un diálogo.
> >
> >
> > > Kisco:
> > >
> > > Si lo que quieres es leer el dato pues lo haces al revés, asignando el
> > > valor del texto a una variable de tipo String.
> > >
> > > Por ejemplo
> > >
> > > Dim sTexto As String
> > >
> > > sTexto = oDialogo.Model.NombreDelControl.Text
> > >
> > > 'et voilà' como dicen los franceses.
> > >
> > > Saludos,
> > >
> > > Santiago.
> > >
> > > El lun, 06-03-2006 a las 13:47, kisco escribió:
> > > > Pero así tal y como me dices lo que hago es ponerle a la caja de
texto
> > el
> > > > texto "Texto".
> > > >
> > > > ----- Original Message -----
> > > > From: "Santiago Bosio" <[EMAIL PROTECTED]>
> > > > To: "Desarrollo OpenOffice.org" <[email protected]>
> > > > Sent: Monday, March 06, 2006 4:38 PM
> > > > Subject: Re: [dev] Obtener el Texto de un diálogo.
> > > >
> > > >
> > > > > Kisco:
> > > > >
> > > > > Si puedes cambiarle el estado de Enabled, lo más probable es que
> > tengas
> > > > > una referencia al Control (probablemente obtenida con getControl)
y no
> > > > > al Modelo.
> > > > >
> > > > > Prueba con algo como esto:
> > > > >
> > > > > oDialogo.Model.NombreDelControl.Text = "Texto".
> > > > >
> > > > > Donde oDialogo es la referencia al diálogo que has ejecutado, y
> > > > > NombreDelControl el nombre que le has asignado a la caja de texto
en
> > las
> > > > > propiedades.
> > > > >
> > > > > Saludos,
> > > > >
> > > > > Santiago.
> > > > >
> > > > > El lun, 06-03-2006 a las 12:15, kisco escribió:
> > > > > > Buenos dias compañeros.
> > > > > > Tengo un Dialogo en el cual escribo digamos un Asunto en un
> > TextField
> > > > (campo
> > > > > > de texto) pues bien como hago para recoger ese campo de texto,
osea
> > ,
> > > > como
> > > > > > hago para saber que he introducido en ese campo de texto.
> > > > > > Sé que tengo utilizar el Model y la propiedad Text pero no se
> > siempre me
> > > > da
> > > > > > error.
> > > > > > Obtengo el nombre del Texto y también sé cómo cambiarle el
Estado de
> > > > Enabled
> > > > > > pero no doy con la tecla de conocer el dato que tiene
introducido el
> > > > Texto
> > > > > > Alguien sabe como.
> > > > > > Gracias.
> > > > > > Javier.
> > > > > >
> > > > >
> > > ---------------------------------------------------------------------
> > > > > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > > > > For additional commands, e-mail: [EMAIL PROTECTED]
> > > > > >
> > > > > >
> > > > > > El mail recibido, fue verificado por el Servicio de Antivirus
para
> > mail
> > > > de Fullzero
> > > > > > y se encuentra libre de virus
> > > > > >
> > > > >
> > > >
> ---------------------------------------------------------------------
> > > > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > > > For additional commands, e-mail: [EMAIL PROTECTED]
> > > > >
> > > > >
> > > >
> > >
> ---------------------------------------------------------------------
> > > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > > For additional commands, e-mail: [EMAIL PROTECTED]
> > > >
> > > >
> > > > El mail recibido, fue verificado por el Servicio de Antivirus para
mail
> > de Fullzero
> > > > y se encuentra libre de virus
> > > >
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > >
> > >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
> > El mail recibido, fue verificado por el Servicio de Antivirus para mail
de Fullzero
> > y se encuentra libre de virus
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
