Доброго времени суток всем.
Помогите обработать нажатие кнопок на Msgbox'e
В чем проблема. Читаю ini файл в начале запуска скрипта. После чтения выдается MsgBox с флагом 6.
При нажатии на кнопку Повторить повторно читается ini файл. При нажатии кнопки Продолжить выполняется основной скрипт. При нажатии Отмена все останавливается и появлчется MsgBox с сообщение об остановке. Все работате как бы корректно.
Но если сначала нажать Повторить , а потом Продолжить или Отмена , то все останавливается.
Вот до чего додумался
Помогите обработать нажатие кнопок на Msgbox'e
В чем проблема. Читаю ini файл в начале запуска скрипта. После чтения выдается MsgBox с флагом 6.
При нажатии на кнопку Повторить повторно читается ini файл. При нажатии кнопки Продолжить выполняется основной скрипт. При нажатии Отмена все останавливается и появлчется MsgBox с сообщение об остановке. Все работате как бы корректно.
Но если сначала нажать Повторить , а потом Продолжить или Отмена , то все останавливается.
Вот до чего додумался
Код:
Dim $button = READINI()
Func READINI()
Global $full = IniRead ( "test.ini", "Sklad", "size", 0 ) ; Full silos size
Dim $button = MsgBox (6 , "Проверка" , "Вы указалаи , что у Вас"$full)
Return $button
EndFunc
;~
;~ Продолжить код 11
;~ Повторить код 10
;~ Отмена 2
if $button = 10 Then
While $button = 10
$button = READINI()
WEnd
elseif $button = 11 Then
;~ тут скрипт
MsgBox (0 , "TEST" , "Сделано")
elseif $button = 2 Then
MsgBox(0 , "TEST" , "Приложение закроется через 5 секунд ", 5)
EndIf