ISDBApplication::CommonDialog: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
{{MethodDeclaration|SDBApplication|ISDBApplication|Property Get CommonDialog As ISDBCommonDialog}} | |||
===Property description=== | ===Property description=== | ||
Returns SDBCommonDialog object that can be used then to show load/save file dialogs. | Returns SDBCommonDialog object that can be used then to show load/save file dialogs. | ||
===Example code=== | |||
===Example code=== | |||
<source lang="vb">' Create common dialog and ask where to save the file | <source lang="vb">' Create common dialog and ask where to save the file | ||
Dim dlg | Dim dlg | ||
Revision as of 13:28, 21 March 2007
CoClass SDBApplication, Interface ISDBApplication
Property Get CommonDialog As ISDBCommonDialog
Property description
Returns SDBCommonDialog object that can be used then to show load/save file dialogs.
Example code
' Create common dialog and ask where to save the file
Dim dlg
Set dlg = SDB.CommonDialog
dlg.DefaultExt='mp3'
dlg.Filter=filter
dlg.Flags=cdlOFNOverwritePrompt + cdlOFNHideReadOnly
dlg.InitDir = iniF.StringValue( "Scripts", iniDirValue)
dlg.ShowSave
if Not dlg.Ok Then
Exit Sub ' if cancel was pressed, exit
End If
' Get the selected filename
fullfile = dlg.FileName