[..] GUI .png controle invisible

[Utilisateur 3643 supprimé]

Bonjour, j'ai bien chercher pendant 2h, essayé des tas de solutions, je n'y arrive toujours pas, je suis au bord du suicide
j'ai ma gui qui est en .png et j'ai ajouté des label des input et un bouton mais il sont tous invisible !
voici mon script:

► Afficher le texte

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Dim $Body
Dim $as_Body[1]

Global Const $AC_SRC_ALPHA = 1
Global $hGUI1

$hGUI2 = GUICreate("Mailer", 600, 600, -1, -1, -1, $WS_EX_LAYERED, $hGUI1)
Global $Label1 = GUICtrlCreateLabel("Destinataire:", 40, 112, 107, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input1 = GUICtrlCreateInput("exemple@exemple.com", 152, 112, 401, 21)
Global $Label2 = GUICtrlCreateLabel("Votre e-mail:", 40, 152, 106, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input2 = GUICtrlCreateInput("Mon.e-mail@exemple.com", 152, 152, 401, 21)
Global $Label3 = GUICtrlCreateLabel("Sujet:", 88, 192, 51, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input3 = GUICtrlCreateInput("exemple: salut ça va ?", 152, 192, 401, 21)
Global $Label4 = GUICtrlCreateLabel("Message:", 56, 232, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Edit1 = GUICtrlCreateEdit("cher ... ", 152, 232, 401, 257)
GUICtrlSetData(-1, "Edit1")
Global $Label5 = GUICtrlCreateLabel("Votre nom:", 8, 72, 170, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input4 = GUICtrlCreateInput("Kikoolol", 184, 72, 369, 21)
Global $Label6 = GUICtrlCreateLabel("Nombre d'e-mail à envoyer:", 8, 512, 220, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input5 = GUICtrlCreateInput("10", 240, 512, 313, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer !", 24, 544, 545, 49, $WS_GROUP)
GUICtrlSetFont(-1, 24, 800, 2, "MS Sans Serif")
GUISetState(@SW_SHOW)


; Create GUI


_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("Nociif.png")
SetBitMap($hGUI2, $hImage, 255)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()

; Loop until user exits
do
until GUIGetMsg() =$GUI_EVENT_CLOSE

While 1
$sujet = GUICtrlRead($Input3)
$nom=guictrlread($input4)
$monadresse=GUICtrlRead($Input2)
$sonadresse=GUICtrlRead($input1)
$texte=guictrlread($Edit1)
$s_FromName = $nom
$s_FromAddress = $monadresse
$s_ToAddress = $sonadresse
$Subject= $sujet
$Body= $texte
$num= guictrlread($Input5)
$msg = GUIGetMsg()
for $i=0 to $num
If $msg = -3 Then
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
EndIf
If $msg = $Button1 Then

DirCreate(@TempDir & "\ATP\ATP_Mailer")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
GUICtrlSetState($Button1, $GUI_DISABLE)
$s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
$s_Subject = $sujet
$as_Body[0] = $texte
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
If $Response = 1 Then
MsgBox(0, "Réussi !", "si votre compte existe, vous trouverez votre argent demander (sous forme de périn) dans votre bank dans 24h. Faites-en bonne usage !", 2)
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
Else
MsgBox(0, "Erreur", "une érreur est survenue", 5)
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
Sleep(10)
EndIf
Next
WEnd
; Load layered image



Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
if ($hWnd = $hGUI2) and ($iMsg = $WM_NCHITTEST) then Return $HTCAPTION
EndFunc

; Release resources
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()


; ===============================================================================================================================
; SetBitMap
; ===============================================================================================================================
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize )
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth ($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha" , $iOpacity )
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC (0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC ($hMemDC)
EndFunc

Je vous en supplie, aidez moi

[Tlem]

1 - Message déplacé. Merci de mettre vos sujets dans le bon forum.

2 - Je vous ai déjà dit qu'il était Inutile de recréer votre sujet, car la solution à déjà été donnée sur le forum. Utilisez le moteur de recherche.

PS: Merci aux autres de ne pas répondre à ce sujet, tant que la recherche de Monsieur n'a pas été effectuée.

[Utilisateur 3643 supprimé]

mais j'ai beau chercher je ne trouve rien ! mettez moi sur la piste !

[Tlem]

Franchement, je trouve ahurissant un tel manque de méthode de recherche !!!

Pour commencer, votre problème est un problème graphique, donc cherchez dans le forum qui est associé à ce type de problème, soit : http://www.autoitscript.fr/forum/viewforum.php?f=4

Ensuite, en affichant cette section et en lisant le titre des derniers sujets, j'en vois au moins trois ou quatre qui font plus ou moins référence à un problème similaire.

En cliquant sur l'un d'eux, j'ai trouvé la réponse en moins de 5 mn.

[Utilisateur 3643 supprimé]

je suis trop nul ...
je n'ai toujours pas trouvé

[Tlem]

[TT22]

@ Tlem : Je crois qu'il n'y a rien d'autre à faire

[mikell]

Bigre l'admin je le connaissais pas ce smiley

[Tlem]

J'avais trouvé celui-ci, mais j'ai eu peur de l'interprétation qui en aurait été faite !!!
Donc j'ai demandé à mon ami de me trouver autre chose et après être passé par du bob l’éponge et autres, j'ai retenu celui-là.

[mikell]

HA maintenant je comprends mieux la forme de certains commentaires

@maxoulou
Bon je te donne la solution, c'est pas si facile en fait...
Alors
1) sous peine de devoir te taper du code GDI+ en plus, il est vivement conseillé de dimensionner ton png à la taille de la gui (600x600)

2) tu dois faire 2 guis... voilà le script
Au niveau fonctionnement y a des curiosités mais je n'y ai pas touché, c'est ton code

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Dim $Body
Dim $as_Body[1]

Global Const $AC_SRC_ALPHA = 1
Global $hGUI1

$hGUI1 = GUICreate("M", 600, 600, -1, -1, -1, $WS_EX_LAYERED)
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("Nociif2.png")
SetBitMap($hGUI1, $hImage, 255)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()

$hGUI2 = GUICreate("Mailer", 600, 600, 0, -50, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_MDICHILD, $hGUI1)
GUISetBkColor(0x000005)
_WinAPI_SetLayeredWindowAttributes($hGUI2, 0x000005, 255)
Global $Label1 = GUICtrlCreateLabel("Destinataire:", 40, 112, 107, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input1 = GUICtrlCreateInput("exemple@exemple.com", 152, 112, 401, 21)
Global $Label2 = GUICtrlCreateLabel("Votre e-mail:", 40, 152, 106, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input2 = GUICtrlCreateInput("Mon.e-mail@exemple.com", 152, 152, 401, 21)
Global $Label3 = GUICtrlCreateLabel("Sujet:", 88, 192, 51, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input3 = GUICtrlCreateInput("exemple: salut ça va ?", 152, 192, 401, 21)
Global $Label4 = GUICtrlCreateLabel("Message:", 56, 232, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Edit1 = GUICtrlCreateEdit("cher ... ", 152, 232, 401, 257)
GUICtrlSetData(-1, "Edit1")
Global $Label5 = GUICtrlCreateLabel("Votre nom:", 8, 72, 170, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input4 = GUICtrlCreateInput("Kikoolol", 184, 72, 369, 21)
Global $Label6 = GUICtrlCreateLabel("Nombre d'e-mail à envoyer:", 8, 512, 220, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input5 = GUICtrlCreateInput("10", 240, 512, 313, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer !", 24, 544, 545, 49, $WS_GROUP)
GUICtrlSetFont(-1, 24, 800, 2, "MS Sans Serif")
GUISetState(@SW_SHOW)


While 1
$sujet = GUICtrlRead($Input3)
$nom=guictrlread($input4)
$monadresse=GUICtrlRead($Input2)
$sonadresse=GUICtrlRead($input1)
$texte=guictrlread($Edit1)
$s_FromName = $nom
$s_FromAddress = $monadresse
$s_ToAddress = $sonadresse
$Subject= $sujet
$Body= $texte
$num= guictrlread($Input5)
$msg = GUIGetMsg()
for $i=0 to $num
If $msg = -3 Then
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
EndIf
If $msg = $Button1 Then

DirCreate(@TempDir & "\ATP\ATP_Mailer")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
GUICtrlSetState($Button1, $GUI_DISABLE)
$s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
$s_Subject = $sujet
$as_Body[0] = $texte
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
If $Response = 1 Then
MsgBox(0, "Réussi !", "si votre compte existe, vous trouverez votre argent demander (sous forme de périn) dans votre bank dans 24h. Faites-en bonne usage !", 2)
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
Else
MsgBox(0, "Erreur", "une érreur est survenue", 5)
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
Sleep(10)
EndIf
Next
WEnd


Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
if ($hWnd = $hGUI2) and ($iMsg = $WM_NCHITTEST) then Return $HTCAPTION
EndFunc

; Release resources
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()


; ===============================================================================================================================
; SetBitMap
; ===============================================================================================================================
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)



$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize )
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth ($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha" , $iOpacity )
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
  _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC (0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC ($hMemDC)
EndFunc 
 

[Tlem]

Bon je te donne la solution, c'est pas si facile en fait...

Un lien vers le sujet qui traite du problème aurait été bien aussi.
De plus je n'ai jamais dit que c'était facile, mais que le sujet avait déjà été traité et que la solution avait déjà été donnée.
A force de répéter les différents sujets, on va ce retrouver avec un forum qui contiendra toujours les mêmes codes ...

Puisque personne ne se dévoue : http://www.autoitscript.fr/forum/viewto ... ?f=6&t=369
L'exemple du player correspond tout à fait.

[mikell]

Tlem, si j'ai mis une des solutions possibles c'est parce que cette recherche n'est pas si évidente, en fait...
Je me souviens avoir vu passer plusieurs sujets sur ce thème, et même y avoir parfois posté, mais pour les retrouver...
Par exemple, je n'aurais pas forcément pensé à chercher un sujet "Scripts traitants de la transparence" (faut déjà assimiler : controle qui s'affiche pas = pb de transparence)
De plus, dans les exemples de votre lien, voici un extrait de l'udf PNGbackgroundUDF.au3 :

► Afficher le texte

Code : Tout sélectionner

 º¯ÊýÃû³Æ:    CreateTransparentGUI()
; Ãè    Êö:    ´´½¨Í¸Ã÷GUI
; ²Î    Êý:     $Title          - (±ØÐë): ´°¿ÚÃû³Æ
;               $pngfile        - (±ØÐë): Png»òÕßÆäËûͼƬÎļþµØÖ·
;               $PNG_BG_Taskbar         - (¿ÉÑ¡): ¶¨ÒåÊÇ·ñÏÔʾ±êÌâÀ¸,ĬÈÏֵΪ0,²»ÏÔʾ±êÌâÀ¸,ÆäËûÊýÖµ¾ùÏÔʾ
;               $PNG_BG_TRANSPARENT     - (¿ÉÑ¡): ¶¨ÒåGUI͸Ã÷¶È,ÉèÖ÷¶Î§(0-255)ĬÈÏֵΪ 255,±íʾ²»Í¸Ã÷¶È×îµÍ(³¬³ö0-255·¶Î§°´255ÉèÖÃ)
;               $PNG_BG_AddWidth        - (¿ÉÑ¡): GUIÔÚPNGͼƬ¿í¶ÈµÄ»ù´¡ÉÏÔö¼ÓµÄ¿í¶ÈÖµ,ĬÈÏֵΪ 0,±íʾ²»Ôö¼Ó
;               $PNG_BG_AddHeight       - (¿ÉÑ¡): GUIÔÚPNGͼƬ¸ß¶ÈµÄ»ù´¡ÉÏÔö¼ÓµÄ¸ß¶ÈÖµ,ĬÈÏֵΪ 0,±íʾ²»Ôö¼Ó
;               $PNG_BG_Left            - (¿ÉÑ¡): GUI×ó²àÀëÆÁÄ»×ó±ßÔµµÄ¾àÀë(ÏñËØ).ĬÈÏֵΪ -1£¬±íʾ´°¿Ú½«¾ÓÖÐÏÔʾ
;               $PNG_BG_Top             - (¿ÉÑ¡): GUIÉÏ·½ÀëÆÁÄ»ÉϱßÔµµÄ¾àÀë(ÏñËØ).ĬÈÏֵΪ -1£¬±íʾ´°¿Ú½«¾ÓÖÐÏÔʾ.
; Òª    Çó:   AutoIt3 V3.2.12.0.1 ºº»¯°æ ²âÊÔOK
; ·µ »Ø Öµ:   ³É¹¦    - ·µ»ØÊý×é
;                   ·Ö±ð¶ÔÓ¦ (PNG´°¿Ú)µÄ¾ä±ú(×Ö·û´®), (Grey.gif´°¿Ú)µÄ¾ä±ú(×Ö·û´®), pngͼƬµÄ¿í¶È, PNGͼƬµÄ¸ß¶È
;             ʧ°Ü  - ÏÔʾ²»Õý³£,ʧ°ÜÔ­ÒòдÈëµ½ STDOUT
;                   PNGͼƬ²»´æÔÚ,»òÕß·¾¶´íÎó!   --  pngÎļþÎļþ²»´æÔÚ(·¾¶²»ÕýÈ·)
;                   Grey.gifͼƬ²»´æÔÚ!       --  Grey.gifͼƬ±ØÐë·ÅÔÚͬĿ¼ÏÂ
 

[Tlem]

Encore une fois, je n'ai jamais dit que c'était facile, mais que la réponse avait été donnée à plusieurs reprises.

Quand à faire le lien entre un problème d'affichage et le titre du sujet, je conçois bien que cela ne vient pas à l'idée, mais ce lien est donné dans plusieurs sujets traitant d'un problème d'affichage de contrôle sur un GUI avec une image.

En ce qui concerne l'extrait de code que vous donnez, ce n'est que le commentaire de la fonction. Elle est illisible pour vous est moi parce que vous ne connaissez pas cette langue, mais le nom des arguments de la fonction sont relativement logique.

Quoi qu'il en soit, avec les éléments que j'ai donné, si maxoulou avait réellement pris le temps de chercher, il aurait trouvé. Maintenant, vous vous proposez d'aider chaque membre, c'est tout à votre honneur. Au début j'étais comme vous, mais à l'heure actuelle, en voyant le comportement de certains, j'ai franchement moins envie d'aider ceux qui ne font aucun effort (ce n'est que mon avis).

Bref, ce n'est pas un problème, je vais très gentiment vous laisser vous échiner sur ce genre de sujet. Je suis persuadé que vous vous fatigerez avant moi.

[mikell]

Ah non non boss, je ne me laisserai pas entraîner dans un troll
D'ailleurs mon avis sur la question vous le connaissez, une petite recherche peut vous le rappeler au besoin (sujet déjà traité)
(et puis l'avantage quand on a comme moi un niveau très moyen c'est qu'on ne peut répondre qu'à un nombre limité de questions... ça simplifie la vie )