Visual Basic .Net

RegexStringValidator

Pietro Libro — Wed, 17 Sep 2008 08:00:58 GMT

Con la versione 2.0 del .Net Framework è stata aggiunta al namespace System.Configuration, la classe RegexStringValidator che permette di eseguire rapidatamente la validazione di stringhe utilizzando espressioni regolari. Supponendo di avere un'espressione del tipo ^\d+,\d{2}$, che permette di verificare se una stringa rappresenta un valore numerico con due cifre dopo la virgola, per validare una stringa, possiamo scrivere una funzione molto semplice:

 1     Private Function IsValid(ByVal value As String) As Boolean
 2 
 3         Dim regexValidator As New RegexStringValidator("^\d+,\d{2}$")
 4 
 5         Try
 6             regexValidator.Validate(value)
 7             Return True
 8         Catch ex As ArgumentException
 9             'E'possibile sfruttuare l'istanza di ArgumentException per 
10             'ottenere maggiori informazioni sull'eccezione
11             Return False
12         End Try
13 
14     End Function

Utilizzando il metodo classico, avremmo potuto scrivere:

1 Dim regex As New System.Text.RegularExpressions.Regex("^\d+,\d{2}$")
2 Dim match As System.Text.RegularExpressions.Match = regex.Match("")
3 MessageBox.Show(match.Success)

Un'osservazione: Per verificare che un oggetto possa essere validato utilizzando RegexStringValidator, è sufficiente utilizzare il metodo d'istanza CanValidate della classe.

Technorati Tag: RegexStringValidator

DataTable.RowChanged e ProgressBar

Pietro Libro — Wed, 13 Feb 2008 16:00:29 GMT

Se abbiamo bisogno di una soluzione veloce per visualizzare l'avanzamento di un controllo ProgressBar durante il caricamento di un DataTable, possiamo gestire l'evento RowChanded in questo modo:

1     Private Sub CustomRowChanged(ByVal sender As Object, ByVal e As DataRowChangeEventArgs)
2 
3         If (e.Action = DataRowAction.Commit) Then
4             'Avanziamo il valore della progress bar
5             ProgressBar1.Value += 1
6             Application.DoEvents()
7         End If
8 
9     End Sub

Il codice per popolare il DataTable con i dati e per registrare il gestore eventi personalizzato può essere del tipo:

 1         'Imposto la proprietà Maximux del controllo ProgressBar
 2         ProgressBar1.Value = 0
 3         ProgressBar1.Maximum = GetNumeroRecords()
 4 
 5         'Registro il gestore eventi personalizzato
 6         AddHandler Articoli.ArticoliDataTable.RowChanged, AddressOf CustomRowChanged
 7 
 8         Try
 9             DataGridView1.SuspendLayout()
10 
11             'Popolo il DataTable 
12             ArticoliTableAdapter.Fill(Articoli.ArticoliDataTable)
13 
14             MessageBox.Show(String.Format("Caricati {0} records",Articoli.ArticoliDataTable.Rows.Count))
15 
16         Catch ex As Exception
17             MessageBox.Show(ex.Message)
18         Finally
19             DataGridView1.ResumeLayout()
20             'Rimuovo l'handler...
21             RemoveHandler Articoli.ArticoliDataTable.RowChanged, AddressOf CustomRowChanged
22         End Try

Ovviamente si potrebbero usare modelli di programmazione asincrona o popolare dati mediante un thread diverso da quello principale.

Technorati Tag: DataTable.RowChanged Event

Windows Form, thread ed eccezioni

Pietro Libro — Sun, 03 Feb 2008 11:26:00 GMT

Supponiamo di avere una semplice applicazione Windows Form il cui unico (e stupido) compito è quello di eseguire una divisione, qualcosa del tipo

