Что нового

Потерян Untill

VermanVendetta13

Новичок
Сообщения
147
Репутация
0
вопрос простой, почему Untill потерян и как это исправить?

заранее спасибо
Код:
#include <GuiConstantsEx.au3>
#include <File.au3>

$Folder = @WindowsDir & "\Web\Wallpaper\Landscapes"
$Files = _FileListToArray($Folder, "*.jpg", 1, True)
If @error Then Exit

Global $Width = 960, $Height = 600, $i = 1, $Pic

$GUI = GUICreate("Example", $Width, $Height)
$Pic = GUICtrlCreatePic($Files[1], 0, 0, $Width, $Height)
GUISetState()

Do

	Switch GUIGetMsg()
	    Case $GUI_EVENT_CLOSE
		      ExitLoop
    Case $GUI_EVENT_PRIMARYDOWN
      $i += 1
      If $i > $Files[0] Then $i = 1
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
    Case $GUI_EVENT_SECONDARYDOWN
      $i -= 1
      If $i < 1 Then $i = $Files[0]
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
	EndSwitch
	Until 0


Во вложении скриншот ошибки
 

Вложения

  • Снимок экрана (29).png
    Снимок экрана (29).png
    104 КБ · Просмотры: 25

joiner

Модератор
Локальный модератор
Сообщения
3,497
Репутация
619
у меня не выдает ошибку
 

Tempo

AutoIT Гуру
Сообщения
616
Репутация
204
VermanVendetta13, а какая у вас версия SciTE? Попробуйте запустить скрипт не из редактора
 
Верх