[ R ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Boulanza · #1

Bonjour tout le monde,
Votre aide, s’il vous plaît.
- Lorsque j’exécute le bouton "Liste des Universités/Établissements", ce bouton me permet de :
1) Choisir le nom de l’université d’attache : en cliquant sur le bouton "Sélectionner le nom de votre université d’attache".
2) – Et choisir aussi le nom de l’établissement d’attache : en cliquant sur le bouton "Sélectionner le nom de votre établissement d’attache"
IniWrite ("Ini File.ini"...) ni et _GUICtrlComboBox_AddString( $combo…) ne fonctionnent pas lorsque je clique sur le bouton « Enregister cette étape ». C.A.D. Blocage si j’exécute ledit bouon.

- Par contre, lorsque je n'exécute pas le bouton « Liste des Universités/Établissements », IniWrite ("Ini File.ini") ni marche parfaitement.
Le blocage, il est dû au lancement du script "Fun LanceCombo()".

Merci infiniment pour m’aider à solutionner ce problème.

Cordialement.

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiComboBox.au3>
;========================================================================================
Global $iniFile_01 = "LUPM.ini" ;LISTE DES UNIVERSITÉS MAROCAINES
Global $iniFile_02 = "LEUM.ini"  ;LISTE DES ÉTABLISSEMENTS UNIVERSITAIRES MAROCAINES
;================================================
Global $combo_01,$combo_02,$combo_03,$combo_04,$combo_05,$combo_06
Global $Formulaire01,$Input_001,$Input_002,$Input_003,$Input_004,$Input_005;,$Input_006,$Input_007,$Input_008,$Input_009,$Input_010,$Input_011,$Input_012,,$Input_013,$Input_014,$Input_015,$Input_016,$Input_017
Global $aInfo,$hGUI,$aInfo[2],$aInfo[4]
Global $IniRead,$Clear,$Info,$Group1,$Group2
Global $IniWrite_001,$IniWrite_002,$IniWrite_003,$IniWrite_004,$IniWrite_005
Global $Button_001,$Button_002,$Button_003,$Button_004
;========================================================================================
Opt('MustDeclareVars', 1)
Opt("GUIResizeMode", 1)
;=================================================
#Region ### START Koda GUI section ### Form=
;Func Formulaire() 	;F O R M U L A I R E
;==========================================
Global $Formulaire01 = GUICreate("Formulaire_01:                           « G2I=>Enseignant-Étudient » ", 1000, 700, -1, -1);$WS_EX_TOPMOST) ;$WS_EX_TOOLWINDOW, $DS_MODALFRAME
 GUISetBkColor(0xC0C0C0) ;0x1034A6 , 0xC0C0C0
