Caliburn.Micro, NuGet, Visual Basic.Net e Windows Phone 7

No, non mi sono sbagliato e ho ripubblicato un precedente post, semplicemente si tratta della versione del precedente post per WP7.

Anche in questo caso, se tentiamo di utilizzare Caliburn.Micro tramite NuGet in un progetto VB.NET per WP7, otteniamo che le classi che il package NuGet genera sono per C#.

Ma procediamo con ordine, per cominciare accertiamoci di aver installato ed abilitato NuGet tra le estensioni di VS (basta vedere se con il tasto destro su un progetto appare il menù contestuale “Add Library Package Reference…”). Se non abbiamo NuGet, possiamo installarlo utilizzando l’Extension Manager del menù Tools.

Come secondo passo creiamo un nuovo progetto WP7 e, una volta che Visual Studio ha terminato la procedura di creazione, selezioniamo il nostro progetto e scegliamo il comando “Manage NuGet Packages…” che compare con la pressione del tasto destro del mouse.

Digitiamo “Caliburn” nella casella di ricerca della finestra di NuGet che appare subito dopo:

Premendo il tasto install, il package NuGet provvede a creare le opportune classi (che abbiamo detto essere in C#) che servono per il funzionamento di Caliburn.Micro su WP7. In particolare, come possiamo vedere nella figura in seguito, vengono create due classi: AppBoostraper.cs e MainPageViewModel.cs

Ovviamente, noi VB-isti non possiamo farci nulla delle classi generate quindi le cancelliamo e le sostituiamo con le seguenti:

AppBoostrapper.vb

1. Imports Caliburn.Micro
2.  
3. Public Class AppBootstrapper
4.     Inherits PhoneBootstrapper
5.  
6.     Dim container As PhoneContainer
7.  
8.     Protected Overrides Sub Configure()
9.         container = New PhoneContainer(RootFrame)
10.  
11.         container.RegisterPhoneServices()
12.         container.PerRequest(Of MainPageViewModel)()
13.  
14.         AddCustomConventions()
15.     End Sub
16.  
17.     Protected Overrides Function GetInstance(service As System.Type, key As String) As Object
18.         Return container.GetInstance(service, key)
19.     End Function
20.  
21.     Protected Overrides Function GetAllInstances(service As System.Type) As System.Collections.Generic.IEnumerable(Of Object)
22.         Return container.GetAllInstances(service)
23.     End Function
24.  
25.     Protected Overrides Sub BuildUp(instance As Object)
26.         container.BuildUp(instance)
27.     End Sub
28.  
29.  
30.     Public Shared Sub AddCustomConventions()
31.         ConventionManager.AddElementConvention(Of Pivot)(Pivot.ItemsSourceProperty, "SelectedItem", "SelectionChanged").ApplyBinding = _
32.             New Func(Of System.Type, String, System.Reflection.PropertyInfo, System.Windows.FrameworkElement, Caliburn.Micro.ElementConvention, Boolean) _
33.             (Function(viewModelType, path, [property], element, convention)
34.                  If (ConventionManager.GetElementConvention(GetType(ItemsControl)).ApplyBinding(viewModelType, path, [property], element, convention)) Then
35.                      ConventionManager.ConfigureSelectedItem(element, Pivot.SelectedItemProperty, viewModelType, path)
36.                      ConventionManager.ApplyHeaderTemplate(element, Pivot.HeaderTemplateProperty, viewModelType)
37.                      Return True
38.                  End If
39.                  Return False
40.              End Function)
41.  
42.         ConventionManager.AddElementConvention(Of Panorama)(Panorama.ItemsSourceProperty, "SelectedItem", "SelectionChanged").ApplyBinding = _
43.                  New Func(Of System.Type, String, System.Reflection.PropertyInfo, System.Windows.FrameworkElement, Caliburn.Micro.ElementConvention, Boolean) _
44.                  (Function(viewModelType, path, [property], element, convention)
45.                       If (ConventionManager.GetElementConvention(GetType(ItemsControl)).ApplyBinding(viewModelType, path, [property], element, convention)) Then
46.                           ConventionManager.ConfigureSelectedItem(element, Panorama.SelectedItemProperty, viewModelType, path)
47.                           ConventionManager.ApplyHeaderTemplate(element, Panorama.HeaderTemplateProperty, viewModelType)
48.                           Return True
49.                       End If
50.  
51.                       Return False
52.                   End Function)
53.     End Sub
54. End Class

MainPageViewModel.vb

1. Public Class MainPageViewModel
2.  
3.    
4. End Class

A questo punto possiamo seguire i passi descritti nel tutorial per poter configurare la nostra app all’utilizzo di Caliburn.Micro.

Il suggerimento che vi posso dare è quello di ristrutturare le cartelle dell’applicazione creando le cartelle Views e ViewModels in cui inserire le views e i viewmodels (inizialmente MainPage e MainPageViewModel) nel seguente modo:

Infine, visto che ci siamo, modifichiamo i namespace delle classi MainPage (namespace CaliburnMicroWP7.Views) e MainPageViewModel (namespace CaliburnMicroWP7.ViewModels).

In allegato al post trovate la soluzione completa con le classi e le modifiche.

Tag di Technorati: Caliburn.Micro,Caliburn,WP7,Windows Phone 7,Visual Basic .NET,VB.NET,NuGet,Bootstrapper,AppBootstrapper