在Mathematica中使用“上一个-下一个”按钮而不是Slider？

问题描述

| 当控制值是离散值时，是否可以使用某些“上一个-下一个”按钮来代替下面的示例中的滑块？ 我发现操纵器很丑陋，如果可能的话，我想买一些Setter类型的操纵器。

Manipulate[
           Graphics[
                    {
                     Rectangle[{1,1},{3,3}],Circle[{where,2},1]
                    },PlotRange -> {{0,11},{0,3}},ImageSize -> {300,60}
                    ],{where,1,10,Slider}
          ]

    

解决方法

        您可以使用

Button

创建自己的控件，如下所示：

Manipulate[
 Graphics[
  {Rectangle[{1,1},{3,3}],Circle[{where,2},1]},PlotRange -> {{0,11},{0,3}},ImageSize -> {300,60}
  ],{{where,1,\"\"},Button[\"Prev\",where = Max[1,where - 1],Appearance -> \"Palette\",ImageSize -> {50,Automatic}] &},Button[\"Next\",where = Min[10,where + 1],ControlPlacement -> Left]

    ,        据我所知，如果未为“操纵”指定控件，则Mathematica将根据给定的值决定要使用的控件。通常这是Manipulator控件，与Slider控件（在您的示例中）不同，因为它可以扩展该控件以使用前进/后退，播放功能等。这些可能就足够了：

Manipulate[
 Graphics[{Rectangle[{1,60}],{where,10,Manipulator,Appearance -> \"Open\",AppearanceElements -> {\"StepLeftButton\",\"StepRightButton\"}}]

关于SO的一个相当近期的问题解决了如何通过使用以下选项从一开始就为操纵器显示这些离散按钮：

Appearance-> Open

默认情况下如何显示动画控件。 编辑： 您还可以指定要显示的离散按钮，例如只需使用左右按钮即可

AppearanceElements -> {\"StepLeftButton\",\"StepRightButton\"}

我将其添加到上面的代码示例中。 实际上，更好和更简单的选择是使用触发控件，该控件将隐藏滑块。

Manipulate[
 Graphics[{Rectangle[{1,ControlType -> Trigger,\"StepRightButton\"}}]

    ,        正如Yoda所显示的那样，ѭ1可以用于

Manipulate

中的Next和Previous按钮。这种按钮通常用于浏览有限范围的对象。在此范围的开头和结尾，应分别禁用“上一个”和“下一个”按钮。为了使它起作用，可以使用按钮属性“ 9”，并且由于其作用取决于交互变化的值，因此需要“ 10”。以下玩具示例说明了它的工作原理。 示例代码：

votePictures[picturesInput_] :=
 DynamicModule[{pictures = picturesInput,status,i},status = Table[\"Not Voted\",{Length[pictures]}];
  i = 1;
  Panel[
   Row[
    {
     Dynamic[Show[pictures[[i]],ImageSize -> 256]],Spacer[72 0.7],Column[
       {
        Row[{Style[\"Status  \",FontFamily -> \"Arial-Bold\"],SetterBar[
           Dynamic[status[[i]]],{\"No response\",\"Ugly\",\"Nice\"}]}
        ],Row[{
           Button[\"Previous\",i -= 1,Enabled -> (i > 1)],i += 1,Enabled -> (i < Length[pictures])]}
        ] // Dynamic,Row[
            {
             Style[\"Picture   \",Slider[Dynamic[i],{1,Length[pictures],Appearance -> \"Labeled\"]
            }
        ],Button[\"Save results\",(*Export code here *)]
        }
       ] // Framed
     }
    ],ImageSize -> 750
   ]
  ]

pictures = ExampleData[#] & /@ ExampleData[\"TestImage\"]

votePictures[pictures]