App Inventor 2 SliderVertical 扩展:垂直的滑动条

« 返回首页

SliderVertical 拓展

将滑块组件旋转 90º,效果如下:

代码块如下:

使用案例

音量或亮度控制

将扩展添加到项目后,把垂直滑块放在控制面板中:

when Screen1.Initialize() {
  SliderVertical1.SliderVertical(垂直布局_滑块)
  SliderVertical1.MinValue = 0
  SliderVertical1.MaxValue = 100
  SliderVertical1.ThumbPosition = 50
}

when SliderVertical1.PositionChanged(thumbPosition) {
  标签_数值.Text = join("当前值:", thumbPosition)
}

上方积木图可以直接作为音量控制的起点,下载的 TestSliderVertical.aia 提供了可运行的测试页面。

拓展下载

  • .aix 拓展下载:

com.SliderVertical.aix

  • demo下载:

TestSliderVertical.aia

文档反馈