Quick memo

Per elencare il contenuto di una directory

Dim dirInfo As DirectoryInfo = New DirectoryInfo(Request.MapPath("~/redazione/test"))
Dim fInfo As FileInfo() = dirInfo.GetFiles("*.bin")
For Each File As FileInfo In fInfo
    ' Do something here with FileObject
Next
    

Embed dei video Youtube

Nell'includere un video in una propria pagina web YouTube permette qualche personalizzazione (per esempio la grandezza e il colore di sfondo). La stringa da incollare nell'html è simile a quella sottostante.

<object width="213" height="176">
 <param name="movie" value="http://www.youtube.com/v/JL5AtcR4PGo&hl=en&fs=1"></param>
 <param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param>
<embed src="http://www.youtube.com/v/JL5AtcR4PGo&hl=en&fs=1" type="application/x-shockwave-flash" 
 allowscriptaccess="always" allowfullscreen="true" width="480" height="295"></embed></object>

Apportando alcune modifiche è però possibile aggiungere altre personalizzazioni. Eccone alcune

• rel=0 (disabilità il caricamento dei video correlati)
• autoplay=1 (il video parte automaticamente al caricamento della pagina)
• loop=1 (il video viene immediatament riavviato al termine)
• start=[numero intero] (il video tralasciando il numero di secondi indicati)

Per la lista completa YouTube API reference

In questo esempio è stato aggiunto il parametro rel=0 per evitare la visualizzazione dei video correlati al termine della visualizzazione.

<object width="213" height="176">
 <param name="movie" value="http://www.youtube.com/v/JL5AtcR4PGo&hl=en&fs=1&rel=0"></param>
 <param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param>
<embed src="http://www.youtube.com/v/JL5AtcR4PGo&hl=en&fs=1&rel=0" type="application/x-shockwave-flash" 
 allowscriptaccess="always" allowfullscreen="true" width="480" height="295"></embed></object>

Tre piccole cose da non dimenticare mai nei form.

• Per riportare lo scroll di una pagina allo stesso punto dopo un F5: MaintainScrollPositionOnPostBack = true
• Per impostare il focus di default: defaultfocus
• Per il button di default (submit): defaultbutton

Come controllare le versioni installate di .NET

Nel percorso %systemroot%\Microsoft.NET\Framework si trovano tutte le directory delle varie versioni di .NET

Serializzare e deserializzare una classe

Molto utile per salvare informazioni e a volte per creare semplici fili xml (con seriarilizzazione non binaria).

Nella dichiarazione della classe non dimenticare Serializable() l'import

Imports System.Xml
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
    

<Serializable()> Public Class MyClass
    Public MyInfo1 as string
    Public MyInfo2 as integer
End Class
    

Per serializzare

dim fi as string = "filename"
dim kf as new MyClass

' Serializzazione XML    
Dim Serializer As New Serialization.XmlSerializer(GetType(MyClass))
Dim DataFile As New FileStream(fi, FileMode.Create, FileAccess.Write, FileShare.None)
Serializer.Serialize(DataFile, kf)
DataFile.Close()

' Serializzazione in BINARY mode (in alternativa ovviamente)
Dim Serializer As New BinaryFormatter
Dim DataFile As New FileStream(Request.MapPath(fi), FileMode.Create, FileAccess.Write, FileShare.None)
Serializer.Serialize(DataFile, kf)
DataFile.Close()