;=====================================================================================
Global $Group2 = GUICtrlCreateGroup("Étape 2/6: INFORMATION SUR L'INSTITUTION D'ATTACHE DE L'ENSEIGNANT(E)", 30, 140, 940, 10)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Group2), "wstr", 0, "wstr", 0) ;==> Couleur texte GUICtrlCreateGroup
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 10, 400, 0, "System")
GUICtrlSetFont(-1, 10, 200, 2, "Tahoma")
;~ ;===================================================
Global $combo_02 = GUICtrlCreateCombo("                    Sélectionner le nom de votre Université d'attache ", 50, 170, 530, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_006 = GUICtrlCreateInput("En Abrégé", 590, 170, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_007 = GUICtrlCreateInput("Localisation", 730, 170, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;====================================================================SUITE: INFORMATION SUR l'Établissement d'attache
Global $combo_03 = GUICtrlCreateCombo("                 Sélectionner le nom de votre Établissement d'attache ", 50, 210,530,25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 10, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_008 = GUICtrlCreateInput("En Abrégé", 590, 210, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_009 = GUICtrlCreateInput("Localisation", 730, 210, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;~ ;==================================================== SUITE: Iinformation sur l'établissement d'attache
Global $Input_010 = GUICtrlCreateInput("", 50, 250,530,25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_010, "Veuillez saisir le nom exacte de votre département d'attache", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE: Iinformation sur l'établissement d'attache
Global $Input_011 = GUICtrlCreateInput("", 590, 250, 125, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_011, "En Abrégé", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE
Global $Input_012 = GUICtrlCreateInput("", 730, 250, 210, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_012, "Localisation", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;============================================================================================
$Button_002 = GUICtrlCreateButton("Enregister cette étape ", 620, 320, 220, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
$Button_003 = GUICtrlCreateButton("Liste des Universirés/Établissements ", 200, 320, 320, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

	Case $Button_001
	IniWrite ("Ini File.ini", "Info", "Info_001", GUICtrlRead($combo_02))
	Sleep(100)
	IniWrite ("Ini File.ini", "Info", "Info_002", GUICtrlRead($Input_001))
	ContinueLoop

	Case $Button_002
	MsgBox(64, "", "Button_002")
	IniWrite ("Ini File.ini", "Info", "Info_007", GUICtrlRead($combo_03))
	Sleep(100)
	IniWrite ("Ini File.ini", "Info", "Info_008", GUICtrlRead($Input_006))
	Sleep(100)
	ContinueLoop

	Case $Button_003
	MsgBox(64, "", "Button_003")
	Local	$rinput = GUICtrlRead ($Button_003)
	LanceCombo()
	EndSwitch
	WEnd
;===========================================================================================
Func LanceCombo()
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $aData1 = IniReadSectionNames($iniFile_01)
    For $i = 1 To $aData1[0]
        _GUICtrlComboBox_AddString($combo_02, $aData1[$i])
  Next
;===================================================
Local $aData2 = IniReadSectionNames($iniFile_02)
    For $i = 1 To $aData2[0]
            _GUICtrlComboBox_AddString($combo_03, $aData2[$i])
	Next
;============================================ SUITE
While 1
   Global $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $combo_02
            _Contact_Select01(GUICtrlRead($combo_02))
		Case $combo_03
             _Contact_Select02(GUICtrlRead($combo_03))
    EndSwitch
WEnd

EndFunc

Func _Contact_Select01($Name)
	 GUICtrlSetData($Input_006, IniRead($iniFile_01, $Name, "Titre_1A", ""))
    GUICtrlSetData($Input_007, IniRead($iniFile_01, $Name, "Titre_1B", ""))
EndFunc

Func _Contact_Select02($Name)
     GUICtrlSetData($Input_008, IniRead($iniFile_02, $Name, "Titre_2A", ""))
    GUICtrlSetData($Input_009, IniRead($iniFile_02, $Name, "Titre_2B", ""))
EndFunc
;==========================================================

#2

Bonjour,
Il est brouillon votre code !

Votre bouton est inaccessible à cause de la deuxième boucle dans LanceCombo() dont je ne vois pas l'utilité... Le code reste coincé dans cette boucle
Pourquoi ne pas mettre ceci dans la première boucle ? (entre While 1 et WEnd)

Code: [Tout sélectionner] [Déplier/Replier]

   Case $combo_02
      _Contact_Select01(GUICtrlRead($combo_02))
   Case $combo_03
      _Contact_Select02(GUICtrlRead($combo_03))

GeSHi © Extension Codebox Plus

Pourquoi ne pas charger les combos dès le début du code ?
Pourquoi un bouton pour charger les combos ? avec le risque de charger plusieurs fois les mêmes données !
Pourquoi mettre ContinueLoop dans la première boucle ?
Je ne connais pas la finalité de votre code mais en l’état, il est bizarre !

Boulanza · #3

Merci infiniment walkson pour votre aide,
Par contre j'ai un autre souci qui est comme suit:

Global $aData1 = IniReadSectionNames($iniFile_01)

    For $i = 1 To $aData1[0]

       _GUICtrlComboBox_AddString($combo_02, $aData1[$i])

le résultat n'est pas exacte: il me charger plusieurs fois les mêmes données des valeur du du fichier. ini.
Merci de m'aider à solutionner ce problème.
Cordialement.

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiComboBox.au3>
;========================================================================================
Global $iniFile_01 = "LUPM.ini" ;LISTE DES UNIVERSITÉS MAROCAINES
Global $iniFile_02 = "LEUM.ini"  ;LISTE DES ÉTABLISSEMENTS UNIVERSITAIRES MAROCAINES
;================================================
Global $combo_01,$combo_02,$combo_03,$combo_04,$combo_05,$combo_06
Global $Formulaire01,$Input_001,$Input_002,$Input_003,$Input_004,$Input_005;,$Input_006,$Input_007,$Input_008,$Input_009,$Input_010,$Input_011,$Input_012,,$Input_013,$Input_014,$Input_015,$Input_016,$Input_017
Global $aInfo,$hGUI,$aInfo[2],$aInfo[4]
Global $IniRead,$Clear,$Info,$Group1,$Group2
Global $IniWrite_001,$IniWrite_002,$IniWrite_003,$IniWrite_004,$IniWrite_005
Global $Button_001,$Button_002,$Button_003,$Button_004
;========================================================================================
Opt('MustDeclareVars', 1)
Opt("GUIResizeMode", 1)
;=================================================
#Region ### START Koda GUI section ### Form=
;Func Formulaire() 	;F O R M U L A I R E
;==========================================
Global $Formulaire01 = GUICreate("Formulaire_01:                           « G2I=>Enseignant-Étudient » ", 1000, 700, -1, -1);$WS_EX_TOPMOST) ;$WS_EX_TOOLWINDOW, $DS_MODALFRAME
 GUISetBkColor(0xC0C0C0) ;0x1034A6 , 0xC0C0C0
;=====================================================================================
Global $Group2 = GUICtrlCreateGroup("Étape 2/6: INFORMATION SUR L'INSTITUTION D'ATTACHE DE L'ENSEIGNANT(E)", 30, 140, 940, 10)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Group2), "wstr", 0, "wstr", 0) ;==> Couleur texte GUICtrlCreateGroup
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 10, 400, 0, "System")
GUICtrlSetFont(-1, 10, 200, 2, "Tahoma")
;~ ;===================================================
Global $combo_02 = GUICtrlCreateCombo(" Sélectionner le nom de votre Université d'attache ", 50, 170, 530, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_006 = GUICtrlCreateInput("En Abrégé", 590, 170, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_007 = GUICtrlCreateInput("Localisation", 730, 170, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;====================================================================SUITE: INFORMATION SUR l'Établissement d'attache
Global $combo_03 = GUICtrlCreateCombo(" Sélectionner le nom de votre Établissement d'attache ", 50, 210,530,25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 10, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_008 = GUICtrlCreateInput("En Abrégé", 590, 210, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_009 = GUICtrlCreateInput("Localisation", 730, 210, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;~ ;==================================================== SUITE: Iinformation sur l'établissement d'attache
Global $Input_010 = GUICtrlCreateInput("", 50, 250,530,25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_010, "Veuillez saisir le nom exacte de votre département d'attache", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE: Iinformation sur l'établissement d'attache
Global $Input_011 = GUICtrlCreateInput("", 590, 250, 125, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_011, "En Abrégé", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE
Global $Input_012 = GUICtrlCreateInput("", 730, 250, 210, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner ($Input_012, "Localisation", True)   ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;============================================================================================
$Button_002 = GUICtrlCreateButton("Enregister cette étape ", 620, 320, 220, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
$Button_003 = GUICtrlCreateButton("Liste des Universirés/Établissements ", 200, 320, 320, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
	GUISetState(@SW_SHOW, $Formulaire01)
 #EndRegion ### END Koda GUI section ###
While 1
   Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				ExitLoop

	Case $Button_001
	IniWrite ("Ini File.ini", "Info", "Info_001", GUICtrlRead($combo_02))
	Sleep(100)
	IniWrite ("Ini File.ini", "Info", "Info_002", GUICtrlRead($Input_001))
;~ 	ContinueLoop

	Case $Button_002
	MsgBox(64, "", "Button_002")
	IniWrite ("Ini File.ini", "Info", "Info_007", GUICtrlRead($combo_03))
	Sleep(100)
	IniWrite ("Ini File.ini", "Info", "Info_008", GUICtrlRead($Input_006))
	Sleep(100)
;~ 	ContinueLoop

	Case $Button_003
	MsgBox(64, "", "Button_003")
	Local	$rinput = GUICtrlRead ($Button_003)
;~ 	LanceCombo()

  Case $combo_02
             _Contact_Select01(GUICtrlRead($combo_02))
 		Case $combo_03
             _Contact_Select02(GUICtrlRead($combo_03))
   EndSwitch
;==================================================================_GUICtrlComboBox_AddString
Global $aData1 = IniReadSectionNames($iniFile_01)
    For $i = 1 To $aData1[0]
        _GUICtrlComboBox_AddString($combo_02, $aData1[$i])
  Next
;===================================================
Local $aData2 = IniReadSectionNames($iniFile_02)
    For $i = 1 To $aData2[0]

            _GUICtrlComboBox_AddString($combo_03, $aData2[$i])
	Next
  WEnd
;=================================================== suite IniRead
Func _Contact_Select01($Name)
	 GUICtrlSetData($Input_006, IniRead($iniFile_01, $Name, "Titre_1A", ""))
    GUICtrlSetData($Input_007, IniRead($iniFile_01, $Name, "Titre_1B", ""))
EndFunc

Func _Contact_Select02($Name)
     GUICtrlSetData($Input_008, IniRead($iniFile_02, $Name, "Titre_2A", ""))
    GUICtrlSetData($Input_009, IniRead($iniFile_02, $Name, "Titre_2B", ""))
EndFunc

;========================================================== fin

Boulanza · #4

il me charger plusieurs fois les mêmes données des valeur du du fichier. ini.
comment faire pour éviter cela.
Merci d'avance pour votre aide

#5

Bonjour,

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiComboBox.au3>
;========================================================================================
Global $iniFile_01 = "LUPM.ini" ;LISTE DES UNIVERSITÉS MAROCAINES
Global $iniFile_02 = "LEUM.ini"  ;LISTE DES ÉTABLISSEMENTS UNIVERSITAIRES MAROCAINES
;================================================
Global $combo_01, $combo_02, $combo_03, $combo_04, $combo_05, $combo_06
Global $Formulaire01, $Input_001, $Input_002, $Input_003, $Input_004, $Input_005 ;,$Input_006,$Input_007,$Input_008,$Input_009,$Input_010,$Input_011,$Input_012,,$Input_013,$Input_014,$Input_015,$Input_016,$Input_017
Global $aInfo, $hGUI, $aInfo[2], $aInfo[4]
Global $IniRead, $Clear, $Info, $Group1, $Group2
Global $IniWrite_001, $IniWrite_002, $IniWrite_003, $IniWrite_004, $IniWrite_005
Global $Button_001, $Button_002, $Button_003, $Button_004
;========================================================================================
Opt('MustDeclareVars', 1)
Opt("GUIResizeMode", 1)
;=================================================
#Region ### START Koda GUI section ### Form=
;Func Formulaire() 	;F O R M U L A I R E
;==========================================
Global $Formulaire01 = GUICreate("Formulaire_01:                           « G2I=>Enseignant-Étudient » ", 1000, 700, -1, -1) ;$WS_EX_TOPMOST) ;$WS_EX_TOOLWINDOW, $DS_MODALFRAME
GUISetBkColor(0xC0C0C0)  ;0x1034A6 , 0xC0C0C0
;=====================================================================================
Global $Group2 = GUICtrlCreateGroup("Étape 2/6: INFORMATION SUR L'INSTITUTION D'ATTACHE DE L'ENSEIGNANT(E)", 30, 140, 940, 10)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Group2), "wstr", 0, "wstr", 0) ;==> Couleur texte GUICtrlCreateGroup
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 10, 400, 0, "System")
GUICtrlSetFont(-1, 10, 200, 2, "Tahoma")
;~ ;===================================================
Global $combo_02 = GUICtrlCreateCombo(" Sélectionner le nom de votre Université d'attache ", 50, 170, 530, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_006 = GUICtrlCreateInput("En Abrégé", 590, 170, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_007 = GUICtrlCreateInput("Localisation", 730, 170, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;====================================================================SUITE: INFORMATION SUR l'Établissement d'attache
Global $combo_03 = GUICtrlCreateCombo(" Sélectionner le nom de votre Établissement d'attache ", 50, 210, 530, 25, BitOR($CBS_DROPDOWNLIST, $WS_VSCROLL))
GUICtrlSetFont(-1, 10, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_008 = GUICtrlCreateInput("En Abrégé", 590, 210, 125, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;=================================================== SUITE: INFORMATION SUR L'INSTITUTION D'ATTACHE
Global $Input_009 = GUICtrlCreateInput("Localisation", 730, 210, 210, 25, $ES_CENTER)
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;~ ;==================================================== SUITE: Iinformation sur l'établissement d'attache
Global $Input_010 = GUICtrlCreateInput("", 50, 250, 530, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner($Input_010, "Veuillez saisir le nom exacte de votre département d'attache", True)    ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE: Iinformation sur l'établissement d'attache
Global $Input_011 = GUICtrlCreateInput("", 590, 250, 125, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner($Input_011, "En Abrégé", True)    ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;===================================================SUITE
Global $Input_012 = GUICtrlCreateInput("", 730, 250, 210, 25, $ES_CENTER)
_GUICtrlEdit_SetCueBanner($Input_012, "Localisation", True)    ;Pour éffacer texte input
GUICtrlSetLimit(-1, 0) ; to limit the entry to 3 chars 0 à l'infini
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
;============================================================================================
$Button_002 = GUICtrlCreateButton("Enregister cette étape ", 620, 320, 220, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
$Button_003 = GUICtrlCreateButton("Liste des Universirés/Établissements ", 200, 320, 320, 25, $ES_CENTER)
GUICtrlSetFont(-1, 10, 900, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x149414)
;============================================================================================
GUISetState(@SW_SHOW, $Formulaire01)
#EndRegion ### END Koda GUI section ###
lireini()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop

		Case $Button_001
			IniWrite("Ini File.ini", "Info", "Info_001", GUICtrlRead($combo_02))
			Sleep(100)
			IniWrite("Ini File.ini", "Info", "Info_002", GUICtrlRead($Input_001))
;~ 	ContinueLoop

		Case $Button_002
			MsgBox(64, "", "Button_002")
			IniWrite("Ini File.ini", "Info", "Info_007", GUICtrlRead($combo_03))
			Sleep(100)
			IniWrite("Ini File.ini", "Info", "Info_008", GUICtrlRead($Input_006))
			Sleep(100)
;~ 	ContinueLoop

		Case $Button_003
			MsgBox(64, "", "Button_003")
			Local $rinput = GUICtrlRead($Button_003)
;~ 	LanceCombo()

		Case $combo_02
			_Contact_Select01(GUICtrlRead($combo_02))
		Case $combo_03
			_Contact_Select02(GUICtrlRead($combo_03))
	EndSwitch

WEnd
;=================================================== suite IniRead
;==================================================================_GUICtrlComboBox_AddString
Func lireini()
	Global $aData1 = IniReadSectionNames($iniFile_01)
	For $i = 1 To $aData1[0]
		_GUICtrlComboBox_AddString($combo_02, $aData1[$i])
	Next
	;===================================================
	Local $aData2 = IniReadSectionNames($iniFile_02)
	For $i = 1 To $aData2[0]

		_GUICtrlComboBox_AddString($combo_03, $aData2[$i])
	Next
EndFunc   ;==>lireini

Func _Contact_Select01($Name)
	GUICtrlSetData($Input_006, IniRead($iniFile_01, $Name, "Titre_1A", ""))
	GUICtrlSetData($Input_007, IniRead($iniFile_01, $Name, "Titre_1B", ""))
EndFunc   ;==>_Contact_Select01

Func _Contact_Select02($Name)
	GUICtrlSetData($Input_008, IniRead($iniFile_02, $Name, "Titre_2A", ""))
	GUICtrlSetData($Input_009, IniRead($iniFile_02, $Name, "Titre_2B", ""))
EndFunc   ;==>_Contact_Select02

;========================================================== fin

Boulanza · #6

Bonjour,
Je suis extrêmement reconnaissant envers vous tous pour votre précieuse assistance. Je ne saurais exprimer ma gratitude à vous tous.
Bonne journée.
Cordialement.

AutoIt Français

[ R ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

[ R ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Re: [ ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Re: [ ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Re: [ ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Re: [ ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)

Re: [ ] Impossibe de copier leur valeur du fichier. ini sous _GUICtrlComboBox_AddString( $combo…)