Gambas/Dialogue
外观
< Gambas
返回 Gambas
它们让你的编码更容易。
在下面的例子中,你将使用标准对话框来选择
- 字体
- 颜色
- 文件名
- 文件路径
你需要一个文本区域和三个命令按钮,才能让程序运行起来。
PUBLIC SUB Button1_Click() IF Dialog.SelectFont() THEN RETURN Textarea1.Font = Dialog.Font END PUBLIC SUB Button2_Click() IF Dialog.SelectColor() THEN RETURN Textarea1.Background = Dialog.Color END PUBLIC SUB Button3_Click() Dialog.SaveFile() File.Save(Dialog.Path, TextArea1.Text) CATCH IF ERROR THEN RETURN END
Color Filter Font Path Title
OpenFile SaveFile SelectColor SelectDirectory SelectFont