--- Ariel Constenla-Haile
<[EMAIL PROTECTED]> escribió:
> Alejandro Rivas Morÿffffffffffe1n escribió:
> > Saludos
> >
> > Tengo un pequeño cuadro de dialogo con 4 textbox
> llamados: nombre, apellido, edad y origen
> >
> > El cuadro está en la librería REGISTROS y el el
> diálogo INGRESO de tal manera que la referencio así:
> >
> > dim cuadrodialogingreso as object
> > dim datonombre, datoape, datoedad, datoorigen
> >
>
cuadrodialogingreso=CreateunoDialog(DialogLibraries.REGISTROS.INGRESO)
>
> > datonombre=
> > cuadrodialogingreso.GetControl("nombre").text
> > datoape=
> > cuadrodialogingreso.GetControl("apellido").text
> > datoedad=
> > cuadrodialogingreso.GetControl("edad").text
> > datonorigen=
> > cuadrodialogingreso.GetControl("origen").text
> >
> > Hasta hoy sé como asignar el foco a un cuadro con,
> por ejemplo:
> >
> cuadrodialogingreso.GetControl("nombre").SetFocus()
> >
> > Necesito establecer la ubicación del foco, pues
> resulta que cuando van llenando los cuadros a veces
> mueven el cursor a otro cuadrotexto y el proceso se
> distorciona
> >
> > ¿ Cómo podría saber en cual cuadro está el foco?
>
> asignando un focus listener a cada control, tendrás
> una notificación
> cuando el control recibe/pierde el foco:
>
>
http://api.openoffice.org/docs/common/ref/com/sun/star/awt/XFocusListener.html
>
>
> La forma más fácil de implementarlo es simplemente
> asignando una macro
> mediante la ventana Propiedades - Eventos (en la
> versión en inglés están
> las opciones "When receiving focus" y "When losing
> focus").
>
> Saludos
> Ariel.
Gracias Ariel.
Estoy en camino de experimentar lo sugerido por Ud.
Esta vez le solicito una ayudita mas. ¿ Como puedo
lograr que cuando el cursor sea pasado de un
cuadrotextbox al otro, quede seleccionado el contenido
de dicho cuadrotextbox.
Saludos y nuevamente agradecimientos.
Alejandro
>
>
>
> --
> Ariel Constenla-Haile
> La Plata, Argentina
>
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> http://www.ArielConstenlaHaile.com.ar/ooo/
>
>
>
> "Aus der Kriegsschule des Lebens
> - Was mich nicht umbringt,
> macht mich härter."
> Nietzsche Götzendämmerung, Sprüche und
> Pfeile, 8.
>
>
---------------------------------------------------------------------
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
>
>
______________________________________________
Enviado desde Correo Yahoo!
Más formas de estar en contacto.
http://es.docs.yahoo.com/mail/overview/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
