Page 1 sur 1

dessinner un rectangle au fond en couleur sur un onglet

Posté : lun. 01 avr. 2019 13:11
par ericire
Bonjour,
un truc basique qui ne fonctionne pas et je ne comprends pas pourquoi.
Je désire mettre un cadre rectangulaire au fond en couleur sur un onglet
dans mon onglet j'ai essayé sans succès (rien n'apparait du tout)

Code : Tout sélectionner

$GUICtrlCreateTabItem = GUICtrlCreateTabItem("Paramètres")
;cadre
$cadre1 = GUICtrlCreateGraphic($left+4, $top+4, 1162, 450,0) ; $SS_GRAYRECT, $SS_GRAYFRAME
GUICtrlSetColor($cadre1, 0xE69CFF )
GUICtrlSetBkColor($cadre1, 0xE69CFF);660066
avec $SS_GRAYRECT le cadre apparait mais en gris
j'ai aussi essayé sans le ,0 comme je l'ai vu dans certains exemples, sans plus de succès
également jouer sur la couleur $COLOR_RED avec les constantes afférentes

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 10:03
par TommyDDR
Au risque de me répéter :
Si vous voulez que les gens vous aident, fournissez un code qui permet d'être copié collé pour être testé.
Si vous forcez les gens à réécrire du code, 80% de ceux qui comptaient vous aider abandonneront (c'est mon cas pour votre question).

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 18:49
par ericire
ok
voilà

Code : Tout sélectionner

#include <EditConstants.au3>
#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ColorConstants.au3>
#include <GuiListView.au3>





$gui = GUICreate("Créer les dossiers de l'opération", 1200,570)
GUISetFont(8,  $FW_NORMAL, $GUI_FONTNORMAL, "Arial")
Local $idTab = GUICtrlCreateTab(10, 10, 1173, 554,0)
GUICtrlCreateTabItem("Créer dossiers")

GUICtrlSetState(-1, $GUI_SHOW); s'affichera en premier

;  parametres pour déplacer l'ensemble des composantes
$left = 12
$top = 30

; les cadres
$cadre1 = GUICtrlCreateGraphic($left+4, $top+4, 1162, 330, $SS_GRAYRECT)
GUICtrlSetColor($cadre1, 0x660033 )
GUICtrlSetBkColor($cadre1, $COLOR_BLUE)
$cadre2 = GUICtrlCreateGraphic($left+4, $top+337, 1162, 58)
GUICtrlSetColor($cadre2, 0x660033 )
GUICtrlSetBkColor($cadre2, $COLOR_BLUE)
$cadre3 = GUICtrlCreateGraphic($left+4, $top+398, 1162, 130, 0)
GUICtrlSetColor($cadre3, 0x660033 )
GUICtrlSetBkColor($cadre3, $COLOR_BLUE)

; Create a radio control departement.
GUISetFont (8, 700)
$departement = GUICtrlCreateGroup("Département", $left+8, $top+50, 1153, 80)
GUISetFont (8, 400)
GUIStartGroup()
Local $idRadio1 = GUICtrlCreateRadio("2A_Corse-du-Sud", $left+10, $top+70, 127, 20)
Local $idRadio2 = GUICtrlCreateRadio("2B_Haute-Corse", $left+137, $top+70, 120, 20)
Local $idRadio3 = GUICtrlCreateRadio("04_Alpes-de-Haute-Provence", $left+257, $top+70, 173, 20)
Local $idRadio4 = GUICtrlCreateRadio("05_Hautes-Alpes", $left+430, $top+70, 123, 20)
Local $idRadio5 = GUICtrlCreateRadio("06_Alpes-Maritimes", $left+553, $top+70, 134, 20)
Local $idRadio6 = GUICtrlCreateRadio("09_Ariège", $left+687, $top+70, 80, 20)
Local $idRadio7 = GUICtrlCreateRadio("11_Aude", $left+767, $top+70, 73, 20)
Local $idRadio8 = GUICtrlCreateRadio("12_Aveyron", $left+840, $top+70, 89, 20)
Local $idRadio9 = GUICtrlCreateRadio("13_Bouches-du-Rhône", $left+929, $top+70, 154, 20)
Local $idRadio10 = GUICtrlCreateRadio("30_Gard", $left+1083, $top+70,  70, 20)
Local $idRadio11 = GUICtrlCreateRadio("31_Haute-Garonne", $left+10, $top+95,  135, 20)
Local $idRadio12 = GUICtrlCreateRadio("32_Gers", $left+145, $top+95,  71, 20)
Local $idRadio13 = GUICtrlCreateRadio("34_Hérault", $left+216, $top+95, 84, 20)
Local $idRadio14 = GUICtrlCreateRadio("46_Lot", $left+300, $top+95,  68, 20)
Local $idRadio15 = GUICtrlCreateRadio("48_Lozère", $left+368, $top+95, 84, 20)
Local $idRadio16 = GUICtrlCreateRadio("65_Hautes-Pyrénées", $left+452, $top+95,  146, 20)
Local $idRadio17 = GUICtrlCreateRadio("66_Pyrénées-Orientales", $left+598, $top+95, 160, 20)
Local $idRadio18 = GUICtrlCreateRadio("81_Tarn", $left+758, $top+95,  71, 20)
Local $idRadio19 = GUICtrlCreateRadio("82_Tarn-et-Garonne", $left+829, $top+95,  143, 20)
Local $idRadio20 = GUICtrlCreateRadio("83_Var", $left+972, $top+95, 66, 20)
Local $idRadio21 = GUICtrlCreateRadio("84_Vaucluse", $left+1038, $top+95, 90, 20)
; Create a radio control type opération.
GUISetFont (8, 700)
$type_operation = GUICtrlCreateGroup("Type opération", $left+8,$top+130, 175, 50)
GUISetFont (8, 400)
GUIStartGroup()
Local $idRadio22 = GUICtrlCreateRadio("Diagnostics", $left+10, $top+150, 80, 20)
Local $idRadio23 = GUICtrlCreateRadio("Fouilles", $left+100, $top+150, 80, 20)
; Create a input text communes.
GUISetFont (8, 700)
GUICtrlCreateLabel("Commune", $left+8, $top+185, 136, 17)
GUISetFont (8, 400)
$dossier_communes = GUICtrlCreateInput("", $left+8, $top+205, 1153, 21)
$focus = GUICtrlSetState( $dossier_communes , $GUI_FOCUS )
; Create a input text nom chantier.
GUISetFont (8, 700)
GUICtrlCreateLabel("Nom chantier", $left+8, $top+235, 136, 17)
GUISetFont (8, 400)
$nom_chantierinput = GUICtrlCreateInput("", $left+8, $top+255, 1153, 21)
; Create a input text code SGA.
GUISetFont (8, 700)
GUICtrlCreateLabel("Code SGA", $left+8, $top+287, 250, 17)
GUISetFont (8, 400)
$code_saga_input = GUICtrlCreateInput("", $left+8, $top+306, 1153, 21)
; Create a input text chemin des dossiers à créer.
GUISetFont (8, 700)
GUICtrlCreateLabel("Chemin des dossiers à créer: cliquer ici --->", $left+8, $top+347, 300, 17)
GUISetFont (8, 400)
$chemininput = GUICtrlCreateInput("" ,$left+8, $top+367, 1153, 21)

; Create a input text c'est fait.
$fait = GUICtrlCreateLabel("" ,$left+480, $top+454, 200, 30)
GUICtrlSetFont ( $fait, 18 , 700)

; boutons
$ok = GUICtrlCreateButton("chemin des dossiers à créer",$left+330,$top+340,179,25)
GUICtrlSetBkColor($ok, 0xFFE8AD )
$doss = GUICtrlCreateButton("créer les dossiers",$left+8,$top+454,390,30)
GUICtrlSetBkColor($doss, 0xE69CFF )
$ouvrir = GUICtrlCreateButton("ouvrir le dossier",$left+8,$top+494,160,30)
GUICtrlSetBkColor($ouvrir, 0xFFFF66 )
Local $idNewsubmenu =  GUICtrlCreateContextMenu($ouvrir)
Local $itemO = GUICtrlCreateMenuItem("ouvrir le dossier", $idNewsubmenu)
Local $itemOF = GUICtrlCreateMenuItem("ouvrir le dossier et fermer", $idNewsubmenu)

; volet parametres
$GUICtrlCreateTabItem = GUICtrlCreateTabItem("Paramètres")

; les cadres
$cadre4 = GUICtrlCreateGraphic($left+4, $top+4, 1162, 450,$SS_GRAYRECT) ;, $SS_GRAYRECT, $SS_GROAYFRAME
GUICtrlSetColor($cadre4, 0x660033 )
GUICtrlSetBkColor($cadre4, $COLOR_RED);660066

; Create a input text dossier racine.(10, 700 )
GUISetFont (8, 700)
$serveurAdmin = GUICtrlCreateGroup("Serveur administration", $left+8, $top+10, 1153, 97)
GUISetFont (8, 400)
GUIStartGroup()
Local $dossier_racine = GUICtrlCreateLabel("Dossier racine", $left+12, $top+25, 136, 17)
Local $dossier_racineinput = GUICtrlCreateInput("", $left+12, $top+40, 1145, 21)
GuiCtrlSetData($dossier_racineinput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "dossier racine", "" ) )
; Create a input text des dossiers à créer.
GUICtrlCreateLabel("Liste des dossiers à créer dans l'opération(séparés par des virgules sans espace)", $left+12, $top+65, 400, 17)
$dossiers = GUICtrlCreateInput("" ,$left+12, $top+80, 1145, 21)
 GuiCtrlSetData($dossiers,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "liste dossiers", "" ) )
 ; Create inputs text adresse NAS.(10, 700 )
