>Salve developers,
>ho creato un form folder in vb.net.
Form folder??? Cosa intendi?
>Questa cartella contiene alcuni file (.docx,.xls,.ppt,.pdf,.jpg,ecc..). Vorrei che quando
>faccio un doppio-click su di un file....
Dipende da cos' è e come è fatto il "form folder".....
>...si apra con office (per
>esempio per files word o excel) o col visualizzatore di immagini
>per jpg ecc..
Esiste la classe Process:
http://msdn.microsoft.com/it-it/library/system.diagnostics.process(v=vs.100).aspx
che permette di fare svariate cose.
Crea un file txt sul desktop, scrivici qualcosa e rinominalo in 1.txt, esempi:
'apre il file con programma predefinito
Process.Start(My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
'apre il file con IE
Process.Start("iexplore.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
'apre il file con Google Chrome
Process.Start("chrome.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
'apre il file con word
Process.Start("winword.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
e se studi la classe trovo molto altro...
>O ancora meglio che ti chieda con che programma
>vuoi aprire il files..
>Chi mi aiutaaaa?
Qui ho una lacuna...penso si possa fare qualcosa ma molto limitata e laboriosa, nel senso che bisogna ottenere i programmi installati con la possibilità che il programma scelto non sia compatibile con l' estensione del file...oppure creare una lista(a priori) di programmi da proporre in base all' estensione ma in questo caso si dovrebbero togliere dalla lista i programmi non installati.
Per il resto basta impostare una stringa alla "scelta" per cambiare il programma che deve aprire il file:
Dim programma As String
Private Sub Button1_Click() Handles Button1.Click
programma = "iexplore.exe"
Process.Start(programma, My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
End Sub
Private Sub Button2_Click() Handles Button2.Click
programma = "winword.exe"
Process.Start(programma, My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
End Sub
Private Sub Button3_Click() Handles Button3.Click
programma = "notepad.exe"
Process.Start(programma, My.Computer.FileSystem.SpecialDirectories.Desktop & "\1.txt")
End Sub
Ciao!