当前位置: 代码迷 >> VFP >> 获得文件保存路径,getdir()窗口很难看,怎么处理
  详细解决方案

获得文件保存路径,getdir()窗口很难看,怎么处理

热度:2985   发布时间:2013-02-26 00:00:00.0
获得文件保存路径,getdir()窗口很难看,怎么办?
获得文件保存路径,getdir()窗口很难看,怎么办?

------解决方案--------------------------------------------------------
用 vfp9,第四个参数加上64,就是 xp 样式

------解决方案--------------------------------------------------------
VFP9.0
SQL code
GETDIR( ) 函数 显示 选择目录对话框 ,从中可以选择目录或文件夹。GETDIR([cDirectory [, cText [, cCaption [, nFlags [, lRootOnly]]]]])参数cDirectory :指定在“选择目录”对话框中初始显示的目录或文件夹。如果没有指定 cDirectory,“选择目录”对话框打开时,将显示 Visual FoxPro 默认目录或文件夹。 cText :指定显示在对话框中目录列列上的文本。 cCaption :指定对话框的标题。默认为 "选择目录(Select Directory)"。 nFlags :为对话框指定选项。nFlags 可以包含 0 或额外的值的组合。下表包括一些更常见的选项。 更多的信息,请参见 MSDN中的 SHBrowseForFolder 。 nFlag 值                        说明 ------------------------------------------------------------------------------------1     BIF_RETURNONLYFSDIRS   只返回文件系统目录 (物理位置)。如果用户选择的文件夹不是文件系统的一部分, 确定(OK)按钮是灰色的。2   BIF_DONTGOBELOWDOMAIN  在 tree view 控件中不包括网络文件夹下面的域名级 (例如, 我的电脑[My Computer] 和 我的网络[My Networks])。8     BIF_RETURNFSANCESTORS   只返回文件系统的祖先。如果用户选择了任何其它非文件系统的祖先,确定(OK)按钮是灰色的。16    BIF_EDITBOX             浏览对话框包括一个编辑控件让用户可以打入一个项的名称。Windows 98 及以上版本, 或 Internet Explorer 4.0 及以上 (假定选定了 shell integration 选项)可用。要求 4.71 版的 shell32.dll。32    BIF_VALIDATE            验证 editbox 内容。如果使用了 editbox, 就需要验证用户输入的内容。如果用户在编辑框中输入了一个非法的名称, 取消(Cancel)按钮变成唯一可选。该标记在 BIF_EDITBOX 未指定时被忽略。64    BIF_NEWDIALOGSTYLE      使用新的用户界面。设置该标记为用户提供一种较大的, 可调整大小的对话框。其它功能包括: 在对话框中的拖放功能, 重排序, 上下文相关菜单, 新建文件夹, 删除和其它上下文相关菜单命令。仅支持 Windows 2000 及以上。要求 5.00 版的 shell32.dll。16384 BIF_BROWSEINCLUDEFILES  浏览器对话框象文件夹一样显示文件。Windows 98 及以上版本, 或 Internet Explorer 4.0 或以上 (假定选定了 shell integration 选项)可用。要求 4.71 版的 shell32.dll。 lRootOnly 指定只显示 cDirectory 及其子目录。该参数防止向上定位到要文件夹目录。如果没有指定 cDirectory, 就使用默认目录(SET DEFAULT 的值)。 返回值字符型说明GETDIR( ) 函数返回选定目录或文件夹名称的字符串。如果没有选择目录或文件夹(选择“取消(Cancel)”、按 ESC 键或从控件菜单上选择“关闭”),GETDIR( ) 函数将返回空字符串。自 Visual FoxPro 7 开始, GETDIR() 支持两种不同的对话框。如果你提供少于三个参数, GETDIR() 返回早期版本的对话框。如果提供大于两个参数, Visual FoxPro 使用 Win32 API 中的 SHBrowseForFolder 例程来显示对话框。
------解决方案--------------------------------------------------------
?GetDir('C:\默认目录','自定义说明','窗口标题',64)