Se non eseguiamo nessuna validazione sui campi, potrebbe accadere che vengano eseguiti calcoli sbagliati (ad esempio una divisione per zero) e di conseguenza che vengano sollevate le corrispondenti eccezioni. Per catturarle, possiamo utilizzare dei blocchi Try...Catch...Finally oppure gestire l'evento Application.ThreadException. Così facendo, oltre alla possibilità di memorizzare un log delle eccezioni a livello di applicazione o eseguire del codice di pulizia, possiamo visualizzare una Windows Form User-Friendly, senza interrompere bruscamente l'applicazione. Per registrare il gestore dell'evento ThreadException, possiamo aggiungere un modulo al nostro progetto e scrivere il seguente codice:

 1 <STAThread()> _
 2     Public Sub Main()
 3 
 4         'Imposta il gestore evento Application.ThreadExeception personalizzato
 5         AddHandler Application.ThreadException, AddressOf CustomErrorHandler
 6 
 7         AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf AppDomainCustomErrorHandler
 8 
 9         'Imposta il gestore evento Application.ApplicationExit personalizzato
10         AddHandler Application.ApplicationExit, AddressOf CustomApplicationExit
11 
12         Application.Run(New Form1())
13     End Sub

Dove il gestore CustomErrorHandler è del tipo:

 1  Public Sub CustomErrorHandler(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
 2 
 3         Try
 4             'Gestisce l'eccezione visualizzando una finestra di dialogo comune per l'eventuali eccezioni
 5             My.Forms.frmExeception.DescrizioneEccezione = e.Exception.Message
 6             My.Forms.frmExeception.ShowDialog()
 7         Catch ex As Exception
 8 
 9         End Try
10 
11     End Sub

Il quale, in caso di eccezione, visualizza la seguente finestra di dialogo:

Nel Sub Main, oltre a registrare l'evento Application.ThreadException, viene registrato anche il gestore per l'evento AppDomain.CurrentDomain.UnhandledExecption, perchè nel in cui caso la nostra applicazione sfrutti il multithreading, l'eventuali eccezioni dovute ai thread secondari non sarebbero catturate da CustomErrorHandler. Il codice del gestore per l'evento AppDomain.CurrrentDomain.UnhandledException è il seguente:

 1 Public Sub AppDomainCustomErrorHandler(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
 2         Try
 3             'Gestisce l'eccezione visualizzando una finestra di dialogo comune per l'eventuali eccezioni
 4             'Ottiene l'oggetto Exception
 5             Dim appDomainException As Exception = DirectCast(e.ExceptionObject, System.Exception)            
 6             My.Forms.frmExeception.DescrizioneEccezione = appDomainException.Message
 7             My.Forms.frmExeception.ShowDialog()
 8 
 9             If (e.IsTerminating) Then
10                 'Operazioni di pulizia...
11             End If
12         Catch ex As Exception
13 
14         End Try
15     End Sub

Il quale esegue una cast dell'oggetto e.ExceptionObject in System.Exception e visualizza la finestra di dialogo su mostrata. L'istanza di oggetto UnhandledExecptionEventArgs espone la proprietà IsTerminating che indica se il common language runtime stà terminando o meno. Nel caso di UnhandledExecption, il .Net Framework , con o senza gestione del relativo evento, visualizza la classica finestra di dialogo per l'esecuzione del debug dell'applicazione. Per testare il codice ed il relativo comportamento dell'applicazione, da Visual Studio è necessario lanciare l'applicazione senza Debug.

Thread Exception.zip

Technorati Tag: Application.ThreadException,UnhandledException

Operazione cross-thread non valida...

Pietro Libro — Fri, 01 Feb 2008 11:51:00 GMT

Post nato da una discussione su forum. Se utilizziamo un componente Backgroundworker per l'esecuzione di codice in
background, bisogna stare attenti alle operazioni "cross-thread", ad esempio quando il codice interagisce con i controlli
di una Windows Form. Se abbiamo ad esempio un controllo ListView, per popolarlo senza provocare eccezioni durante
l'esecuzione dell'applicazione, possiamo costruire ed utilizzare un delegate come nel codice seguente:

Private Delegate Sub ScriviSuListViewDelegate()

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, _
   ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

   If (Not (ListView1.InvokeRequired)) Then
      For i As Integer = 0 To 20
         ListView1.Items.Add(String.Format("Item #{0}", i))
      Next
   Else
      Dim d As New ScriviSuListViewDelegate(AddressOf ScriviSuListiView)
      ListView1.Invoke(d)
   End If
End Sub

Technorati Tag: BackgroundWorker

Interfaccia ISerializable e Serializzazioni Custom

Pietro Libro — Tue, 22 Jan 2008 10:19:12 GMT

Implementando l'interfaccia ISerializable nelle nostre classi, possiamo personalizzare il processo di serializzazione/deserializzazone dei tipi.
Ad esempio, un istanza di oggetto potrebbe contenere dei dati (ad esempio una password) che non vogliamo che risulti visibile
tramite editor di testo (come notepad) dopo aver serializzato l'oggetto come file su disco.
Nel codice di esempio è presente una classe Persona (onnipresente :-) ), che implementa il metodo GetObjectData (per la fase di serializzazione) con il codice necessario a cifrare il valore del campo "password", ed il costruttore con opportuna firma (per la fase di deserializzazione) nel quale viene decifrato il valore da attribuire al campo "password" dell'oggetto. Ovviamente i metodi utilizzati per cifrare/decifrare il testo dell'esempio sono banali
e non usabili nel mondo reale. Nel codice della classe, sono presenti due metodi, contrassegnati dagli attributi OnSerialized ed
OnDeserialized che permettono d'intercettare rispettivamente la fine del processo di serializzazione e di deserializzazione.
E' possibile intercettare l'inizio delle operazioni di serializzazione e di deserializzazione tramite gli attributi OnSerializing e OnDeserializing.
I metodi che intercettano gli eventi di serializzazione devono accettare un unico parametro di tipo StreamingContext, devono "ritornare Void" e
devono essere contrassegnati dall'attributo che corrisponde con l'evento che vogliamo intercettare.
Il codice "principale" della classe "Persona" è il seguente (in fondo al post è presente il collegamento per eseguire il download dell'
intero codice)

'Classe serializzabile
  <Serializable()> _
  Public Class Persona
    Implements System.Runtime.Serialization.ISerializable

  '...definizione campi privati e proprietà 
  'Costruttore senza parametri
  Public Sub New()
  End Sub    'In fase di deserializzazone, viene invocato questo costruttore dopo che  il formattatore
  'ha deserializzato i dati dell'oggetto SerializationInfo.   Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
    _nome = info.GetString("nome")
    _cognome = info.GetString("cognome")
    _username = info.GetString("username")
    'Recupera la password decifrandola
    _password = OttieniTestoInChiaro(info.GetString("password"))
  End Sub

  'In fase di serializzazione, l'oggetto Formatter richiama questo metodo per popolare la classe
  'SerializationInfo con i dati necessari alla rappresentazione dell'oggetto
  Public Sub GetObjectData(ByVal info As SerializationInfo, ByVal context As StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData
    info.AddValue("nome", _nome)
    info.AddValue("cognome", _cognome)
    info.AddValue("username", _username)
    'La password non deve essere in chiaro
    info.AddValue("password", OttieniTestoCifrato(_password))
  End Sub
   <OnSerialized()> _   Private Sub OnSerialized(ByVal context As StreamingContext)
    'Ricorda che l'oggetto è stato serializzato
    _serializzato = True   End Sub
   <OnDeserialized()> _   Private Sub OnDeserialized(ByVal context As StreamingContext)
    'L'oggetto è stato deserializzato, quindi imposta a False la proprietà Serializzato
    _serializzato = False   End Sub  '...altro codice

End Class

Codice della classe "Persona"

Technorati Tag: ISerialization

Report Locali & Parametri

Pietro Libro — Thu, 10 Jan 2008 22:20:56 GMT

Spesso mi capita di leggere nei forum domande relative all'utilizzo dei parametri nei report locali. Sperando che il progetto possa essere di aiuto, un esempio concreto per la visualizzazione di stringhe ed immagini.

Codice sorgente progetto

Classe CultureInfo e separatore decimale

Pietro Libro — Tue, 08 Jan 2008 00:42:27 GMT

Se volessimo, ad esempio, cambiare il carattere di separatore decimale in una nostra applicazione, è sufficiente utilizzare

la classe System.Globalization.CultureInfo. Esempio:

Dim culture As New System.Globalization.CultureInfo("it-IT")
Dim numberFormat As New System.Globalization.NumberFormatInfo()
'Visualizza il separatore decimale corrente 
MessageBox.Show(numberFormat.NumberDecimalSeparator)
'Imposta la chiocciola come separatore decimale 
numberFormat.NumberDecimalSeparator = "@" culture.NumberFormat = numberFormat
'Visualizza il separatore decimale corrente 
MessageBox.Show(numberFormat.NumberDecimalSeparator)
'Imposta l'oggetto Culture 
System.Threading.Thread.CurrentThread.CurrentCulture = culture

Dim valore As Double = 0 valore = 10 / 30 
'Visualiza 0@33333333 
MessageBox.Show(valore)

Technorati Tag: CultureInfo

Contenuto di un file HTML e Microsoft XML

Pietro Libro — Mon, 20 Aug 2007 01:48:42 GMT

Supponiamo di avere un file (html) contenente una lista non ordinata del tipo

<ul>
<li id="Eventi"><a href="#">Eventi</a></li>
<li id="Notizie"><a href="#">Notizie</a></li>
<li id="NewsLetter"><a href="#">NewsLetter</a>
<ul>
<li id="Sottomenu"><a href="#">Sottomenu</a></li>
</ul>
</li>
<li id="Agenzie"><a href="#">Agenzie</a></li>
</ul>

e di voler modificare (a run-time) il contenuto di uno degli elementi "<li>" . Supponiamo di voler trovare l'elemento con "id" uguale a "Eventi",
di voler aggiungere un nuovo attributo (class) con valore "Selected" e di voler eliminare il nodo <a href....></a> e lasciare il nodo
Evento.E' possibile fare quanto detto in modo molto semplice utilizzando l'oggetto COM Microsoft XML (Versione 3.0 o superiore)
e scrivendo il seguente codice:

	Dim doc As New MSXML2.DOMDocument
        'Carico il contenuto del file con la lista non ordina HTML
        Dim xmlString As String = System.IO.File.ReadAllText("C:\Inetpub\wwwroot\DomExample\test.ssi")
        If (doc.loadXML(xmlString)) Then
 
            Dim testoNodo As String = String.Empty
            Dim nodo As MSXML2.IXMLDOMNode = Nothing
            Dim root As MSXML2.IXMLDOMNode = Nothing
 
            'Cerco il nodo interessato
            Dim nodeList As MSXML2.IXMLDOMNodeList = doc.selectNodes("//li[@id='Eventi']")
 
            If (nodeList.length > 0) Then
                'Ha trovato il nodo
                root = nodeList.item(0)
 
                'Recupero il testo del link
                Dim testoLink As String = root.text
                'Creo  l'attributo Class....
                Dim attributoClass As MSXML2.IXMLDOMAttribute = doc.createAttribute("class")
                '...imposto il valore dell'attributo....
                attributoClass.value = "Selected"
                'aggiungo l'attributo create alla collezione di attributi del nodo...
                root.attributes.setNamedItem(attributoClass)
                'Recupero il nodo <span>...</span>...
                Dim nodoSpan As MSXML2.IXMLDOMNode = root.childNodes(0).childNodes(0)
                '... lo sostituisco al nodo <a href=....></a>
                root.replaceChild(nodoSpan, root.childNodes(0))
            End If
 
            'Visualizzo il contenuto del file modificato...
            MessageBox.Show(doc.xml)
        Else
            MessageBox.Show("Impossibile leggere il contenuto del file")
        End If

PDF e Java in .Net

Pietro Libro — Sat, 14 Jul 2007 07:33:00 GMT

Girovagando tra i vari siti di programmazione ed affini ho trovato questi due link:

1) Convertire un file PDF in semplice testo (in tre righe!) in .Net
Converting PDF to Text in C#

2) Utilizzare librerie java in .Net con IKVM.NET
Uses for IKVM.NET

AutoCompleteStringCollection e risorse incorporate

Pietro Libro — Sat, 16 Jun 2007 08:09:00 GMT

Piccolo esempio (nato da una discussione su di un forum) di come utilizzare una risorsa incorporata (file XML) per popolare un oggetto AutoCompleteStringCollection per usufruire della funzione di completamento automatico di un controllo TextBox. AutoCompleteSourceEmbedded.zip