en visual aussi !!
sauf que la tu vas dans le listing , dans les procedure génére par le visual designer tu met ton code !! la seul diference c'est qu'en VB tu code
dans le visual designer !! en pure le visual designer génére le program de base , puis dans l'editeur du pure (ou JAPBE!!!) tu code les reactions de tes "boutons"
mais en pure c'est tres facile de tout dessiner "a la main"
tien regarde ce code genere une fenetre avec la boucle d'attente des evenements
ensuit a toi de rajouter des "bouton" (GADGETS) pour etoffer ce prog !!
Code : Tout sélectionner
Declare SetWinTransparency(WinHandle.l, Transparency_Level.l)
WindowID = OpenWindow(1, 50, 50, 200, 200, #PB_Window_SystemMenu , "hello")
WindowID = WindowID(1)
SetWinTransparency (WindowID(), 150) ; ici on appel la procedure de transparence de fenetre
Repeat
Event=WaitWindowEvent()
; ici c'est la boucle principale
; a toi de rajouter des gadgats
Until Event=#PB_Event_CloseWindow
Procedure SetWinTransparency(WinHandle.l, Transparency_Level.l)
SetWindowLong_(WinHandle, #GWL_EXSTYLE, GetWindowLong_(WinHandle, #GWL_EXSTYLE) | $00080000) ; #WS_EX_LAYERED = $00080000
If OpenLibrary(0, "user32.dll")
CallFunction(0, "SetLayeredWindowAttributes", WinHandle, 0, Transparency_Level, 2)
CloseLibrary(0)
EndIf
EndProcedure
PS : a titre de comparaison , fait ça en Visual Basic !!
et compare le nombre de lignes ecrite !!!
tant que tu y est compare le fichier une fois compillé !!!
si tu utilise la version "Demo du pure ce programe ne marchera pas (apel d'une API )
donc tu vire la ligne
SetWinTransparency (WindowID(), 150) ; ici on appel la procedure de transparence de fenetre
