|
Programacion Pregunta, consulta o ayuda a resolver los problemas o incógnitas que tengan los demás miembros de la comunidad sobre programación en general. |
Hola Invitado! Tómate un minuto para registrarte, es 100% GRATIS y no verás ninguna publicidad! ¿Qué estás esperando? Para Ingresa a Denunciando.com por medio de TapaTalk Clic ACA | Registrarse Ahora |
Programacion » Ayuda con Excel y las APIs de WindowsParticipa en el tema Ayuda con Excel y las APIs de Windows en el foro Programacion. |
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con un problema en excel | FRD4555 | Problemas Tecnicos | 7 | 12-04-2013 12:35:23 |
Ayuda Urgente Con Error En Excel. | Checho Duque | Problemas Tecnicos | 8 | 09-05-2009 13:45:16 |
Ayuda Visaul Basic - Excel | SilverS | Programacion | 0 | 11-10-2008 21:48:44 |
windows xp x64 (ayuda) | /*.::MªR!O::.*\ | Software - Programas | 9 | 03-10-2008 08:10:36 |
Problema Con Excel 2003 Necesito Ayuda Urgente | ESTEBANENVIGADO | Software - Programas | 2 | 22-01-2008 10:09:34 |
, 10:48:18 | #1 | |
Ayuda con Excel y las APIs de Windows
Calificación: de
5,00 Parceros el escenario es el siguiente: Tego una hoja de excel en la cual he programado unas macros con el editor de VB, pero necesito que se ejecute un comando de guardar cuando la hoja o el Excel se encuentre minimizada y se maximice, me comentaron que puedo usar una API de windows llamada GetWindowPlacement, no se como deberia de programarla, alguno de ustedes ha usado APIS de window en el visual de EXCEL???? o saben alguna manera de hacer esto que quiero???, el VB de excel es limitado asi que no hay eventos como onminimize, windowsstate, ni nada que se le parezca. | ||
Twittear Seguir a @denunciando
| |
No Calculado | #1.5 |
SponSor | Re: Ayuda con Excel y las APIs de Windows |
29-04-2009 , 14:53:28 | #2 |
Recien Registrado | Respuesta: Ayuda con Excel y las APIs de Windows
Yo he usado algo asi pero lo tengo en un programa en vb, detecto ciertas ventanas y su estado (min, max).
|
29-04-2009 , 15:09:45 | #3 |
Recien Registrado | Respuesta: Ayuda con Excel y las APIs de Windows
dim hwnd_Ventana as long Private Declare Function GetForegroundWindow Lib "user32" () As Integer Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long if Titulo_Ventana="X" then ' llamo a esta funcion para obtener el nombre de la ventana y el hwnd _ventana end if hwnd_Ventana = GetForegroundWindow() If ESTADOVENTANA(hwnd_Ventana)<>3 THEN ' SI ES <> DE MAXIMIZADO End if Function Titulo_Ventana() As String 'Dim hwnd_Ventana As Long Dim Length As Long hwnd_Ventana = GetForegroundWindow() Phandle = hwnd_Ventana 'Crea un Buffer para el caption del title bar caption_ventana = Space$(1024) ' Retorna la cantidad de caracteres Length = GetWindowText(hwnd_Ventana, caption_ventana, Len(caption_ventana)) ' Obtiene solo el caption sin los espacios nulos de la cadena caption_ventana = Left$(caption_ventana, Length) Titulo_Ventana = caption_ventana If caption_ventana <> Ventanaanterior Then Ventanaanterior = caption_ventana End If End Function Private Function ESTADOVENTANA(hwn As Long) As Byte 'Variable para usar la estructura WINDOWPLACEMENT Dim T_WINDOWPLACEMENT As WINDOWPLACEMENT Dim Ret As Long 'Valor de retorno de la función 'Para este ejemplo solo necesitamos enviarle el tamaño de la estructura 'en la variable Lenght T_WINDOWPLACEMENT.Length = Len(T_WINDOWPLACEMENT) 'Llamamos a la función Ret = GetWindowPlacement(hwn, T_WINDOWPLACEMENT) ' Form1.Cls Select Case T_WINDOWPLACEMENT.showCmd Case 1 'MsgBox "Form2 en estado Normal " ESTADOVENTANA = 1 Case 2 ' MsgBox "Form2 Minimizado " ESTADOVENTANA = 2 Case 3 ' MsgBox "Form2 Maximizado " ESTADOVENTANA = 3 End Select 'Label3.Caption = T_WINDOWPLACEMENT.showCmd End Function espero te sirva |
Etiquetas |
apis, ayuda, excel, windows |
|