Save File ダイアログ (PRIM_APPL.ICommonDialogFileSave)
Windows の [ファイルの保存] ダイアログ
祖先 - なし
[名前を付けて保存] ダイアログを使用して、エンドユーザーがファイルを保存できるようにします。
この例では、ファイル名の入力を求めるプロンプトが表示され、リストがそのファイルとして保存されます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Theme(#SYS_THEME<2015Blue>) Clientwidth(551) Clientheight(301) Left(165) Top(204) Width(567)
Define_Com Class(#PRIM_PHBN) Name(#Save) Caption('Save') Displayposition(1) Left(416) Parent(#COM_OWNER) Tabposition(1) Top(264) Width(129)
Def_List Name(#List) Fields(#xDemoNumber) Type(*Working)
Evtroutine Handling(#Com_owner.CreateInstance)
Begin_Loop Using(#xDemoNumber) To(10)
Add_Entry To_List(#List)
End_Loop
Endroutine
Evtroutine Handling(#Save.Click)
#Com_owner.Save
Endroutine
Mthroutine Name(Save)
Define_Com Class(#Prim_appl.ICommonDialogFileSave) Name(#FileSave) Reference(*Dynamic)
#FileSave <= #sys_appln.CreateFileSaveDialog
#FileSave.File := "SuggestedName.txt"
If (#FileSave.Show)
Use Builtin(Transform_list) With_Args(#List #FileSave.File T) To_Get(#IO$STS)
Endif
Endroutine
End_Com
| 名前 | 記述 |
|---|---|
| DefExtension | デフォルトのファイル拡張子 |
| ExplorerStyle | ダイアログを Windows Explorer スタイルにする |
| File | 現在選択のファイル |
| FileCount | 選択ファイルの数 |
| Files | すべての選択ファイル名のコレクション |
| FileTitle | タイトル バーに表示するキャプション |
| FilterCaption | 指定のフィルターのキャプション |
| FilterCount | フィルターの合計数 |
| FilterExtension | すべてのフィルター エクステンションのコレクション |
| FilterIndex | 必要なフィルターのインデックス |
| InitialDir | ダイアログに表示する最初のフォルダ |
| MultiSelect | 複数ファイルの選択を許可 |
| OverwritePrompt | ファイルの上書きが必要なことを示すプトンプト |
| Title | タイトル バーに表示するキャプション |
| 名前 | 記述 |
|---|---|
| AddFilter | ファイル タイプのフィルターを追加
Name, Extention |
| Show | モーダル ダイアログを表示
FormOwner, OKPressed |
2018 - V14SP1