GUISetFont (8, 700)
$NAS = GUICtrlCreateGroup("Les NAS", $left+8, $top+110, 1153, 250)
GUISetFont (8, 400)
GUIStartGroup()
;NIMES
Local $NasNimes = GUICtrlCreateLabel("Nîmes", $left+17, $top+125, 136, 17)
Local $NasNimesInput = GUICtrlCreateInput("", $left+12, $top+140, 600, 21)
GuiCtrlSetData($NasNimesInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Nimes", "" ) )
Local $NasNimesDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+125, 136, 17)
Local $NasNimesDepartementsInput = GUICtrlCreateInput("", $left+615, $top+140, 542, 21)
GuiCtrlSetData($NasNimesDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Nimes", "" ) )
;VLB
Local $NasVLB = GUICtrlCreateLabel("Villeneuve-Les-Béziers", $left+17, $top+165, 136, 17)
Local $NasVLBInput = GUICtrlCreateInput("", $left+12, $top+180, 600, 21)
GuiCtrlSetData($NasVLBInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS VLB", "" ) )
Local $NasVLBDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+165, 136, 17)
Local $NasVLBDepartementsInput = GUICtrlCreateInput("", $left+615, $top+180, 542, 21)
GuiCtrlSetData($NasVLBDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS VLB", "" ) )
;Perpignan
Local $NasPerpignan = GUICtrlCreateLabel("Perpignan", $left+17, $top+205, 136, 17)
Local $NasPerpignanInput = GUICtrlCreateInput("", $left+12, $top+220, 600, 21)
GuiCtrlSetData($NasPerpignanInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Perpignan", "" ) )
Local $NasPerpignanDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+205, 136, 17)
Local $NasPerpignanDepartementsInput = GUICtrlCreateInput("", $left+615, $top+220, 542, 21)
GuiCtrlSetData($NasPerpignanDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Perpignan", "" ) )
;Toulouse
Local $NasToulouse = GUICtrlCreateLabel("Toulouse", $left+17, $top+245, 136, 17)
Local $NasToulouseInput = GUICtrlCreateInput("", $left+12, $top+260, 600, 21)
GuiCtrlSetData($NasToulouseInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Toulouse", "" ) )
Local $NasToulouseDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+245, 136, 17)
Local $NasToulouseDepartementsInput = GUICtrlCreateInput("", $left+615, $top+260, 542, 21)
GuiCtrlSetData($NasToulouseDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Toulouse", "" ) )
;Marseille
Local $NasMarseille = GUICtrlCreateLabel("Marseille", $left+17, $top+285, 136, 17)
Local $NasMarseilleInput = GUICtrlCreateInput("", $left+12, $top+300, 600, 21)
GuiCtrlSetData($NasMarseilleInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Marseille", "" ) )
Local $NasMarseilleDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+285, 136, 17)
Local $NasMarseilleDepartementsInput = GUICtrlCreateInput("", $left+615, $top+300, 542, 21)
GuiCtrlSetData($NasMarseilleDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Marseille", "" ) )
;Eguille
Local $NasEguille = GUICtrlCreateLabel("Eguille", $left+17, $top+325, 136, 17)
Local $NasEguilleInput = GUICtrlCreateInput("", $left+12, $top+340, 600, 21)
GuiCtrlSetData($NasEguilleInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Eguille", "" ) )
Local $NasEguilleDepartements = GUICtrlCreateLabel("Départements", $left+620, $top+325, 136, 17)
Local $NasEguilleDepartementsInput = GUICtrlCreateInput("", $left+615, $top+340, 542, 21)
GuiCtrlSetData($NasEguilleDepartementsInput,  IniRead ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Eguille", "" ) )



GUICtrlCreateTabItem(""); fin de la définition de TabItem

 GUISetState(@SW_SHOW)



 ;$r = _ArrayFindAll($departements,"05_Hautes-Alpes")
 ;_ArrayDisplay($r, "Found")
 ;MsgBox($MB_SYSTEMMODAL, "Title", $r)



    Local $idMsg = GUIGetMsg()
    ; Boucle jusqu'à ce que l'utilisateur quitte.
    While $idMsg <> $GUI_EVENT_CLOSE
        If $idMsg = $idTab Then
            ; Affiche l'onglet cliqué
            WinSetTitle("My GUI Tab", "", "My GUI Tab" & GUICtrlRead($idTab))
        EndIf
        $idMsg = GUIGetMsg()
    WEnd

GUISetState()

Global $departement, $operation, $chemin, $chemin_liste_dossiers, $code_saga_input

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		 $chemin_liste_dossiers = "Liste_dossiers_a_creer"
		 DirCreate($chemin_liste_dossiers)
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url administration", GUICtrlRead($dossier_racineinput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "liste dossiers administration", GUICtrlRead($dossiers ))

		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Nimes", GUICtrlRead($NasNimesInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS VLB", GUICtrlRead($NasVLBInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Perpignan", GUICtrlRead($NasPerpignanInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Toulouse", GUICtrlRead($NasToulouseInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Marseille", GUICtrlRead($NasMarseilleInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "url NAS Eguille", GUICtrlRead($NasEguilleInput))

		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Nimes", GUICtrlRead($NasNimesDepartementsInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS VLB", GUICtrlRead($NasVLBDepartementsInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Perpignan", GUICtrlRead($NasPerpignanDepartementsInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Toulouse", GUICtrlRead($NasToulouseDepartementsInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Marseille", GUICtrlRead($NasMarseilleDepartementsInput))
		 IniWrite ( "Liste_dossiers_a_creer\params.ini", "generale", "Departements NAS Eguille", GUICtrlRead($NasEguilleDepartementsInput))

		 Exit
      Case $idRadio1, $idRadio2, $idRadio3, $idRadio4,  $idRadio5, $idRadio6, $idRadio7, $idRadio8,  $idRadio9, $idRadio10, $idRadio11, $idRadio12,  $idRadio13,  $idRadio14,  $idRadio15,  $idRadio16,  $idRadio17,  $idRadio18,  $idRadio19,  $idRadio20,  $idRadio21
         If GUICtrlRead($nMsg) = 1 Then $departement = GUICtrlRead($nMsg, 1)
      Case $idRadio22, $idRadio23
         If GUICtrlRead($nMsg) = 1 Then $operation = GUICtrlRead($nMsg, 1)
	  Case $ok
		 $focus = GUICtrlSetState( $dossiers , $GUI_FOCUS )
         $racine = GUICtrlRead($dossier_racineinput)
         $commune = GUICtrlRead($dossier_communes)
         $chantier = GUICtrlRead($nom_chantierinput)
         If $racine <> "" and $departement <> "" and $operation <> "" and $commune <> "" and $chantier <> "" and $code_saga_input <> ""  Then
             $chemin = $racine & "\" & $departement & "\" & $operation & "\" & $commune & "_" & $chantier & "_" & GUICtrlRead($code_saga_input)
             GuiCtrlSetData($chemininput, $chemin)
		  EndIf
		  GuiCtrlSetData( $fait , "" )
		 $focus = GUICtrlSetState( $doss , $GUI_FOCUS )
	  Case $doss
		 If $chemin <> "" and $dossiers <> "" Then
			$dossiers_a_creer = StringSplit( GUICtrlRead($dossiers ), ",")
			For $i = 1 To $dossiers_a_creer[0]
			   DirCreate($chemin & "\" & $dossiers_a_creer[$i])
			Next
			GuiCtrlSetData( $fait , "C'est fait !" )
		 EndIf
	  Case $ouvrir
		 ControlClick ( "", "", $ouvrir, "right")
	  Case $itemO
		 Run ("explorer.exe /n,/e," & GUICtrlRead( $chemininput))
	  Case $itemOF
		 GUISetState ( @SW_HIDE )
		 WinClose($gui)
		  Run ("explorer.exe /n,/e," & GUICtrlRead( $chemininput))
		 Exit

   EndSwitch
WEnd
à part le cadre gris pas de couleur

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 18:57
par ericire
bon quelqu'un ma donné le tuyau :
un label vide
GUICtrlCreateLabel ("",50,50,50,50)
GUICtrlSetBkColor (-1,0xFF0000)

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 20:08
par ericire
oui mais j'ai chanté trop vite
ce label vide empêche de cliquer sur les controls

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 20:35
par walkson
Bonjour,
Il y a https://www.autoitscript.com/forum/topi ... b-control/ qui pourrait vous intéresser.
Je joints l'UDF et l'exemple mis à jour
Image

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : mar. 02 avr. 2019 22:01
par walkson
Sinon, en plus simple
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Templates\Form1.kxf
Global $Form1 = GUICreate("Form1", 606, 408, 691, 192)
Global $Tab1 = GUICtrlCreateTab(32, 32, 521, 337, -1, $WS_EX_STATICEDGE)
Global $TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
GUICtrlSetBkColor(-1,0xAAAAFF)
GUICtrlCreateLabel("BLEU",50,100,50,30)
Global $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateLabel("ROUGE",50,100,50,30)
Global $TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
Global $Pic4 = GUICtrlCreatePic("C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Green.bmp", 50, 80, 470, 260)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreateLabel("VERT",50,100,50,30)
GUICtrlCreateButton("",120,100,100,30)
GUICtrlCreateTabItem("")
Global $Pic1 = GUICtrlCreatePic("C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Blue.bmp", 32, 32, 69, 25)
GUICtrlSetState(-1,BitOR($GUI_DISABLE,$GUI_ONTOP))
Global $Pic2 = GUICtrlCreatePic("C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Red.bmp", 101, 32, 69, 25)
GUICtrlSetState(-1,BitOR($GUI_DISABLE,$GUI_ONTOP))
Global $Pic3 = GUICtrlCreatePic("C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Green.bmp", 170, 32, 69, 25)
GUICtrlSetState(-1,BitOR($GUI_DISABLE,$GUI_ONTOP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
ou en utilisant imagelist
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GUITab.au3>
#include <ImageListConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Templates\Form1.kxf
Global $Form1 = GUICreate("Form1", 606, 408, 691, 192)
GUISetBkColor(0x000035)
$ImageList1 = _GUIImageList_Create(64, 16, 5)
_GUIImageList_AddBitmap($ImageList1, "C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Blue.bmp")
_GUIImageList_AddBitmap($ImageList1, "C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Red.bmp")
_GUIImageList_AddBitmap($ImageList1, "C:\Program Files\AutoIt3\Examples\GUI\Advanced\Images\Green.bmp")
Global $Tab1 = GUICtrlCreateTab(64, 56, 369, 233, -1, $WS_EX_STATICEDGE)
_GUICtrlTab_SetImageList($Tab1, $ImageList1)
Global $TabSheet1 = GUICtrlCreateTabItem(" ");Laissez un espace sinon Tab ne s'affiche pas
GUICtrlCreateLabel("BLEU",100,100,50,30)
_GUICtrlTab_SetItemImage($Tab1, 0, 0)
Global $TabSheet2 = GUICtrlCreateTabItem(" ")
GUICtrlCreateLabel("ROUGE",100,100,50,30)
_GUICtrlTab_SetItemImage($Tab1, 1, 1)
Global $TabSheet3 = GUICtrlCreateTabItem(" ")
GUICtrlCreateLabel("VERT",100,100,50,30)
_GUICtrlTab_SetItemImage($Tab1, 2, 2)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd

Re: dessinner un rectangle au fond en couleur sur un onglet

Posté : sam. 06 avr. 2019 00:27
par TommyDDR
Si vous désactivez votre control, il ne dérangera plus le clic.
$label = GUICtrlCreateLabel(blabla)
GUICtrlSetState($GUI_DISABLE, $label)