Имя пользователя:
Пароль:
 

Название темы: запуск GUICtrlSetData в цикле
Показать сообщение отдельно

Аватара для ferget

Разный


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

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


Цитата bugmenotagain:
что значит While $msg <> $GUI_EVENT_CLOSE ? »
Это значит делать пока $msg не равна $GUI_EVENT_CLOSE

у вас тут смешаны два метода построения Gui, в данном случае лучше делать так

Код: Выделить весь код
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3> 
#include <WinAPI.au3>
#include <ListBoxConstants.au3>
;
$mainwindow1 = GUICreate ( "Пример", 450, 350, -1, -1, -1, -1)
;
;Local $background
;Local $backgroundFile = @ScriptDir & "\444.jpg"
Local $read, $Reg, $Reglist,$msg
Dim $Array[10]
$Array[0]=""

$Button1 = GUICtrlCreateButton("Продолжить", 135, 310, 80)
$Button2 = GUICtrlCreateButton("Закончить", 235, 310, 80)
$read = GUICtrlCreateButton("Смотреть", 20, 20, 150)
$Reglist = GUICtrlCreateList("", 180, 30, 190, 200, $GUI_SS_DEFAULT_LIST + $LBS_NOINTEGRALHEIGHT)
GUICtrlSetLimit(-1, 200) ; ограничить прокрутку по горизонтали
;
GUISetState(@SW_SHOW)

For $i= 1 To 3
	$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
	If @error Then ExitLoop
	$Array[$i]=$var
Next
;
GUISetState()

Do
		$msg = GUIGetMsg()
		Select
			Case $msg = $read
				For $i= 1 To 3
					GUICtrlSetData($Reglist, $Array[$i])
				Next
			Case $msg = $Button1
					MsgBox(0, "Нажали кнопку1", "Вы нажали OK!")
			Case $msg = $Button2
					MsgBox(0, "Событие GUI", "Вы нажали ЗАКРЫТЬ в главном окне! Завершаем...")
					exit
		EndSelect
Until $msg = $GUI_EVENT_CLOSE
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:30, 04-08-2012 | #11

Название темы: запуск GUICtrlSetData в цикле