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]
