-- Gambas.JochenGeorges - 24 Dec 2004

Как сохранять и открывать файлы в диалоге


mydialog.png
' Gambas class file

PUBLIC SUB Button1_Click()
IF Dialog.OpenFile() THEN RETURN
Label1.Text = Dialog.Path
TextArea1.Text = File.Load(Dialog.Path)
END

PUBLIC SUB Button2_Click()
IF Dialog.SaveFile() THEN RETURN
File.Save(Dialog.Path, TextArea1.Text)
END