Fenêtre transparente

[Le Soldat Inconnu]

ce code ne marche que avec windows XP

Code : Tout sélectionner

Procedure SetWinTransparency (WinHandle.l, Transparency_Level.l)
  SetWindowLong_(WinHandle, #GWL_EXSTYLE, $00080000) ; #WS_EX_LAYERED = $00080000
  SetLayeredWindowAttributes_(WinHandle, 0, Transparency_Level, 2) ;
EndProcedure

hWnd = OpenWindow(0, 0, 0, 400, 360, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Invisible, "")

SetWinTransparency(WindowID(), 0)
HideWindow(0, 0)

For a = 1 To 255
  SetWinTransparency(WindowID(), a) : While WindowEvent() : Wend
Next

For a = 1 To 255
  SetWinTransparency(WindowID(), 255 - a) : While WindowEvent() : Wend
Next

Je ne me rapelle plus qui me l'avait passé mais encore un grand merci à cette personne

[julien]

Salut,

C'est moi qui t'avais filé le code sur l'ancien forum,
pour info le code marche sous Windows 2000 et sous XP

Sous 98 l'exe refuse de se lancer avec un message d'erreur : User32.dll...
Sous Nt... je ne sais pas... pour le moment je cherche un moyen pour que l'exe qui contient cette fonction puisse être lancé sous 98 quand même, mais j'ai toujours pas trouvé...!

[Oliv]

C'est "simple" en théorie, il suffit d'extraire de user32.dll SetLayeredWindowAttributes et puis c'est tout, mais pour ça...........en plus ce ne doit pas être légal. Je vais reposter mon code de transparence mais elle est complètement différente et moins jolie seulement elle est compatible tous windows

[Fred]

Pour executer ce code sur Win98 aussi (meme si ca ne fera rien) il suffit d'utiliser OpenLibrary() pour charger la fonction dynamiquement.

[Le Soldat Inconnu]

OUi, c'est ce que je comptait faire pour l'utiliser sur toute les plateformes