[R] Combo et input en hidden scintille
Posté : sam. 05 oct. 2013 16:31
par zesteph
Bonjour
Voila j'ai un soucis
pour mon GUI, j'active ou non des attributs en caché ou non suivant d'autres options.
Hors je n'ai pas trouvé sur le forum, comment résoudre mon problème qui est : les fonctions que je cache ou non scintille en permanence.
Meme quand elles sont actives.
Auriez vous une idee?
mon code
Voila j'ai un soucis
pour mon GUI, j'active ou non des attributs en caché ou non suivant d'autres options.
Hors je n'ai pas trouvé sur le forum, comment résoudre mon problème qui est : les fonctions que je cache ou non scintille en permanence.
Meme quand elles sont actives.
Auriez vous une idee?
mon code
► Afficher le texte
Code : Tout sélectionner
Local $Contenu
Global $Dossier_Annonce = @ScriptDir & "\Annonce"
Global $File_Ini_Categorie = @ScriptDir & "\Categorie.ini"
Global $File_Ini_ListeAnnonce = $Dossier_Annonce & "\Liste_Annonce.ini"
#Region ### START Koda GUI section ### Form=C:\Users\zesteph\Documents\AutoIt\LBC\Form1.kxf
$Formulaire = GUICreate("Formulaire Saisie", 800, 700, 700, 150)
$L_Nom_Objet = GUICtrlCreateLabel("Nom de l'objet :", 128, 16, 77, 17)
$Nome_Objet = GUICtrlCreateInput("", 240, 8, 313, 40)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Categorie = GUICtrlCreateCombo("",208, 56, 201, 25)
$val_Categorie= IniReadSection($File_Ini_Categorie ,"Categorie")
For $i = 1 to UBound($val_Categorie)-1
$Contenu &= $val_Categorie[$i][1] & "|"
Next
GuiCtrlSetData($Categorie, $Contenu)
GuiSetState()
if $Categorie = "Voitures" Then
MsgBox (0, "auto", $Categorie)
ElseIf $Categorie = "Autres" Then
MsgBox (0, "autres", $Categorie)
EndIf
$L_Categorie = GUICtrlCreateLabel("Categorie :", 128, 64, 55, 17)
$G_Vehicule = GUICtrlCreateGroup("Vehicule", 128, 88, 561, 105)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Annee = GUICtrlCreateLabel("Annee :", 166, 111, 41, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Annee = GUICtrlCreateInput("", 226, 105, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Kilometrage = GUICtrlCreateLabel("Kilometrage :", 456, 109, 65, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Kilometrage = GUICtrlCreateInput("", 535, 103, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Km = GUICtrlCreateLabel("Km", 661, 110, 19, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Carburant = GUICtrlCreateLabel("Carburant :", 155, 142, 56, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Carburant = GUICtrlCreateCombo("", 224, 136, 121, 25)
GUICtrlSetData(-1, "Autre|Diesel|Electrique|Essence|GPL")
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Boite_Vitesse = GUICtrlCreateLabel("Boite Vitesse :", 453, 138, 71, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Boite_Vitesse = GUICtrlCreateCombo("", 535, 131, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Automatique|Manuelle")
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Cylindree = GUICtrlCreateLabel("Cylindree :", 160, 172, 53, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Cylcindree = GUICtrlCreateInput("", 227, 168, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Cm3 = GUICtrlCreateLabel("cm3", 303, 173, 24, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$G_Maison = GUICtrlCreateGroup("Maison", 128, 200, 561, 57)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Type = GUICtrlCreateLabel("Type :", 177, 226, 34, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Type = GUICtrlCreateCombo("", 227, 218, 121, 25)
GUICtrlSetData(-1, "Enfant|Femme|Femme enceinte|Homme")
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Pointure = GUICtrlCreateLabel("Pointure :", 418, 228, 49, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Pointure = GUICtrlCreateInput("", 488, 224, 65, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$L_Titre_Annonce = GUICtrlCreateLabel("Titre de l'annonce :", 96, 296, 95, 17)
$Titre_Annonce = GUICtrlCreateInput("", 208, 296, 433, 21)
$L_Texte_Annonce = GUICtrlCreateLabel("Texte de l'annonce :", 88, 344, 101, 17)
$Texte_Annonce = GUICtrlCreateEdit("", 208, 344, 433, 217)
$Prix = GUICtrlCreateInput("", 208, 576, 113, 21)
$L_Prix = GUICtrlCreateLabel("Prix :", 160, 576, 27, 17)
$L_Nombre_Photo = GUICtrlCreateLabel("Nombre photo :", 112, 608, 77, 17)
$Nb_Photo = GUICtrlCreateCombo("", 210, 610, 65, 25)
GUICtrlSetData(-1, "0|1|2|3")
$Sauvegarde = GUICtrlCreateButton("Sauvegarde", 344, 624, 201, 41)
$Quitter = GUICtrlCreateButton("Quitter", 600, 624, 150, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
;Test de la variable Categorie pour activer ou non les Labels / Champs
Switch GUICtrlRead($Categorie)
Case "Voitures"
GUICtrlSetState($G_Vehicule, $GUI_ENABLE)
GUICtrlSetState($L_Annee, $GUI_ENABLE)
GUICtrlSetState($Annee, $GUI_ENABLE)
GUICtrlSetState($L_Kilometrage, $GUI_ENABLE)
GUICtrlSetState($Kilometrage, $GUI_ENABLE)
GUICtrlSetState($L_Km, $GUI_ENABLE)
GUICtrlSetState($L_Carburant, $GUI_ENABLE)
GUICtrlSetState($Carburant, $GUI_ENABLE)
GUICtrlSetState($L_Boite_Vitesse, $GUI_ENABLE)
GUICtrlSetState($Boite_Vitesse, $GUI_ENABLE)
GUICtrlSetState($L_Cylindree, $GUI_DISABLE)
GUICtrlSetState($Cylcindree, $GUI_DISABLE)
GUICtrlSetState($L_Cm3, $GUI_DISABLE)
Case "Motos"
GUICtrlSetState($G_Vehicule, $GUI_ENABLE)
GUICtrlSetState($L_Annee, $GUI_ENABLE)
GUICtrlSetState($Annee, $GUI_ENABLE)
GUICtrlSetState($L_Kilometrage, $GUI_ENABLE)
GUICtrlSetState($Kilometrage, $GUI_ENABLE)
GUICtrlSetState($L_Km, $GUI_ENABLE)
GUICtrlSetState($L_Carburant, $GUI_ENABLE)
GUICtrlSetState($Carburant, $GUI_ENABLE)
GUICtrlSetState($L_Boite_Vitesse, $GUI_ENABLE)
GUICtrlSetState($Boite_Vitesse, $GUI_ENABLE)
GUICtrlSetState($L_Cylindree, $GUI_ENABLE)
GUICtrlSetState($Cylcindree, $GUI_ENABLE)
GUICtrlSetState($L_Cm3, $GUI_ENABLE)
Case "Chaussures"
GUICtrlSetState($G_Maison, $GUI_ENABLE)
GUICtrlSetState($L_Type, $GUI_ENABLE)
GUICtrlSetState($Type, $GUI_ENABLE)
GUICtrlSetState($L_Pointure, $GUI_ENABLE)
GUICtrlSetState($Pointure, $GUI_ENABLE)
Case "Vêtements"
GUICtrlSetState($G_Maison, $GUI_ENABLE)
GUICtrlSetState($L_Type, $GUI_ENABLE)
GUICtrlSetState($Type, $GUI_ENABLE)
GUICtrlSetState($L_Pointure, $GUI_DISABLE)
GUICtrlSetState($Pointure, $GUI_DISABLE)
Case Else
GUICtrlSetState($G_Vehicule, $GUI_DISABLE)
GUICtrlSetState($L_Annee, $GUI_DISABLE)
GUICtrlSetState($Annee, $GUI_DISABLE)
GUICtrlSetState($L_Kilometrage, $GUI_DISABLE)
GUICtrlSetState($Kilometrage, $GUI_DISABLE)
GUICtrlSetState($L_Km, $GUI_DISABLE)
GUICtrlSetState($L_Carburant, $GUI_DISABLE)
GUICtrlSetState($Carburant, $GUI_DISABLE)
GUICtrlSetState($L_Boite_Vitesse, $GUI_DISABLE)
GUICtrlSetState($Boite_Vitesse, $GUI_DISABLE)
GUICtrlSetState($L_Cylindree, $GUI_DISABLE)
GUICtrlSetState($Cylcindree, $GUI_DISABLE)
GUICtrlSetState($L_Cm3, $GUI_DISABLE)
GUICtrlSetState($G_Maison, $GUI_DISABLE)
GUICtrlSetState($L_Type, $GUI_DISABLE)
GUICtrlSetState($Type, $GUI_DISABLE)
GUICtrlSetState($L_Pointure, $GUI_DISABLE)
GUICtrlSetState($Pointure, $GUI_DISABLE)
EndSwitch
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Quitter
Exit
Case $Sauvegarde
; Test d'une valeur renseigné dans les champs principaux
If (GUICtrlRead($Categorie) = "" Or GUICtrlRead($Nome_Objet) = "" Or GUICtrlRead($Titre_Annonce) = "" Or GUICtrlRead($Nb_Photo) = "" or GUICtrlRead($Prix) = "" or GUICtrlRead($Texte_Annonce) = "") Then
msgbox(0,"ERRREUR", "Un des champs n'est pas renseigné")
Else
If FileExists($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet)) ="1" then
MsgBox(0,"Information","L'annonce pour l'objet : """ & GUICtrlRead($Nome_Objet) & """ existe déjà")
Else
; Creation du dossier de la nouvelle annonce, et renseignement des variables dans un fichier ini et txt
$Dossier_Annonce_Creation = DirCreate($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet))
FileWrite($File_Ini_ListeAnnonce, GUICtrlRead($Nome_Objet)& "=" & @CRLF)
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Categorie",GUICtrlRead($Categorie))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Annee",GUICtrlRead($Annee))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Kilometrage",GUICtrlRead($Kilometrage))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Carburant",GUICtrlRead($Carburant))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Boite_Vitesse",GUICtrlRead($Boite_Vitesse))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Cylindree",GUICtrlRead($Cylcindree))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Type",GUICtrlRead($Type))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Pointure",GUICtrlRead($Pointure))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Titre_Annonce",GUICtrlRead($Titre_Annonce))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Nb_Photo",GUICtrlRead($Nb_Photo))
IniWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\annonce.ini","Annonce","Prix",GUICtrlRead($Prix))
FileWrite($Dossier_Annonce & "\" & GUICtrlRead($Nome_Objet) & "\texte_annonce.txt" , GUICtrlRead($Texte_Annonce))
EndIf
EndIf
EndSwitch
WEnd
