跳转到内容

Gambas/Dialogue

来自维基教科书,开放的书籍,开放的世界

返回 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
华夏公益教科书