将颜色对话框结果解析为画笔

Question

How do I parse the result from a color dialog so that I can set the color of a brush to its value?

This is what I have and what I want to do.

 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

I'll take a guess that you're talking about System.Windows.Forms here.

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))

See the Values docs for more info on mutable.