请问怎样不使用通用对话框控件而直接调用Open File对话框

2000-01-29 11:11:00 240 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

abap中方法file_open_dialog的使用 abap文件打开方法file_open_dialog的使用阅读详情

请问怎样不使用通用对话框控件而直接调用Open File对话框?
我不想为了一个Open File对话框而加进这么大的一个Ocx控件.
我找到了API:GetOpenFileName,其中还有一个Type,可是不论我怎么试,都无法让Open File 对话框显示出来.我想我一定是忽略了某个API,请高手指点.

...全文

如何使用open系统调用 open函数是操作系统提供的API中的其中一个。操作系统向外围的应用程序暴露API的目的在于向外界提供其管理的各种功能；至于都应该暴露哪些功能以及各种功能的接口应当如何约定，则有不同的规范协议，譬如：SVr4、4.3BSD、POSIX.1-2001等等。open函数向外界提供了：打开或创建一个文件或设备的功能。 open函数阅读详情

pursue

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

Venne 2000-01-29

打赏
举报

对，你需要设置OPENFILENAME类型里的几个较重要的东西是；大小，风格，所有者句柄，初始化目录和过滤器你应该知道，如果你对其它的想要更多的了解，可以找MSDN看一看。最重要的是如果你没有设置这个类型的大小，它将不工作。

Private Sub Command1_Click()
Dim Mystructure As OPENFILENAME
Mystructure.lStructSize = 76
Mystructure.flags = OFN_EXPLORER
Mystructure.hwndOwner = Form1.hWnd
Mystructure.lpstrInitialDir = "C:\"
Mystructure.lpstrFilter = "*.TXT"
Dim i As Integer
i = GetOpenFileName(Mystructure)

End Sub

在另一个模块里加上API的声明。
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

WHQ 2000-01-29

打赏
举报

C的用法：
OPENFILENAME ofn;
memset(&ofn, 0x00, sizeof(ofn));
ofn.lStructSize = sizeof(ofn);
ofn.hwndOwner = hYourWnd;
ofn.hInstance = hYourInstance;
ofn.lpstrFilter = lpFilter; // 文件类型过滤器,每个过滤器由两部分组成——描述部分及文件类型（扩展名）——这两部分由ASCII为0的字符分开，多个过滤器之间也由ASCII码为0的字符分开，过滤器最后由两个ASCII吗为0的字符来标识其结束
ofn.nFilterIndex = 0; // 对话框打开时显示第一个过滤器
ofn.lpstrFile = NULL; // 缺省时选择的文件名，可为空
ofn.nMaxFile = 0; // ofn.lpstrFile所指缓冲的大小
ofn.lpstrFileTitle = lpFileBuffer; // 指向存贮文件名部分的缓冲区，可为空
ofn.nMaxFileTitle = 260; // lpFileBuffer缓冲区大小
ofn.lpstrInitialDir = NULL; // 打开对话框时所在的路径
ofn.lpstrTitle = "打开文件"; // 对话框标题
ofn.nFlags = OFN_FILEMUSTEXIST and OFN_PATHMUSTEXIST and OFN_HIDEREADONLY;
ofn.lpstrDefExt = "txt"; //缺省扩展名

if( GetOpenFileName( &ofn ) == 0 )
MessageBox(hYourWnd, "获取文件名失败", "Error", MB_OK and MB_ICONERROR);

请问怎样不使用通用对话框控件而直接调用Open File对话框

相关推荐