Сообщение от dsd
Вот от того что красным выделено надо управление делать. И хэндл объекта не является его номером.
|
Всё верно, After'ом и Before'ом листаю список, всё прекрасно работает. Но, когда доходит до выше начала или конца списка получается ошибка, тоже всё правильно.
Значит надо сделать проверку, когда превышает диапазон, так вот эта проверка работает через одно место. Максимум получилось стопорить если листать назад:
If xKeyHit(44) = True Then ;назад "z"
Sobj = Before Sobj
If Handle(Sobj) < 1 Then Sobj.StaticObject = First StaticObject
End If
При "вперёд" вообще ничего не сработало.
И как ты кстати предлагаешь без First и Last перемещаться в начало и конец списка?
Твой пример крутил и так и эток...
Прикрутил так, но это бред и он не работает:
If xKeyHit(44) = True Then ;назад "z"
Sobj.StaticObject = Last StaticObject
Sobj = Before(Sobj)
End If
Переходит с первого объекта (у меня сброс на начало) на второй (вместо третьего!) и останавливается.
Не понимаю