Hola Genios:

He estado quemando las pestañas tratando de encontrar la manera de que a traves de VB se le pueda entregar el foco a una aplicación distinta.

Me explico:

He creado una aplicación que manipula información de una BD de Access, dentro de lo que debe manejar, son unos informes que ya estan creados en Access y algunos de ellos son parametrizados (Se les debe digitar un valor por pantalla para que muestre los registros respectivos), para poderlos visualizar en VB sin que se abra Access he creado una rutina que manipula el Snap View y funciona muy bien con informes Genéricos (No parametrizados), pero cuando trato de ejecutar un reporte parametrizado, se abre el cuadro de diálogo que pide el parámetro, pero no toma el foco, lo que provoca que quede debajo de las ventanas de las aplicaciones abiertas, teniendo que presionar las teclas ALT+TAB para poder que tome el foco.

No se si me entiendan, pero lo que necesito es que esa ventanita tome el foco cuando se ejecuta el informe.

Cualquier ayuda será inmensamente agradecida!!

Saludos,

Mellileo !!!

Hola, que tal.

Sobre el tema de cambios del foco entre aplicaciones encontré que lo soluciona el API SetWindowsPOS.

Mira a ver si lo siguiente te ayuda:

Pega lo siguiente en un módulo:

Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Public Sub FormOnTop(Formulario As Form, Top As Boolean)
Dim rtn
OTop = Top
If Top = True Then
rtn = SetWindowPos(Face.hwnd, -1, 0, 0, 0, 0, 3)
Else
rtn = SetWindowPos(Face.hwnd, -2, 0, 0, 0, 0, 3)
End If
End Sub

Y para utilizarlo solo tienes que poner:

FormOnTop (TuFormulario, True) ´--> siempre encima
FormOnTop (TuFormulario, False) ´--> ya no esta siempre encima

Nota: TuFormulario es el formulario que deseas que se mantenga encima de las demás.


Espero que te sirva de algo arreglando un poco el módulo.

__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion