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
Во вложении скриншот ошибки