Добавьте функцию f# как обработчик событий в xaml
Кто-либо знает, как добавить обработчик событий F# к управлению в xaml файле?
2 ответа
По сути, вам нужно загрузить файл xaml и найти элемент управления по имени:
let w = Application.LoadComponent(new System.Uri(
"/twitterstream;component/Window.xaml", System.UriKind.Relative
)) :?> Window
let b = w.FindName("buttonToggle") :?> Button
, а затем вы можете просто добавить обработчик события:
b.Click.Add(fun _ -> ...)
Вы можете пофантазировать и используйте первоклассные комбинаторы событий - вот отличное пошаговое введение:
http://blogs.msdn.com/b/timng/archive/2010/05/06/f-wpf-events.aspx
Я только что рассказал о реактивном программировании на F # (в Лондоне), в котором для реализации большинства примеров использовался Silverlight. Выступление записано, и образцы также доступны для загрузки, так что это может быть полезным ресурсом:
- См. Мой блог со ссылками на источник, запись и слайд
Чтобы ответить на ваш конкретный вопрос, я не думайте, что вы можете использовать обычный стиль указания обработчика событий в файле XAML (это может работать в приложении F # Silverlight, но вам придется использовать member вместо let функция).
Однако лучший способ (я могу придумать) для написания компонентов Silverlight - это иметь только библиотеку F # Silverlight и использовать ее из приложения C # Silverlight. В этом случае вам нужно написать привязку обработчика событий в коде. Упрощенный пример (из одного из примеров из выступления) будет выглядеть так:
open System.Windows.Controls
// Dynamic invoke operator that makes accessing XAML elements easy
// (easier than using 'FindName' explicitly in the code
let (?) (this : Control) (prop : string) : 'T = // '
this.FindName(prop) :?> 'T // '
type MyControl() as this =
inherit UserControl()
do
let path = "/MyProject;component/MyControl.xaml"
let uri = new System.Uri(path, UriKind.Relative)
Application.LoadComponent(this, uri)
// Get Button named 'TestButton' from the XAML file
let btn : Button = this?TestButton
// Add event handler to the button
btn.Add(fun _ -> btn.Text <- "Clicked!")