Differenze tra le versioni di "Estrarre l'icona di un programma associato ad un file"

Da Gambas-it.org - Wikipedia.
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per estrarre l'icona associata ad una applicazione associata ad un tipo di file, si potranno utilizzare le Classi ''DesktopMime'' e ''DesktopFile'' del componente ''gb.desktop'' .
+
Per estrarre l'icona associata a una applicazione associata a un tipo di file, si potranno utilizzare le Classi ''DesktopMime'' e ''DesktopFile'' del componente ''gb.desktop'' .
  
 
Nel semplice esempio seguente attiviamo il componente ''gb.desktop'' e poniamo sul ''Form'' dell'applicazione una ''PictureBox'', nella quale sarà mostrata l'icona dell'applicazione associata al tipo di file individuato:
 
Nel semplice esempio seguente attiviamo il componente ''gb.desktop'' e poniamo sul ''Form'' dell'applicazione una ''PictureBox'', nella quale sarà mostrata l'icona dell'applicazione associata al tipo di file individuato:
−
  '''Public''' Sub Form_Open()
+
  Private Const PIX As Integer = 48  <Font color=gray>' ''Imposta la dimensione dell'icona da mostrare''</font>
 
   
 
   
−
  Dim df As DesktopFile
 
−
  Dim i As Image
 
 
   
 
   
 +
Public Sub Form_Open()
 
   
 
   
−
   percorso = "''/percorso/del/file/associato/all'applicazione''"
+
  Dim percorso As String
−
+
  Dim df As DesktopFile
−
  With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
+
    
−
    Print .ProgramName  <Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font>
+
  percorso = "<FONT Color=darkgreen>''/percorso/del/file/associato/all'applicazione''</font>"
−
    i = .GetIcon(48)
+
 
−
    PictureBox1.Picture = i.Picture
+
  With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
−
  End With
+
<Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font>
−
+
    Print .ProgramName
−
  '''End'''
+
<Font color=gray>' ''Viene mostrata in una "PictureBox" l'icona associata a tipo di file:''</font>
 +
    PictureBox1.W = PIX
 +
    PictureBox1.H = PIX
 +
    PictureBox1.Image = .GetIcon(PIX)
 +
  End With
 +
 
 +
  End

Versione attuale delle 17:20, 27 giu 2024

Per estrarre l'icona associata a una applicazione associata a un tipo di file, si potranno utilizzare le Classi DesktopMime e DesktopFile del componente gb.desktop .

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

Private Const PIX As Integer = 48   ' Imposta la dimensione dell'icona da mostrare


Public Sub Form_Open()

 Dim percorso As String
 Dim df As DesktopFile
  
 percorso = "/percorso/del/file/associato/all'applicazione"
 
 With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
' Viene mostrato in console anche il nome dell'applicazione associata al file
   Print .ProgramName
' Viene mostrata in una "PictureBox" l'icona associata a tipo di file:
   PictureBox1.W = PIX
   PictureBox1.H = PIX
   PictureBox1.Image = .GetIcon(PIX)
 End With
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Estrarre_l%27icona_di_un_programma_associato_ad_un_file&oldid=37609"