Gambas文档
编译和安装
错误消息
代码片段
待办事项
废弃的组件
教程
开发环境文档
开发者文档
名词解释
如何操作
说明
维基手册
维基搜索
维基许可协议
文档
应用程序仓库
语言概览
语言索引
主题
组件
gb
gb.args
gb.cairo
gb.chart
gb.clipper
gb.complex
gb.compress
gb.crypt
gb.data
gb.db
gb.db.form
gb.db.mysql
gb.db.odbc
gb.db.postgresql
gb.db.sqlite2
gb.db.sqlite3
gb.dbus
gb.dbus.trayicon
gb.debug
gb.desktop
gb.desktop.x11
gb.eval
gb.eval.highlight
gb.form
gb.form.dialog
Dialog
Date
OpenFile
Paths
SelectDate
gb.form.editor
gb.form.htmlview
gb.form.mdi
gb.form.print
gb.form.terminal
gb.gmp
gb.gsl
gb.gtk
gb.gtk3
gb.gtk3.opengl
gb.gtk3.webview
gb.gui
gb.gui.qt
gb.gui.qt.ext
gb.gui.trayicon
gb.gui.webview
gb.hash
gb.highlight
gb.image
gb.image.effect
gb.image.io
gb.inotify
gb.logging
gb.map
gb.media
gb.media.form
gb.mime
gb.mongodb
gb.mysql
gb.ncurses
gb.net
gb.net.curl
gb.net.pop3
gb.net.smtp
gb.opengl
gb.opengl.glsl
gb.opengl.glu
gb.opengl.sge
gb.openssl
gb.option
gb.pcre
gb.pdf
gb.poppler
gb.qt4
gb.qt4.ext
gb.qt4.opengl
gb.qt4.webkit
gb.qt4.webview
gb.qt5
gb.qt5.ext
gb.qt5.opengl
gb.qt5.webview
gb.qt6
gb.qt6.ext
gb.qt6.opengl
gb.qt6.webview
gb.report
gb.report2
gb.sdl
gb.sdl2
gb.sdl2.audio
gb.settings
gb.signal
gb.term
gb.test
gb.util
gb.util.web
gb.v4l
gb.vb
gb.web
gb.web.feed
gb.web.form
gb.web.gui
gb.xml
gb.xml.html
gb.xml.rpc
gb.xml.xslt
最近的修改

Dialog.OpenFile (gb.form.dialog)

Static Function OpenFile ( [ Multi As Boolean ] ) As Boolean

调用标准文件对话框,获得将要打开的文件名。

  • 如果_Multi_为=FALSE=(缺省值),那么用户仅能选择一个文件,并在Path 属性中返回选中的文件的路径。

  • 如果_Multi_为=TRUE=,那么用户可以选择多个文件,并在Paths 属性中返回一个包含选中文件路径的字符串数组。

如果用户点击“取消”按钮,返回TRUE。 如果用户点击“确定”按钮,返回FALSE

Examples

Dialog.Title = "Choose a file"
Dialog.Filter = ["*.txt", "Text Files", "*", "All files"]
Dialog.Path = "."
IF Dialog.OpenFile() THEN
  RETURN ' User pressed Cancel -
ENDIF

该示例显示如何用OpenFile对话框选择多个文件。在应用程序启动时通过设置Dialog.Path,使第一次打开的对话框将显示用户主目录。

PUBLIC SUB Form_Open()
  Dialog.Path = User.Home
END

PUBLIC SUB ButtonOpenMultiple_Click()
  DIM imageFile AS String
  Dialog.Filter = ["*.png", "Portable Network Graphics"]
  IF Dialog.OpenFile(TRUE) THEN RETURN
  FOR EACH imageFile IN Dialog.Paths
    PRINT imageFile
  NEXT
CATCH
  Message.Info(Error.Text)
END