[Resuelto]ListBox DropDown en Control de tabla

[Longi]

Buenas!

En https://forum.openoffice.org/es/forum/v ... 31&t=14367 pregunté cómo hacer que un listbox (o combobox) se desplegase al aplicar una macro (concretamente al recibir el foco).

El resultado fue este:

Código: Seleccionar todo

sub Drop_down_Listbox
    oController = thiscomponent.CurrentController
    oComboBox = thisComponent.drawpage.forms.getbyname("MainForm").getbyname("Gestion").GetByName("Tipo_Documento")
    oComboBoxControl = oController.getControl(oComboBox)  
    oComboBoxControl.AccessibleContext.doAccessibleAction(0)'drops it down
end sub

Funciona muy bien. Ahora mi atasco es cuando trabajo con un control de tablas y quiero aplicarlo a un listbox que hay en su interior. No consigo adaptar el código. Supongo que el elemento oController hace referencia al control de tablas (que es la casa de otros controles, entre ellos el listbox). No puedo (no sé) descender un nivel para que sea operativo en el interior del control de tablas.
Supongo que es una cosa mínima, pero le estoy dando vueltas y no lo he logrado por el momento. Tan solo he llegado a fijar el foco en la columna, pero no desplegar el listbox.
Si después de fijar el foco aplicamos 'Alt+Flechaabajo' conseguimos el desplegado. Eso es lo que querría simular con código.
Si alguien me echa una mano sería de agradecer.

Gracias y un saludo!

[Longi]

Buenas de nuevo!

Código: Seleccionar todo

    if CT.GEtByName("Area").BoundField.GetString="" Then

	oTableControl=ThisComponent.getCurrentController.getcontrol(CT)                         ' Nos hacemos con el modelo del control de tablas
    oTableControl.setFocus                                                                  ' Ponemos el foco en el control de tabla
    oTableControl.setCurrentColumnPosition(2)                                               ' Pone el foco en la columna Referencia
    Wait 100
    set oWSObj1 = CreateObject("WScript.Shell")                                                  ' Creamos el objeto
    oWSObj1.SendKeys ("%{down}")                                                                   ' Como que aplicamos una combinación de teclas Alt+DropDown

Con WScrip.Shell funciona, y me puede servir, pero si alguien conoce un método más elegante (vamos, propio de la suite, y que valga también para linux) estaría bien.

Gracias y otro saludo!

De momento lo dejo abierto por si a alguien se le ocurre otra solución.

[mauricio]

¿A que evento asignas la macro?

[mauricio]

Si usas un ListBox directamente en un formulario, el mismo tiene la Interfaz XAccessibleAction [1], si usas el mismo control dentro de una tabla, no tiene esta interfaz, por lo que, como ya lo notaste, no puede usar el método "doAccessibleAction". Me temo que tendrás que usar el método que has descrito en tu segundo mensaje.

Ahora, ¿tienes algún control anidado?, ¿por que usas un doble getByName?

Código: Seleccionar todo

    oComboBox = thisComponent.drawpage.forms.getbyname("MainForm").getbyname("Gestion").GetByName("Tipo_Documento")

En vez de:

Código: Seleccionar todo

oComboBox = thisComponent.drawpage.forms.getbyname("MainForm").getByName("lst_country")

En mi experiencia, manejar los eventos de foco, debe ser sin modificar el foco, si no, corres el riesgo de entrar en un ciclo infinito, que es lo que obtengo, tanto con tu código, como con el siguiente que hace lo mismo:

Código: Seleccionar todo

Sub country_in_focus(event)
	obj = event.Source
	obj.AccessibleContext.doAccessibleAction(0)
End Sub

Cuando intento salir del control con tab, vuelve a mostrar el listado, tengo que usar Shift+Tab para poder dejar el control.

Saludos

[1]: https://api.libreoffice.org/docs/idl/re ... ction.html

[Longi]

Buenas!

Gracias por aclararme lo que me temía, que no tiene solución.
El código que usa dos veces getbyname era de otro ejemplo en el que tenía un combobox dentro de un subformulario, pero que no es el caso del actual hilo.
En este caso tengo el listbox en el interior de un control de tablas.
Lo estoy utilizando en 'Tras el cambio de registro de datos' del formulario que incluye el listbox, no sé si me van a funcionar simepre, pero de momento aguanta sin esos ciclos infinitos en los que tengo 'demasiada' experiencia por chapuzas (como puedes comprobar).
Gracias de nuevo y lo marco como resuelto.

Otro saludo!