WinForms MouseWheelイベントはどのようにF＃で動作しますか？

Question

winformsライブラリでmouseWheelイベントがどのように機能するかを把握したいと思います。

それは私が君たちのいずれかが私に言うことを願ってF#

に来るとき学ぶための任意の良い例は決してありませんが。

私はこのような何かを考えていた：

onMouseWheelEvent = 
     if MouseWheel event = scroll forward then 
     printfn "zooming in" 
     else 
     printfn "zooming out" 

を、私はそれが私が投稿していますいくつかの愚かなコードである知っているが、私は文字通りカントは、WinFormsの上の何かを見つけることは、それが存在する以外MouseWheelEventが。それはどのように動作するのか不思議です。

ありがとうございます。

Answer 1

は、F＃インタラクティブ（fssnip from Tomas Petricek上の同様の例の礼儀）でこれを実行してみてください：

open System.Windows.Forms 

// Create form, label and add label to form 
let form = new Form(Text = "Scroller Test") 
let label = new Label() 
form.Controls.Add(label) 

// register mousewheel event handler and capture scrolling 
form.MouseWheel.Add(fun e -> 
    match e.Delta with 
    | n when n > 0 -> label.Text <- "Scrolled up" 
    | n when n < 0 -> label.Text <- "Scrolled down" 
    | _ ->()) // making compiler happy even though e.Delta cannot be 0 

// Show the form (in F# Interactive) 
form.Show() 

Answer 2

あなたはF＃インタラクティブを使用している場合、あなたはMouseWheelイベントがどのように動作するかをテストするために書くことができる最も簡単な方法は、このようなものです：あなたは、コードを選択して、F＃インタラクティブ（Altキーにそれを送信すると

open System.Windows.Forms 

let frm = new Form(Visible=true) 
frm.MouseWheel.Add(fun e -> 
    printfn "%A" e.Delta 
) 

+ ほとんどのF＃エディターでと入力してください）、フォームが表示されます。スクロールすると、Deltaは、スクロールしたときの上下を示すマイナスの値またはポストビー（負帰属）番号になります。

これをスタンドアロンアプリケーションとして実行する場合は、数字を別の場所に表示する必要があります（ラベルを使用してください）。Application.Run(frm)を追加してアプリケーションを起動する必要があります。

私は、WinFormsはおそらくほとんどの人がユーザーインターフェイスアプリケーションを開発するために使用しているものではないと同意しますが、問題はありません.WinFormを使って完璧なアプリケーションを構築し、F＃を学ぶことができます。 F# book I wrote some time agoにはたくさんのWinFormsの例があります。