Passa ai contenuti principali

VB.NET: Recuperare in maniera automatica il nome della proprietà in cui si ci trova

La semplice classe che vi propongo permette di ricavare, sfruttando lo stacktrace, il nome della proprietà in cui ci si trova dinamicamente.

La classe è una classe utility che presenta un metodo statico il cui risultato è il nome della property in cui ci si trova (sia che siamo nel Get che nel Set) oppure Nothing se non siamo in una property:

  1. Public NotInheritable Class PropertyHelper
  2.     Private Sub New()
  3.  
  4.     End Sub
  5.  
  6.     Private Const SetPropertyPrefix = "set_"
  7.     Private Const GetPropertyPrefix = "get_"
  8.  
  9.     Public Shared Function GetCurrentPropertyName() As String
  10.         Dim retval As String = Nothing
  11.         Dim method = (From sf In New StackTrace().GetFrames
  12.                     Where sf.GetMethod().DeclaringType <> GetType(PropertyHelper)
  13.                     Select sf.GetMethod()).FirstOrDefault()
  14.         If method IsNot Nothing Then
  15.             If method.Name.StartsWith(SetPropertyPrefix) Then
  16.                 retval = method.Name.Replace(SetPropertyPrefix, "")
  17.             End If
  18.             If method.Name.StartsWith(GetPropertyPrefix) Then
  19.                 retval = method.Name.Replace(GetPropertyPrefix, "")
  20.             End If
  21.         End If
  22.         Return retval
  23.     End Function
  24. End Class

La classe può essere utilizzata, ad esempio, nelle proprietà di quelle classi che implementano l’interfaccia INotifyPropertyChanged per non “cablare” la stringa con il nome delle proprietà all’interno del codice:

  1. Imports System.ComponentModel
  2.  
  3. Public Class Utente
  4.     Implements INotifyPropertyChanged
  5.  
  6.     Private _Nome As String
  7.     Public Property Nome() As String
  8.         Get
  9.             Return _Nome
  10.         End Get
  11.         Set(ByVal value As String)
  12.             If value <> _Nome Then
  13.                 _Nome = value
  14.                 OnPropertyChanged(PropertyHelper.GetCurrentPropertyName())
  15.             End If
  16.         End Set
  17.     End Property
  18.  
  19.     Protected Sub OnPropertyChanged(ByVal propertyName As String)
  20.         RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
  21.     End Sub
  22.  
  23.     Public Event PropertyChanged(ByVal sender As Object,
  24.                                  ByVal e As System.ComponentModel.PropertyChangedEventArgs) _
  25.                              Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
  26. End Class

 

Commenti

Post popolari in questo blog

VB.NET: Convertire un file DOC in RTF e PDF con office interop

In questo post vorrei proporvi del codice per poter convertire un file .doc in un file .rtf oppure .pdf utilizzando le API di interoperabilità di Office.Creeremo una classe, DocConverter, che esporrà le due funzionalità sopra citate.Cominciamo con il prevedere un attributo privato della classe che rappresenterà l’applicazione Word che utilizzeremo per la conversione. Creeremo l’istanza dell’attributo privato all’interno del costruttore della classe:PublicSubNew()
IfNot CreateWordApp() Then
ThrowNew ApplicationException("Assembly di interoperabilità con Office non trovato!")
EndIf
EndSub
Private _wordApp As Word.ApplicationClass
ProtectedFunction CreateWordApp() AsBoolean
Dim retval = True
Try
_wordApp = New Word.ApplicationClass()
_wordApp.Visible = False
Catch ex As System.Exception
_wordApp = Nothing
retval = False
EndTry
Return retval
EndFunction

La conversione del file doc sarà effettuata aprendo il file stesso ed eseguendo un’operazione di SaveAs:

Pr…

VB.NET for Dummies: Gli Eventi

Vorrei iniziare con questo post una serie dedicata ad aspetti di VB.NET di base che possono essere utile a coloro che si avvicinano al mondo .NET e che, in genere, non vengono trattati a livello base.La serie di post non ha la pretesa di essere assolutamente esaustivi sugli argomenti che tratteròIn questo primo post parleremo degli eventi.Cosa sono e a cosa servonoUn evento è la “notifica” dell’accadimento di qualcosa.Quando, ad esempio, premiamo un bottone della finestra di un’applicazione, dietro le quinte, il bottone stesso “notifica” al mondo circostante che qualcuno, in quell’istante, lo ha premuto.Sta, poi, al mondo circostante preoccuparsi di “intercettare” l’evento stesso per gestirlo (tramite un gestore di evento).Attenzione a non confondere la pressione del tasto con la “notifica” della pressione del tasto: l’evento è la “notifica” dell’accadimento, non l’accadimento stesso.Ma a cosa serve tutto ciò?Utilizzare gli eventi è un modo per disaccoppiare due o più attori del nostr…

Creare uno shortcut con VB.NET

Prendendo spunto da un post comparso sul forum MSDN vorrei proporvi un tip su come creare uno shortcut utilizzando VB.NET.Per poter creare uno shortcut possiamo procedere in due modi: o ci studiamo la struttura del file .lnk e scriviamo una classe che è in grado di ricreare tale struttura oppure utilizziamo Windows Scripting Host.La prima soluzione è percorribile ma laboriosa perchè la struttura di un file lnk non è banale. Chi fosse interessato a vedere come è composto, internamente, un file lnk può scaricare la seguente reference guide (link).Io vorrei proporvi la seconda strada e realizzerò una classe che incapsula l’utilizzo di Windows Scripting Host.L’object model di Windows Scripting Host è contenuto nella dll IWshRuntimeLibrary che può essere referenziata, nel nostro progetto, utilizzando il tab COM della finestra di aggiunta delle reference:Tra gli oggetti che troviamo all’interno della libreria utilizzeremo la classe WshShell e la classe WshShortcut.La prima delle due rappres…