Что нового

[Элементы GUI] Как выбрать из 2-х форм первую?

k790

Новичок
Сообщения
239
Репутация
1
Как выбрать из 2-х форм первую?
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Re: [Элементы GUI] Приоритет GUI

k790 [?]
Как выбрать из 2-х форм первую?
В справке есть пример по работе с двумя формами в расширенном режиме "GUIGetMsg()"
А так же почитайте про функцию "GUISwitch()", она позволяет переключаться между окнами.

Я думаю , что это как раз то, что Вам нужно
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Re: [Элементы GUI] Приоритет GUI

VladUs
У меня последовательно, формы должны быть, сначала одна, а из этой выбирается какая следующая форма(всего форм 3), у меня не получается сделать, чтобы первая форма была первой(выскакивает вторая форма)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Re: [Элементы GUI] Приоритет GUI

k790
Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"[Элементы GUI] Приоритет GUI" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Администратор форума.
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Re: [Элементы GUI] Приоритет GUI

код:
Код:
Global $Opera_Dir = FileSelectFolder("Укажите путь к папке оперы ас", "")
Global $Backup_Dir = $Opera_Dir & "\Op_Backup"
;$initial_dir = 


$hMain_GUI = GUICreate("backup_opera_AC", 546, 366, 212, 90)
GUISetIcon($Opera_Dir & "\OperaAC.exe")
GUISetCursor(2)
$Form1 = GUICreate("Form1", 176, 91, 244, 136)
$backUp = GUICtrlCreateRadio("backUp", 40, 16, 105, 17)
$restore = GUICtrlCreateRadio("restore", 40, 40, 105, 17)

$First_Checkbox = GUICtrlCreateDummy() + 1 ;Метка первого пункта
$Checkbox1 = GUICtrlCreateCheckbox("Почта", 40, 40, 81, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Сессии", 40, 70, 81, 25)
$Checkbox3 = GUICtrlCreateCheckbox("Контакты", 40, 100, 81, 25)
$Checkbox4 = GUICtrlCreateCheckbox("Пароли", 40, 130, 81, 25)
$Checkbox5 = GUICtrlCreateCheckbox("Список загрузок", 40, 160, 121, 25)
$Checkbox6 = GUICtrlCreateCheckbox("Глобальная история", 40, 190, 129, 25)
$Checkbox7 = GUICtrlCreateCheckbox("Набранные адреса в адресной строчке", 40, 220, 241, 25)
$Checkbox8 = GUICtrlCreateCheckbox("Поиск", 40, 250, 73, 25)
$Last_Checkbox = GUICtrlCreateDummy() - 1 ;Метка последнего пункта (для определения количества пунктов)

$Progress1 = GUICtrlCreateProgress(32, 304, 329, 16)
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("backup", 384, 301, 139, 21, $WS_GROUP)
$Label1 = GUICtrlCreateLabel($Opera_Dir, 40, 20, 492, 17)
$size1 = DirGetSize($Opera_Dir & "\profile\mail")
$size2 = DirGetSize($Opera_Dir & "\profile\sessions")
$size3 = FileGetSize($Opera_Dir & "\profile\contacts.adr")
$size4 = FileGetSize($Opera_Dir & "\profile\wand.dat")
$size5 = FileGetSize($Opera_Dir & "\profile\download.dat")
$size6 = FileGetSize($Opera_Dir & "\profile\mail\global_history.dat")
$size7 = FileGetSize($Opera_Dir & "\profile\mail\typed_history.xml")
$size8 = FileGetSize($Opera_Dir & "\defaults\search.ini")
;$size_percent=
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            DirCreate($Backup_Dir)
            
            $iProgress = 10 ;Задаём начальный прогресс
            $iPrgrs_Step = 100 / (($Last_Checkbox - $First_Checkbox) + 1) ;Вычисляем степень прогресса (100 делим на общее число птичек)
            
            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Задаём прогресс
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса
                
                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail")
            EndIf
            if DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail") = 1 then
                $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Admin\Мои документы\Web\_Images\topicsolved48.gif", 16, 70, 22, 22)
                GUICtrlSetState(-1, $GUI_HIDE)                
            else
            Endif
            ;почта
            
            If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса
                
                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\sessions", $Backup_Dir & "\profile\sessions")
            EndIf
            ;сессии
            
            If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса
                
                Sleep(3000) ;Пауза для отладки, вместо копирования
                FileCopy($Opera_Dir & "\profile\contacts.adr", $Backup_Dir & "\profile\")
            EndIf
            ;контакты
            
            If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\wand.dat", $Backup_Dir & "\profile\")
            EndIf
            ;пароли
            
            If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\download.dat", $Backup_Dir & "\profile\")
            EndIf
            ;список загрузок
            
            If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\global_history.dat", $Backup_Dir & "\profile\")
            EndIf
            ;глобальная история
            
            If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\typed_history.xml", $Backup_Dir & "\profile\")
            EndIf
            ;Набранные адреса в адресной строчке
            
            If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\defaults\search.ini", $Backup_Dir & "\profile\")
            EndIf
            ;поиск
        
            ;и т.д.
            
            GUICtrlSetData($Progress1, 100) ;Задаём прогресс на 100, в знак завершения резервирования
            MsgBox(64, 'Title', 'Копирование успешно завершено.', 0, $hMain_GUI) ;Выводим сообщение
            GUICtrlSetData($Progress1, 0) ;Задаём прогресс на 0, как заказывал :)
    EndSwitch
WEnd
Что я хочу:
У меня было и есть резервное копирование, теперь я захотел, чтобы бэкап можно было программой вставить в новую оперу, для этого при запуске я выбираю из двух пунктов 1-бэкап, 2-восстановление, а дальше форма почти одинаковая(она и составляет почти весь код программы)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Re: [Элементы GUI] Приоритет GUI

CreatoR [?]
Сам видишь не получается у меня названия придумывать, фантазии не хватает и ещё чего-то
важно, так это моё сообщение выше
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Re: [Элементы GUI] Приоритет GUI

madmasles сказал(а):
Тогда Вам сюда: Придумываем названия тем для новичков.
Если я не ошибаюсь, то я там написал
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: [Элементы GUI] Приоритет GUI

k790
что за детские отмазки? хочешь получить тут помощь, соизволь выполнять правила. фантазия тут не причем. ты не сказку или роман пишешь.

для всех остальных, призываю более не постить в этой, или любой другой созданной k790, т.к. тем самым вы проявляете неуважение, в первую очередь по отношению к себе и способствуете сему акту со стороны автора темы, которому всего навсего надо было
а) прочитать правила форума касаемо названия тем
либо
б) сделать копипаст того, что ему посоветовал Creator, вот тут


