............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Activar ventana de window

Ver el tema anterior Ver el tema siguiente Ir abajo

Activar ventana de window

Mensaje por P@li el Mar Jul 08, 2008 8:54 pm

Gali tenía razón, había que usar SetForegroundWindow

Código:

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

sub ActivarVentana()
Dim hwnd As Long
'primero hay que buscar la ventana por su Caption
hwnd = FindWindow(vbNullString, "Mi PC")
'despues llamar a la API de Window
'dependiendo del resultado 1 o 0, de esta función vamos a determinar que:
if SetForegroundWindow(hwnd)=1 then
    'la ventana fue activada exitosamente
else
    'ocurrio un error al activar la ventana
end if

end sub

Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 33
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Activar ventana de window

Mensaje por GalileoGali el Miér Jul 09, 2008 9:14 am

P@LI: con sólo intuición no alcanza para estas API tan maravillosas (me refiero a mi impresion de que la cosa podia andar por ahi), hace falta tu manejo, para que finalmente LA COSA ANDE POR ALLLI...
de todas formas en el apuro se nota que sin darte cuenta omitiste Declarar FindWindow. Como para resolver eso, llego... yo....
Luego para probarla utilice como Ventana Receptora Un documento nuevo de Word, en segundo plano y Excel en primero (como no podria ser de otra manera!!!) asociando la macro a un Boton e intercalando un Application.Sendkeys como para transferir algo después de activar.....
Y FUNCIONA!!!!!!!!!!
Para los que recien llegan, y obvio, no han coparticipado de nuestro Chateo de ayer por msn, aclaremos que este recursos, se lo solicite a P@li con la intencion de lograr desde Excel tomar foco en otra ventana de otra aplicacion en la que el unico dato disponible es "el CAPTION de la ventana", con la finalidad de "tomado el FOCO, poder cargar los campos en ese programa simulando Teclas.....
Me imagino que muchos diran como dice mi Esposa: ¡Tanta historia para poner GALI en un Word!

GRACIAS P@LI

PD: ¿Existe alguna manera de devolver el Objeto Collection Windows y a partir de 1 hasta XXXXwindows.count obtener por ejemplo, la propiedad CAPTION de cada XXXXWindows(1).....XXXXWindows(count-1).....XXXXWindows(count)? (mera curiosidad)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Activar ventana de window

Mensaje por P@li el Miér Jul 09, 2008 4:23 pm

Gali,
No vas a necesitar ya la función FindWindow, porque todas las ventanas las vas a poder listar con la clase que hice hoy para aportar al foro, para responder a tu pregunta, y para no enfriarme con la programación.
Ya está posteada en esta misma sección del foro.

Espero comentarios.
Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 33
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Activar ventana de window

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.