繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 使用Windows API函数显示打开文件对话框
- ASP.NET
- ADO+ 引导数据种类的演变(转自 ms 一)
- C#抢鲜快报之FAQ20
- 通过指定IP地址得到当前的网络上的主机的域名
- 网上追捕(很多实用的port)
- asp+中的发送者是什么意思
- 一个完整的网上追捕的原程序
- C#里操作时间的例子!
- 查看主机的内存使用情况
- asp+中是如何连接数据库ado+的
- 一个用c#写的扫描asp源码漏洞的应用程序
- 一个用c#写的扫描asp源码漏洞的应用程序(续)
- 两个获取http页面的c#函数
- asp.net高级教程（一）---asp.net , 还是asp+ ？
- asp.net高级教程（二）--- 转换编程思维
- asp.net高级教程（三）---对象
- asp.net高级教程（三）---实战篇
- asp.net高级教程（五）---实战篇(中)
- C#消息队列应用程序 -1
- C#消息队列应用程序 -2
- 使用 ASP+ 列表绑定控件（上）
ASP.NET 中的 使用Windows API函数显示打开文件对话框
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 125 ::
收藏到网摘: n/a
平时使用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
评论 (0) All
