F # Событие нажатия кнопки

Question

Я новичок в F #, но запрограммировал немного на C# раньше. Я пытаюсь выяснить, как написать ButtonClicEvent, который AppendText от кнопки (или где-то еще) к существующему тексту в текстовом поле ..

Это из C#:

private void Btn_Click(object sender, EventArgs e) 
{ 
    // if the eventhandler contains more than one button 
    var btn = (sender as Button); 

    textBox.AppendText(btn.Text); 
} 

нужно знаете, как это сделать в F #.

Answer 1

btn.Click.Add(fun _ -> textBox.AppendText(btn.Text)) 

Answer 2

Там хороший сайт F# Snippets

Соответствующий пример с этого сайта:

open System 
open System.Drawing 
open System.Windows.Forms 

// Create form, button and add button to form 
let form = new Form(Text = "Hello world!") 
let btn = new Button(Text = "Click here") 
form.Controls.Add(btn) 

// Register event handler for button click event 
btn.Click.Add(fun _ -> 
    // Generate random color and set it as background 
    let rnd = new Random() 
    let r, g, b = rnd.Next(256), rnd.Next(256), rnd.Next(256) 
    form.BackColor <- Color.FromArgb(r, g, b)) 

// Show the form (in F# Interactive) 
form.Show() 
// Run the application (in compiled application) 
Application.Run(form)