將顏色對話框結果解析爲畫筆

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

查看Values docs瞭解更多關於可變的信息。