image - ListAnimate 带有像幻灯片一样的控件

Question

这可能是对 ListAnimate 的滥用，但我用它来翻阅一堆图像。
当图像足够少时，我可以用鼠标捕获 slider 并轻松地在图像之间来回翻转。

但是当太多时，要一个一个地翻阅它们是非常棘手的。
有没有办法简单地使用箭头键(或任何键)在图像中前后翻转，有点像幻灯片？

Answer 1

这是一个简单的键盘控制幻灯片:

SlideShow[list_List] := 
 With[{len = Length[list]}, DynamicModule[{pos = 1}, 
      EventHandler[Dynamic[Pane[list[[pos]]]], 
                {"RightArrowKeyDown" :> (pos = Mod[pos + 1, len, 1]), 
                 "LeftArrowKeyDown" :> (pos = Mod[pos - 1, len, 1]), 
                 "UpArrowKeyDown" :> (pos = 1), 
                 "DownArrowKeyDown" :> (pos = len)}]]]

然后通过选择输出并使用箭头键来控制幻灯片:
右=前进，左=后，上=第一，下=最后，

例如:

SlideShow[{"a","b","c","d"}]

一些示例图片:

pics = ExampleData /@ ExampleData["TestImage"][[{1, 2, 3, 4}]]

SlideShow@pics

(* 想象一下这里的屏幕截图 *)

这可以装扮成框架，纽扣等......