Differenze tra le versioni di "Far mostrare l´estensione dell´ultimo file precedentemente aperto"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Poniamo il caso di volere che nel ''ComboBox'': "''Tipo di File''" all'interno della finestra di dialogo ''OpenFile'', o di quella ''SaveFile'', venga scritta l'estensione dell'ultimo ...) |
|||
| Riga 15: | Riga 15: | ||
With Dialog | With Dialog | ||
| − | .Filter = [*." & File.Ext(percorso), "File "]) | + | .Filter = ["*." & File.Ext(percorso), "File "]) |
If OpenFile() Then Return <FONT color=#006400>' ''oppure ".SaveFile"''</font> | If OpenFile() Then Return <FONT color=#006400>' ''oppure ".SaveFile"''</font> | ||
percorso = .Path | percorso = .Path | ||
'''End''' | '''End''' | ||
Versione delle 15:35, 6 mar 2013
Poniamo il caso di volere che nel ComboBox: "Tipo di File" all'interno della finestra di dialogo OpenFile, o di quella SaveFile, venga scritta l'estensione dell'ultimo file precedentemente aperto, o - nell'altro caso - dell'ultimo file precedentemente salvato.
Potremo utilizzare ad esempio il seguente codice:
Private percorso As String
Public Sub Form_Open()
percorso = "*.*"
End
Public Sub Button1_Click()
With Dialog
.Filter = ["*." & File.Ext(percorso), "File "])
If OpenFile() Then Return ' oppure ".SaveFile"
percorso = .Path
End
