¡Muchísimas gracias! Le echo un vistazo enseguida.
---- Mauricio Baeza <[EMAIL PROTECTED]> escribió: > Hola a todos... > > Supongo que te refieres a saber en que control esta el "foco", correcto? > > Si tu declaras un procedimiento como: > > Sub Control_Recibe_Foco(Event As Object) > 'Event.Source > End Sub > > y lo asignas a un control en su evento Al activar area, el parametro Event y > la propiedad Source te diran que objeto es el que recibe el foco, ten > cuidado con este evento pues facilmente puedes caer en un blucle infinito, > como por ejemplo si haces uso de una MsgBox dentro de este evento y en > general con cualquier linea que saque el foco fuera del control que lo este > llamando... > > Trabajar con el foco de los controles no es tan complicado, pero hay que > entender como lo maneja OOo Basic, si quieres enviar el foco a un control > debes de acceder a su vista(View), lo cual cambia un poco si lo haces desde > un dialogo o desde un formulario... > > Para ilustrar lo anterior te prepare un ejemplo que contiene lo siguiente... > > Un archivo de Calc, con una sola hoja, un formulario llamado frmDatos con: > Tres cuadros de textos llamados txtNombre, txtTel y txtDir > Un boton de comando llamado cmdGuardarDatos > > En el ejemplo te muestro como: > > Acceder a un formulario por su nombre, recuerda que puedes tener mas de uno > por hoja > Acceder a los controles de este formulario > A validar el contenido de los cuadros de texto, que no este vacio, que sean > numeros, que no sean fechas > A enviar el foco al cuadro de texto que queramos > Al recibir el foco, los cuadros de texto cambian el color de fondo y fuente > Al perder el foco vuelven a cambiarse los colores de fondo y fuente > Al estar correctos los datos, vaciar los cuadros de texto > > Espero te sirva... > > > Saludos a todos... > > > > On 4/6/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> > wrote: > > > > ¡Buenas noches! > > > > ¿Un código para detectar formulario y el objeto que seleccionemos y/o > > adquieren el foco? > > > > Gracias. > > > > --------------------------------------------------------------------- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > -- > _______________________________ > TODO LO QUE NO ES DADO ES PERDIDO --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
