使用Windows API函数显示打开文件对话框
来源:互联网 发布:淘宝日本菜刀 编辑:程序博客网 时间:2024/05/01 12:27
平时使用VB编程时需要用到"打开文件"类似的对话框时我们一般需要添加一个commondialogue的控件。使用这个控件能完成如“打开”,“另存”,“颜色”,“打印”等众多的功能,但是如果一个功能很简单的程序,使用这个控件却也造成了一些不必要的麻烦。一个是需要安装,再个增加了发布文件包的体积。
下面介绍如何使用Window API显示一个“打开”的对话框:
General.bas:
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
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
在调用对话框的按钮的click事件输入下面代码:
Private Sub FileOpen_Click()
Dim ofn As OPENFILENAME
Dim rtn As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "所有文件"
ofn.lpstrFile = Space(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = App.Path
ofn.lpstrTitle = "打开文件"
ofn.flags = 6148
rtn = GetOpenFileName(ofn)
If rtn >= 1 Then
msgbox ofn.lpstrFile
Else
msgbox "Cancel Was Pressed"
End If
End Sub
- 使用Windows API函数显示打开文件对话框
- windows api打开文件对话框
- Access利用Windows API打开文件对话框
- QT 用Windows的API函数,调用打开方式对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- 使用SHBrowseForFolder函数打开文件目录对话框
- C语言利用Windows api创建文件打开对话框模板
- VBA中使用Win API打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- vba使用win32 API(GetOpenFileName )实现打开文件对话框
- java实现精确的"四舍五入"
- [VB开源]KillIt :ASP/COM+组件开发辅助软件
- datalist我的示例
- [SCM] 关于BUG以及BUG的跟踪管理
- [SCM] CVS 使用点滴记录
- 使用Windows API函数显示打开文件对话框
- [SCM] CVS开发环境搭建
- kaixuele
- 图片
- 《金刚般若波罗蜜经》
- 《般若波罗蜜多心经》
- 使用xsl筛选记录
- 由年度IT薪酬统计看存储岗位升温
- SQL查询语句优化的一点