[R] Soucis de fond d'ecran

[Bzhandroid]

Bonjour


Afin de faire une fenetre propre, j'aimerai intégré un fond d'ecran. donc voici ce que j'ai fait.

► Afficher le texte

Code : Tout sélectionner

$Form1_1 = GUICreate("Configuration du serveur", 800,500, 200, 150, BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER))

GUICtrlCreatePic("K:\SCCM2012\Prive\Script_source\DSC_1652R (2).jpg", 0, 0,1000,800,$SS_BITMAP)
;~ GUICtrlCreatePic("d:\utilisateurs\toto\Desktop\Projet 2012\evolution1.jpg", 0, 0,800,500,$SS_BITMAP)


$font = "Comic Sans MS"
    GUISetFont(15, 4000, 6, $font) ; will display underlined characters
$IPserver1 = GUICtrlCreateLabel("Configuration de la carte réseau", 250, 20, 330, 30,$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$font = "Comic Sans MS"
    GUISetFont(9, 400, 2, $font) ; will display underlined characters
$IPserver1 = GUICtrlCreateLabel("Adresse IP :", 100, 100)
$sIPAddress1 = _GUICtrlIpAddress_Create($Form1_1, 100, 120, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($sIPAddress1, "0.0.0.0")

$IPMask1 = GUICtrlCreateLabel("Masque de sous-réseau", 100, 150)
$sSubnetMask1 = _GUICtrlIpAddress_Create($Form1_1, 100, 170, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($sSubnetMask1, "0.0.0.0")

$IPpasserelle1 = GUICtrlCreateLabel("Passerelle par défaut",100, 200)
$adapterName1 = _GUICtrlIpAddress_Create($Form1_1, 100, 220, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($adapterName1, "0.0.0.0")

$dns1 = GUICtrlCreateLabel("Serveur DNS préféré", 100, 300)
$dns1 = _GUICtrlIpAddress_Create($Form1_1, 100, 320, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($dns1, "0.0.0.0")

$dns2 = GUICtrlCreateLabel("Serveur DNS auxiliaire", 100, 350)
$dns2 = _GUICtrlIpAddress_Create($Form1_1, 100, 370, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($dns2, "0.0.0.0")


$btnValider = GUICtrlCreateButton("Suivant", 600, 400, 89, 33)
$btnQuitter = GUICtrlCreateButton("Quitter", 608, 176, 89, 33)
 

Lorsque je compile mon script, nickel ca marche comme je le veux. Mais il n'a pas compilé l'image dans le programme mais va la chercher à chaque fois suivant son chemin. Donc quand je l'execute d'un autre poste, j'ai un arriere plan sans image.

Qu'aurais je oublié pour que l'image soit dans le .exe??

[jguinch]

Regarde la fonction FileInstall, elle te permettra d'embarquer des fichiers dans ton exécutable (et les extraira à l'exécution)
Sinon, tu peut mettre directement l'image dans ton script en hexa : regarde ici

Je te conseil plus que vivement de désactiver ton image pour éviter tout problème de superposition avec tes contrôles.

[Bzhandroid]

Je te remercie

ca marche nickel.