Добавлено:
Сообщение автоматически объединено:

k790 [?]
Если я не ошибаюсь, то я там написал
тебе там дали наводку на то, как обозвать тему.
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Re: [Элементы GUI] Приоритет GUI

Kaster
Я не отмазываюсь, мне показалось CreatoR имел ввиду, то что я написал ему - не хватает для названия темы(его ответ-это моё первое сообщение) или я не правильно понял?

И вообще я на подобные замечания - названия тем т.д. сразу ищу как решить проблему.
Правила я читал и не один раз
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: [Элементы GUI] Приоритет GUI

k790 [?]
Правила я читал и не один раз
Не верю. (с) Станиславский
Иначе ты бы знал, что
Если у вас слабо развита фантазия, то для начала можете написать содержимое вашей темы (суть вашей проблемы/вопроса), и лишь потом составить из этого содержимого заголовок темы, так будет проще, вы будете видеть общую картину проблемы и сможете изложить её в одном содержательном предложении.
т.к. содержимое твоей темы довольно скудно, то его можно без труда поместить в само название, что и предложил тебе Creator, по ссылке выше. на каком конкретном шаге возникла трудность?
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
Kaster [?]
Это ваше право и я не буду вам доказывать обратное

на каком конкретном шаге возникла трудность?
$Form1 должна быть первой, а вместо этого $hMain_GUI появляется или накладывается одна форма на другую.
Может быть понятней написал я в сообщении #4
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
218
Наверное как то так должно быть.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Opera_Dir = FileSelectFolder("Укажите путь к папке оперы ас", "")
Global $Backup_Dir = $Opera_Dir & "\Op_Backup"
;$initial_dir =

$Form1 = GUICreate("Form1", 176, 91, 244, 136)
$backUp = GUICtrlCreateRadio("backUp", 40, 16, 105, 17)
$restore = GUICtrlCreateRadio("restore", 40, 40, 105, 17)

$hMain_GUI = GUICreate("backup_opera_AC", 546, 366, 212, 90)
GUISetIcon($Opera_Dir & "\OperaAC.exe")
GUISetCursor(2)

