将颜色对话框放入刷子中

Question

如何从颜色对话框中解析结果，以便将刷子的颜色设置为其值？

这就是我拥有的和我想做的。

 let b = Brushes.Black
 btnColor.Click.Add(fun _ ->
 ColorDialog.ShowDialog() (* Here I want to set the selected color to my brush b *) |> ignore )

Answer 1

我会猜测您在这里谈论System.Windows.Forms。

open System.Drawing
open System.Windows.Forms
let getColorFromUser initialColor =
    use dlg = new ColorDialog(Color = initialColor)
    if dlg.ShowDialog() = DialogResult.OK then
        dlg.Color
    else
        initialColor
// example with mutation
let mutable b = new SolidBrush(Color.Black)
b <- new SolidBrush(getColorFromUser(Color.Black))

有关Mutable的更多信息，请参见值。