dessinner un rectangle au fond en couleur sur un onglet

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

dessinner un rectangle au fond en couleur sur un onglet

#1

Message 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
Avatar du membre
TommyDDR
Modérateur
Modérateur
Messages : 2086
Enregistré le : mar. 22 juil. 2008 21:55
Localisation : Nantes
Status : Hors ligne

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

#2

Message 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).
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

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

#3

Message 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
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

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

#4

Message par ericire »

bon quelqu'un ma donné le tuyau :
un label vide
GUICtrlCreateLabel ("",50,50,50,50)
GUICtrlSetBkColor (-1,0xFF0000)
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

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

#5

Message par ericire »

oui mais j'ai chanté trop vite
ce label vide empêche de cliquer sur les controls
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

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

#6

Message 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
Fichiers joints
OwnTab.au3
(19.04 Kio) Téléchargé 581 fois
OwnTab_Example.au3
(5.39 Kio) Téléchargé 560 fois
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

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

#7

Message 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
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Avatar du membre
TommyDDR
Modérateur
Modérateur
Messages : 2086
Enregistré le : mar. 22 juil. 2008 21:55
Localisation : Nantes
Status : Hors ligne

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

#8

Message par TommyDDR »

Si vous désactivez votre control, il ne dérangera plus le clic.
$label = GUICtrlCreateLabel(blabla)
GUICtrlSetState($GUI_DISABLE, $label)
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
Répondre