如何使用Websharper创建滑块？

Question

我刚刚开始学习Websharper，所以我仍然很困惑。

在Intellifactory示例网页上，计算器示例的代码似乎使用了Button，就好像Webshaper提供了一些图形用户界面控件，但是安装在磁盘上的代码使用它自己的助手函数来创建一个按钮，如下所示：

let btn caption action =
  Input [Attr.Type "button"; Attr.Value caption; Attr.Style "width: 30px"]
  |>! OnClick (fun e _ -> action ())

好像Webshaper不包括基本的GUI控件，所以您必须这样做才能获得它们(这似乎违背了使用Websharper这样的抽象的目的)。

我想要一个带有回调的滑块，只要它的值改变就会被调用。我怎样才能用Websharper得到一个？

Answer 1

您可以使用JQueryUI中的滑块：

[<JavaScript>]
override this.Body = 
    let text = Span []
    let slider = Slider.New(SliderConfiguration(min = 0, max = 10, value = 5))
    // typed way to subscribe doesn't work, internally tries to bind handler to 'sliderslide' event
    // per documentation (http://api.jqueryui.com/slider/#event-slide) should be 'slide'
    // slider.OnSlide(fun _ -> text.Text <- string slider.Value ) 
    JQuery.JQuery.Of(slider.Widget).Bind("slide", Func<_, _, _>(fun _ _ -> text.Text <- string slider.Value )).Ignore
    Div [
        Div [ slider ]
        Div [ text ]
    ] :> _