$First_Checkbox = GUICtrlCreateDummy() + 1 ;Метка первого пункта
$Checkbox1 = GUICtrlCreateCheckbox("Почта", 40, 40, 81, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Сессии", 40, 70, 81, 25)
$Checkbox3 = GUICtrlCreateCheckbox("Контакты", 40, 100, 81, 25)
$Checkbox4 = GUICtrlCreateCheckbox("Пароли", 40, 130, 81, 25)
$Checkbox5 = GUICtrlCreateCheckbox("Список загрузок", 40, 160, 121, 25)
$Checkbox6 = GUICtrlCreateCheckbox("Глобальная история", 40, 190, 129, 25)
$Checkbox7 = GUICtrlCreateCheckbox("Набранные адреса в адресной строчке", 40, 220, 241, 25)
$Checkbox8 = GUICtrlCreateCheckbox("Поиск", 40, 250, 73, 25)
$Last_Checkbox = GUICtrlCreateDummy() - 1 ;Метка последнего пункта (для определения количества пунктов)

$Progress1 = GUICtrlCreateProgress(32, 304, 329, 16)
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("backup", 384, 301, 139, 21, $WS_GROUP)
$Label1 = GUICtrlCreateLabel($Opera_Dir, 40, 20, 492, 17)
$size1 = DirGetSize($Opera_Dir & "\profile\mail")
$size2 = DirGetSize($Opera_Dir & "\profile\sessions")
$size3 = FileGetSize($Opera_Dir & "\profile\contacts.adr")
$size4 = FileGetSize($Opera_Dir & "\profile\wand.dat")
$size5 = FileGetSize($Opera_Dir & "\profile\download.dat")
$size6 = FileGetSize($Opera_Dir & "\profile\mail\global_history.dat")
$size7 = FileGetSize($Opera_Dir & "\profile\mail\typed_history.xml")
$size8 = FileGetSize($Opera_Dir & "\defaults\search.ini")
;$size_percent=
GUISetState(@SW_SHOW, $Form1)

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            DirCreate($Backup_Dir)

            $iProgress = 10 ;Задаём начальный прогресс
            $iPrgrs_Step = 100 / (($Last_Checkbox - $First_Checkbox) + 1) ;Вычисляем степень прогресса (100 делим на общее число птичек)

            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Задаём прогресс
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail")
            EndIf
            if DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail") = 1 then
                $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Admin\Мои документы\Web\_Images\topicsolved48.gif", 16, 70, 22, 22)
                GUICtrlSetState(-1, $GUI_HIDE)
            else
            Endif
            ;почта

            If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\sessions", $Backup_Dir & "\profile\sessions")
            EndIf
            ;сессии

            If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                FileCopy($Opera_Dir & "\profile\contacts.adr", $Backup_Dir & "\profile\")
            EndIf
            ;контакты

            If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\wand.dat", $Backup_Dir & "\profile\")
            EndIf
            ;пароли

            If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\download.dat", $Backup_Dir & "\profile\")
            EndIf
            ;список загрузок

            If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\global_history.dat", $Backup_Dir & "\profile\")
            EndIf
            ;глобальная история

            If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\typed_history.xml", $Backup_Dir & "\profile\")
            EndIf
            ;Набранные адреса в адресной строчке

            If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\defaults\search.ini", $Backup_Dir & "\profile\")
            EndIf
            ;поиск

            ;и т.д.

            GUICtrlSetData($Progress1, 100) ;Задаём прогресс на 100, в знак завершения резервирования
            MsgBox(64, 'Title', 'Копирование успешно завершено.', 0, $hMain_GUI) ;Выводим сообщение
            GUICtrlSetData($Progress1, 0) ;Задаём прогресс на 0, как заказывал :)
    EndSwitch
WEnd
 
Автор
K

k790

Новичок
Сообщения
239
Репутация
1
dwerf
dwerf сказал(а):
Наверное как то так должно быть.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Opera_Dir = FileSelectFolder("Укажите путь к папке оперы ас", "")
Global $Backup_Dir = $Opera_Dir & "\Op_Backup"
;$initial_dir =

$Form1 = GUICreate("Form1", 176, 91, 244, 136)
$backUp = GUICtrlCreateRadio("backUp", 40, 16, 105, 17)
$restore = GUICtrlCreateRadio("restore", 40, 40, 105, 17)

$hMain_GUI = GUICreate("backup_opera_AC", 546, 366, 212, 90)
GUISetIcon($Opera_Dir & "\OperaAC.exe")
GUISetCursor(2)

$First_Checkbox = GUICtrlCreateDummy() + 1 ;Метка первого пункта
$Checkbox1 = GUICtrlCreateCheckbox("Почта", 40, 40, 81, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Сессии", 40, 70, 81, 25)
$Checkbox3 = GUICtrlCreateCheckbox("Контакты", 40, 100, 81, 25)
$Checkbox4 = GUICtrlCreateCheckbox("Пароли", 40, 130, 81, 25)
$Checkbox5 = GUICtrlCreateCheckbox("Список загрузок", 40, 160, 121, 25)
$Checkbox6 = GUICtrlCreateCheckbox("Глобальная история", 40, 190, 129, 25)
$Checkbox7 = GUICtrlCreateCheckbox("Набранные адреса в адресной строчке", 40, 220, 241, 25)
$Checkbox8 = GUICtrlCreateCheckbox("Поиск", 40, 250, 73, 25)
$Last_Checkbox = GUICtrlCreateDummy() - 1 ;Метка последнего пункта (для определения количества пунктов)

$Progress1 = GUICtrlCreateProgress(32, 304, 329, 16)
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("backup", 384, 301, 139, 21, $WS_GROUP)
$Label1 = GUICtrlCreateLabel($Opera_Dir, 40, 20, 492, 17)
$size1 = DirGetSize($Opera_Dir & "\profile\mail")
$size2 = DirGetSize($Opera_Dir & "\profile\sessions")
$size3 = FileGetSize($Opera_Dir & "\profile\contacts.adr")
$size4 = FileGetSize($Opera_Dir & "\profile\wand.dat")
$size5 = FileGetSize($Opera_Dir & "\profile\download.dat")
$size6 = FileGetSize($Opera_Dir & "\profile\mail\global_history.dat")
$size7 = FileGetSize($Opera_Dir & "\profile\mail\typed_history.xml")
$size8 = FileGetSize($Opera_Dir & "\defaults\search.ini")
;$size_percent=
GUISetState(@SW_SHOW, $Form1)

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            DirCreate($Backup_Dir)

            $iProgress = 10 ;Задаём начальный прогресс
            $iPrgrs_Step = 100 / (($Last_Checkbox - $First_Checkbox) + 1) ;Вычисляем степень прогресса (100 делим на общее число птичек)

            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Задаём прогресс
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail")
            EndIf
            if DirCopy($Opera_Dir & "\profile\mail", $Backup_Dir & "\profile\mail") = 1 then
                $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Admin\Мои документы\Web\_Images\topicsolved48.gif", 16, 70, 22, 22)
                GUICtrlSetState(-1, $GUI_HIDE)
            else
            Endif
            ;почта

            If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                DirCopy($Opera_Dir & "\profile\sessions", $Backup_Dir & "\profile\sessions")
            EndIf
            ;сессии

            If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress) ;Тут уже используется уровень прогресса в зависимости от предыдущего пункта (если тут отмечен, прогресс увеличился)
                $iProgress += $iPrgrs_Step ;Прибавляем к прогрессу вычесленную степень прогресса

                Sleep(3000) ;Пауза для отладки, вместо копирования
                FileCopy($Opera_Dir & "\profile\contacts.adr", $Backup_Dir & "\profile\")
            EndIf
            ;контакты

            If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\wand.dat", $Backup_Dir & "\profile\")
            EndIf
            ;пароли

            If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\download.dat", $Backup_Dir & "\profile\")
            EndIf
            ;список загрузок

            If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\global_history.dat", $Backup_Dir & "\profile\")
            EndIf
            ;глобальная история

            If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\profile\typed_history.xml", $Backup_Dir & "\profile\")
            EndIf
            ;Набранные адреса в адресной строчке

            If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
                GUICtrlSetData($Progress1, $iProgress)
                $iProgress += $iPrgrs_Step
                Sleep(3000)
                FileCopy($Opera_Dir & "\defaults\search.ini", $Backup_Dir & "\profile\")
            EndIf
            ;поиск

            ;и т.д.

            GUICtrlSetData($Progress1, 100) ;Задаём прогресс на 100, в знак завершения резервирования
            MsgBox(64, 'Title', 'Копирование успешно завершено.', 0, $hMain_GUI) ;Выводим сообщение
            GUICtrlSetData($Progress1, 0) ;Задаём прогресс на 0, как заказывал :)
    EndSwitch
WEnd
Ты поднял вверх
Код:
$Form1 = GUICreate("Form1", 148, 129, 244, 136)
$backUp = GUICtrlCreateRadio("backUp", 40, 16, 105, 17)
$restore = GUICtrlCreateRadio("restore", 40, 40, 105, 17)
$Button2 = GUICtrlCreateButton("Далее", 40, 72, 65, 25, $WS_GROUP)
и изменил строчку
Код:
GUISetState(@SW_SHOW, $Form1)
?
 
Верх