Что нового

[Элементы GUI] Окно загрузки скрипта

HaeMHuK

Новичок
Сообщения
43
Репутация
0
Есть ли возможность сделать окно загрузки скрипта?
При открытии скрипта появляется окно "Please wait", когда окно скрипта появится, то окошко загрузки должно пропасть.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
что за загрузка скрипта?
окна, как правила, рисуются моментально.
 

sss

Продвинутый
Сообщения
332
Репутация
96
Так?
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

$load=GUICreate("", 135, 29, -1,-1, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("Please wait...", 32, 8, 67, 17)
GUISetState(@SW_SHOW)

; тут что-то делаем...
Sleep(Random(1000,3000,1))
; пауза для наглядности

$Form1 = GUICreate("ОСНОВНОЕ ОКНО", 259, 176, -1,-1)
$Label1 = GUICtrlCreateLabel("Основное окно", 80, 24, 81, 17)
$Label2 = GUICtrlCreateLabel("Здесь то окошко, которое должно загрузиться)", 8, 48, 247, 17)
$Button1 = GUICtrlCreateButton("Button1", 8, 88, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 88, 88, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Button3", 168, 88, 75, 25, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 120, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 8, 144, 97, 17)
$Radio1 = GUICtrlCreateRadio("Radio1", 120, 120, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 120, 144, 113, 17)

GuiDelete($load)
GUISetState(@SW_SHOW)

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

	EndSwitch
WEnd

P.S: Возможно все, главное - реализовать :smile:
 
Автор
H

HaeMHuK

Новичок
Сообщения
43
Репутация
0
Отлично! Спасибо, то что нужно.
Вот еще маленькое дополнение:
Код:
$load=GUICreate("", 135, 29, -1,-1, 0x80000000)
 
Верх