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

pursue 2000-01-29 11:11:00
请问怎样不使用通用对话框控件而直接调用Open File对话框?
我不想为了一个Open File对话框而加进这么大的一个Ocx控件.
我找到了API:GetOpenFileName,其中还有一个Type,可是不论我怎么试,都无法让Open File 对话框显示出来.我想我一定是忽略了某个API,请高手指点.
...全文
151 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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);

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