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

Formulario_Excel97

Ver el tema anterior Ver el tema siguiente Ir abajo

Formulario_Excel97

Mensaje por fbleon el Sáb Nov 13, 2010 8:50 am

He diseñado un Formulario en Excel2000, que permite minimizar y restaurar formulario, el código es el siguiente:
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)
Private Sub UserForm_Initialize()
Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
End Sub
Esto funciona muy bien en Excel2000, pero no me funcina en Excel97. ¿Alguien me puede ayudar con este asunto?
Otra cosa, ¿como se habilita en Excel97 la propiedad de Formulario ShowModal?
Gracias por vuestra atencion y un saludo.
Fernando

fbleon

Masculino Cantidad de envíos : 1
Edad : 61
Ciudad - Pais : España
Version de Excel : 2000
Fecha de inscripción : 08/04/2010

Volver arriba Ir abajo

Re: Formulario_Excel97

Mensaje por avalencia el Sáb Nov 13, 2010 3:54 pm

Resuelto:

[Tienes que estar registrado y conectado para ver este vínculo]

Abraham

_________________
Microsoft MVP 2010

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 38
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Formulario_Excel97

Mensaje por GalileoGali el Sáb Nov 13, 2010 10:46 pm

Escrito por Abraham Valencia ayer a las 16:37
Hola:

En dicho codigo estas usando "Thunderdframe", el cual es el Nombre de la “clase” de los Userform del VBA de Excel a partir del Excel 2000. En versiones anteriores el nombre de la clase es "ThunderXFrame". Cambialo y comentas.

Sobre la propiedad ShowModal, hasta donde recuerdo solo fue incluida a partir de Excel 2000

Abraham


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

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: Formulario_Excel97

Mensaje por Contenido patrocinado Hoy a las 12:34 pm


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.