Remplir un FORM avec la couleur ou le papier-peint du bureau

Code:: rem ============================================================================
rem Remplir un FORM avec la couleur ou le papier-peint du bureau
rem ============================================================================

full_space 0
PaintDesktop(0)
end
rem ============================================================================
SUB PaintDesktop(f%)
   dim_local hdc%,ret%
   if object_exists(f%) > 0
   hdc% = handle_canvas(f%)
   else
   message "FORM " + str$(f%) + " n'existe pas !!!" : exit_sub
   end_if
   dll_on "user32"
   ret% = dll_call1("PaintDesktop",hdc%)
   dll_off
END_SUB
rem ============================================================================

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Eh, superbe, ça !
cheers

Utile pour, par exemple, tester un code qui nécessite de charger une image pour y travailler et que l’on n’a pas une sous la main.
Pas la peine d'aller la chercher sur Mars : elle est juste en face!