Hola Manuel... Hola a todos... Como veo que accedes al "modelo", supongo que estas usando Formularios y no Cuadros de Dialogo, de todos modos, ya que tienes la referencia a un cuadro de texto, este, tiene el método setFocus para poder enviarle el foco cuando quieras...
CuadroTexto.setFocus() Hace algunos años, a un cliente le hice un directorio sumamente básico y sencillo, pero que entre otras cosas te muestra como: Mostrar un cuadro de dialogo Hacer referencia a cualquier control Usar diferentes eventos (click, recivefoco, pierdefoco entre otros), algo que me gusta mucho de OOoBasic es como puedes relacionar el mismo procedimiento a diferentes controles y eventos, con lo cual, es posible hacer procedimientos genericos Validar datos Leer y escribir datos de celdas en una hoja de calculo Buscar datos dentro una hoja de calculo Ordenar datos dentro de una hoja de calculo Te lo estoy enviando a tu correo... Saludos a todos... Mauricio El 10 de septiembre de 2008 7:55, Manuel Andres Ramirez < [EMAIL PROTECTED]> escribió: > Amigos, de la lista. > > Antes que nada agradecer a Ariel y Mauricio por su invaluable aporte a > los que como yo, aunque conocemos algo de programación, no tenemos una > compresión completa de la programación en nuestro querido OpenOffice.org > > Estoy realizando un pequeño aplicativo en Base, pero tengo unas dudas > que quisiera me pudieran orientar. > > Quiero validar que el usuario digite información en un campo de texto > para ello utilizo la siguiente macro que se lanza al modificarse o al > perder el foco el campo de texto: > > sub BuscaCapitulo(oEv) > Dim. ....(omito la declaración de variables)..... > > oModelo = oEv.Source.Model > sCodCapitulo = oModelo.Text > If sCodCapitulo = "" Then > msgbox "Digite un valor", 0 ,"Error en Entrada de Datos" > Exit Sub > End if > end sub > > Pero quiero asegurarme que el foco vuelva nuevamente al campo de texto > que estoy validando. algo como un "setfocus" o un "objeto.focus.enable = > true", pero mis conocimientos de la api de OOo no es muy profunda. > > Mil Gracias por su orientación. > > > -- > Manuel Andrés Ramírez P. > Administrador Informático > GNU/Linux Registered User:412887 > > Visite:www.obtengalinux.org > > "El placer más noble es el júbilo de comprender" > (Leonardo Da Vinci) > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- _______________________________ Todo lo que no es dado es perdido
