Estrarre l'icona di un tipo di file

Quando un tipo di file è associato ad una determinata icona, tutti i file appartenenti a quel tipo saranno mostrati sul desktop con quell'icona.

Per estrarre l'icona associata ad un tipo di file, si potranno utilizzare due modalità entrambe attivando il componente gb.desktop.

Uso del metodo Desktop.GetFileIcon()

Il metodo Desktop.GetFileIcon() ritorna l'icona, come Picture, associata ad un tipo di file.

Nel seguente semplice esempio poniamo sul Form dell'applicazione una PictureBox, nella quale verrà mostrata liconda associata al tipo di file prescelto:

Public Sub Form_Open()

  PictureBox1.Picture = Desktop.GetFileIcon("/percorso/del/file", 48)

End

Il secondo parametro, che nell'esempio abbiamo posto con valore 48, rappresenta la dimensione espressa in pixel, con la quale sarà mostrata l'icona nella PictureBox.

Uso della Classe DesktopMime

Della la Classe DesktopMime useremo i metodi .FromFile() e .GetIcon().

Nel semplice esempio seguente attiviamo il componente gb.desktop e poniamo sul Form dell'applicazione un Button ed una PictureBox, nella quale sarà mostrata l'icona del tipo di file individuato:

Public Sub Button1_Click()
     
 Dim i as Image


  percorso = "/percorso/del/file"

  i = DesktopMime.FromFile(percorso).GetIcon(48)
  PictureBox1.Picture = i.Picture
 
End