Passa ai contenuti principali

VB.NET : Un metodo di estensione per recuperare, tramite LINQ, un record casuale da una collezione.

Vi segnalo su DotNetRomaCestà un mio tip riguardante LINQ ed esattamente la possibilità di recuperare casualmente un record all’interno di una collezione di elementi.

Riporto interamente il tip per semplicità ma potete trovarlo anche al link.

Questo piccolo trucco può sembrare inutile (e forse lo è), ma può avere utilità quando si ha la necessità di visualizzare, casualmente, un elemento preso da una collezione (ad esempio vetrine, banner pubblicitari, etc., etc.).

Si tratta di un metodo di estensione che si applica ad un’istanza di IQueryable(Of T) e restituisce un oggetto di classe T recuperato a caso (utilizzando il generatore di numeri casuale fornito dalla classe Random del Framework):

<Extension()> _
Public Function GetRandom(Of T) _
    (ByVal coll As IQueryable(Of T)) As T
  Dim retval As T
  Dim rnd As New Random(DateTime.Now.Millisecond)
  retval = coll.Skip(Convert.ToInt32(rnd.NextDouble* _
    (coll.Count - 1))).Take(1).FirstOrDefault
  Return retval
End Function

Il metodo, purtroppo, esegue due query sulla collezione (una per il count e l’altra per il recupero del record) e questo, comporta, in caso di collezioni provenienti da database (ad esempio LINQ to SQL), ad un doppio accesso alla banca dati.

Commenti

Post popolari in questo blog

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 servono Un 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 ...

VB.NET: SplashScreen con effetto fade-in

In questo post vorrei proporvi un modo per realizzare una splash screen per le nostre applicazioni Windows Form che appare progressivamente con un effetto fade. Supponiamo di avere il nostro progetto VB.NET in una soluzione Visual Studio 2008 in cui abbiamo il sorgente della nostra applicazione Windows Form. Inseriamo una splash screen utilizzando il menù Progetto->Aggiungi Nuovo Elemento e selezionando il tipo di elemento “Schermata Iniziale” A questo punto Visual Studio creerà, automaticamente, la schermata iniziale che possiamo personalizzare graficamente come vogliamo. Per poter fare in modo che questa finestra appaia nel momento in cui avviamo l’applicazione, è necessario aprire le proprietà del progetto e impostare la maschera di avvio: In questo modo, all’avvio dell’applicazione, la schermata appare immediatamente e scompare un attimo prima della visualizzazione della finestra dell’applicazione. Possiamo far apparire la schermata iniziale con un ef...

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: Public Sub New () If Not CreateWordApp() Then Throw New ApplicationException(" Assembly di interoperabilità con Office non trovato! ") End If End Sub Private _wordApp As Word.ApplicationClass Protected Function CreateWordApp() As Boolean Dim retval = True Try _wordApp = New Word.ApplicationClass() _wordApp.Visible = False Catch ex As System.Exception _wordApp = Nothing retval = False End Try Return retval End Function La conve...