Differenze tra le versioni di "Far mostrare l´estensione dell´ultimo file precedentemente aperto"
Da Gambas-it.org - Wikipedia.
| Riga 18: | Riga 18: | ||
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 With | ||
'''End''' | '''End''' | ||
Versione delle 16:38, 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 With
End
