Aprire un file mediante la Classe 'DesktopFile' con il programma al quale è associato

Da Gambas-it.org - Wikipedia.

La Classe "DesktopFile" ci consente di aprire un file utilizzando il programma, al quale esso è associato.

Per richiamare la Classe DesktopFile si dovrà attivare il Componente gb.desktop .


Vediamo un esempio pratico:

Private pr As Process


Public Sub Form_Open()
 
 Dim df As DesktopFile[]
 Dim b As Byte
 
' Impostiamo il "MimeType" del file da aprire (ad esempio relativo a un file di testo), ed otteniamo un vettore contenente i programmi al quale esso è associato:
 df = DesktopFile.FromMime("text/html")
 
' Mostra nome e percorso delle applicazioni alle quali il file è associato:
 For b = 0 To df.Max
   Print df[b].ProgramName, df[b].Path
 Next
 
' Ad esempio apre il file con il primo programma al quale è associato, e ne assegna il processo ad una variabile di tipo "Process" per poterlo gestire in seguito:
  pr = df[0].Run("/percorso/del/file/da/aprire")

End


Public Sub Button1_Click()
 
' Cliccando sul tasto, si elimina il programma aperto:
 pr.Kill
 
End