Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Не уверен что правильно понял, но вот что получилось:

Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>

OnAutoItExitRegister("_OnExitProc")

Global $sConfig_File = @ScriptDir & "\Config.ini"
Global $aIniData = IniReadSection($sConfig_File, "Variables")

$hGUI = GUICreate("Test Script", 300, 200)

$nList = GUICtrlCreateList("", 20, 20, 260, 120, BitXOR($GUI_SS_DEFAULT_LIST, $LBS_SORT))
$nInput = GUICtrlCreateInput("", 20, 150, 200, 20)
$nSet_Button = GUICtrlCreateButton("Set", 225, 150, 55, 20)

For $i = 1 To UBound($aIniData)-1
    GUICtrlSetData($nList, $aIniData[$i][0])
Next

GUISetState(@SW_SHOW, $hGUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nList
            $sItem = GUICtrlRead($nList)

            For $i = 1 To UBound($aIniData)-1
                If $aIniData[$i][0] = $sItem Then
                    GUICtrlSetData($nInput, $aIniData[$i][1])
                    ExitLoop
                EndIf
            Next
        Case $nSet_Button
            $sItem = GUICtrlRead($nList)

            If $sItem = "" Then
                MsgBox(48, 'Attention', 'No selected item.', 0, $hGUI)
                ContinueLoop
            EndIf

            For $i = 1 To UBound($aIniData)-1
                If $aIniData[$i][0] = $sItem Then
                    $aIniData[$i][1] = GUICtrlRead($nInput)
                    ExitLoop
                EndIf
            Next
    EndSwitch
WEnd

Func _OnExitProc()
    IniWriteSection($sConfig_File, "Variables", $aIniData)
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:02, 05-07-2011 | #2