如何使控件“上一个”和“下一个”移动比例小部件滑块？

Question

我正在为台式机播放器开发具有所有标准控件的用户界面。我想用相同的样式制作音量控制器：

代码简单，是我的便利店：

hidePointsAtIndex

到目前为止，这就是我所拥有的。我不知道如何通过按下按钮来移动刻度，使其从左到右，从右到左。

Answer 1

您只需要将一个变量分配给比例尺，然后需要一个proc来修改该变量。例如：

pack [button .btn1 -text "-" -command {volume -1}] -side left -fill none
pack [scale .scl0 -showvalue 1 -from 0 -to 10 -resolution 1 -orient horizontal \
    -variable currentVolume] -side left -fill both
pack [button .btn2 -text "+" -command {volume 1}] -side left -fill none

proc volume {val} {
    incr ::currentVolume $val
}