Всем привет!
У меня есть GUI содержавшее 2 взаимосвязанные элемента:
Контроль - построен на анализе записей в ini
Я тут не знаю как в случае обнаружения ошибки
Примечания:
В данном GUI только 2 элемента типа Вопрос/Ответ. Чтобы я мог понять сам прицип
Спасибо за помощь
Gui
Zapic v ini .au3
Proverka.au3
У меня есть GUI содержавшее 2 взаимосвязанные элемента:
- Список: выполняет роль вопроса
- Поле ввода: для ответа
Контроль - построен на анализе записей в ini
Я тут не знаю как в случае обнаружения ошибки
- Прервать проверку
- Вывести Msgbox - о точной причине ошибки
- Автоматически вернутся к редактированию GUI чтобы исправить ошибку, для ввода нужных данных в поле ввода
- Если ошибок нет: вывести сообщение и скрыть GUI для возможности продолжения выполнения кода
Примечания:
В данном GUI только 2 элемента типа Вопрос/Ответ. Чтобы я мог понять сам прицип
Спасибо за помощь
Gui
Код:
#cs ----------------------------------------------------------------------------
Я не знал какие #include для данного GUI нужны и добавил все :)
#ce ----------------------------------------------------------------------------
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListboxConstants.au3>
#include <ListviewConstants.au3>
#include <ProgressConstants.au3>
#include <RichEditConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <TreeviewConstants.au3>
#include <UpdownConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\В Облака\IDrive - снхронизация\Общин настройки ПК\Общая оптимизация\AutoIt\Нужные мне скрипты\Биржы и почтовики\socpublic\Тесты\GUI для почтовика\Чтение настроек INI\Чтение зависимых настроек\С GUI\Form1.kxf
$Form1 = GUICreate("Form1", 515, 292, -1, -1)
GUISetFont(10, 400, 0, "MS Sans Serif")
$iCombo1 = GUICtrlCreateCombo("", 168, 80, 207, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Январь|Февраль")
$Label1 = GUICtrlCreateLabel("Выберите месяц ", 168, 40, 134, 24)
$Label2 = GUICtrlCreateLabel("Укажите день ", 168, 120, 115, 24)
$Button1 = GUICtrlCreateButton("Старт", 400, 232, 75, 25)
$Input = GUICtrlCreateInput("", 168, 160, 207, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ini=@ScriptDir & '\setting.ini'
$ini_1=FileOpen($ini, 8+2)
FileClose($ini_1)
Sleep(500)
if Not FileExists($ini) Then
MsgBox (262192,"Сообщение ","файл setting.ini - не найден",5)
Exit
EndIf
#include "Zapic v ini .au3"
#include "Proverka.au3"
EndSwitch
WEnd
MsgBox (262208,"","Проверки завершены",3)
GUIDelete()
Код:
#CS
Пишем значения в ini
#CE
$sRead1 = GUICtrlRead($iCombo1,1); чтение значения - выбранного элемента
if $sRead1 Then
IniWrite($ini, "Шаг 1", "Вопрос", $sRead1) ; запись полученных значений элемента - в ini файл
Endif
$sRead2 = GUICtrlRead($Input,1); чтение значения - выбранного элемента
if $sRead2 Then
IniWrite($ini, "Шаг 2", "Ответ", $sRead2) ; запись полученных значений элемента - в ini файл
Endif
Код:
$IniRead3 = IniRead($ini, "Шаг 1", "Вопрос", "") ;Проверка списка
If $IniRead3 Then
$IniRead4 = IniRead($ini, "Шаг 2", "Ответ", "") ; Проверка поля ввода
If Not $IniRead4 Then
MsgBox(262192, "Обнраужена ошибка", "Если был задан вопрос, то требуется ответ" & @CRLF & "Поле ввода - не заполнено" & @CRLF & " ")
Else
MsgBox(262208, "", "Ошибок нет ", 3)
EndIf
Else
MsgBox(262208, "", "Ошибок нет ", 3)
EndIf