En efecto, funcionarà en VFP6 con la ayuda de FoxTools para que se pueda obtener el Handle de la ventana el cual, con VFP7 ya viene incorporado como propiedad (Thisform.hWnd) , cosa que VFP6 y anteriores no poseia.
>Hola, Gustavo.
>>Agradeceria altamente me pudieran suministrar via correo electrónico un formulario de Visual FoxPro 6.0 (.SCX .SCT) que tenga caracteristicas de transparencia, los que he conseguido son unicamente para Visual Basic.
>Esto no depende tanto de la versión de Visual FoxPro como del sistema operativo que utilices. Te paso aquí la parte involucrada en una de mis clases. Lo que hace este formulario es aparecer poco a poco.
with thisform
.Fade( 0 )
.Show()
.Fade( +1 )
endif
with thisform
If .Visible
.Fade( -1 )
EndIf
endwith
Lparameters tnMode as Number
With thisform
If .ShowWindow = 2 and Val( Os(3) ) >= 5
If Empty( tnMode )
SetWindowLong( .hWnd, -20, 0x00080000 )
SetLayeredWindowAttributes( .hWnd, 0, 0, 2 )
Else
Local lnOpacity, lnFrom, lnTo, lnStep
lnFrom = Iif( tnMode > 0, 0, 255 )
lnTo = Iif( tnMode > 0, 255, 0 )
lnStep = tnMode * 25
for lnOpacity = lnFrom to lnTo step lnStep
SetWindowLong( .hWnd, -20, 0x00080000 )
SetLayeredWindowAttributes( .hWnd, 0, lnOpacity, 2 )
Next
SetWindowLong( .hWnd, -20, 0x00080000 )
SetLayeredWindowAttributes( .hWnd, 0, lnTo, 2 )
EndIf
endif
endwith>El código está funcionando en Visual FoxPro 7 y 8, pero básicamente debería funcionar en Visual FoxPro 6 también, con algún cambio menor.
>Espero que te sea útil,
