【叶帆开源区】定制公用对话框（如photoshop的文件打开对话框）

博客专家认证

业界专家认证

2004-09-18 10:30:55

可以定制公用对话框，就像photoshop等软件，可以在对话框里预览文件内容。本源码提供了所见即所得的方式，可以很方便向公用对话框中嵌入自己的预览区或处理区

【程序界面】--------------------------------
http://www.bjjr.com.cn/yefan/pic/commdlg.jpg
【源码说明】--------------------------------
这里要特别感谢zyl910，这个源码就是在zyl910的源码基础上进行改进的，

zyl910年龄小，可能力令人佩服，我的好多程序就是借鉴了zyl910的源码而开发成功的。

难得可贵的是zyl910主张开源，提供了非常多有价值的源码－－这里再次感谢zyl910！

【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】－>定制公用对话框

【部分源码摘要】--------------------------------

'*************************************************************************
'**模块名：frmMain
'**说明：YFHome 版权所有2004 - 2005(C)
'**创建人：叶帆
'**日期：2004-09-18
'**修改人：
'**日期：
'**描述：定制对话框示例
'**版本：V1.0.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**函数名：cmdOpen_Click
'**输入：无
'**输出：无
'**功能描述：打开对话框
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-09-18
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdOpen_Click()
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Access Files (*.bmp, *.jpg)", "*.bmp;*.jpg")
strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT")
strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")

txtFileName = YFCommDlg(Me.hwnd, frmBar.fraBar.hwnd, , strFilter)
End Sub

－－－－－－－

'*************************************************************************
'**模块名：frmBar －－【一定定义为这个名字】
'**说明：YFHome 版权所有2004 - 2005(C)
'**创建人：叶帆
'**日期：2004-09-18
'**修改人：
'**日期：
'**描述：对话框嵌入面板处理程序
'**版本：V1.0.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**函数名：GetFile
'**输入：strFile(String) - 文件名
'**输出：无
'**功能描述：处理选中的文件名
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-09-18
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Public Sub GetFile(strFile As String)
txtFile.Text = strFile
If Dir(strFile) <> "" Then
showPic.Picture = LoadPicture(strFile)
End If
End Sub

'*************************************************************************
'**函数名：cmdFile_Click
'**输入：无
'**输出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-09-18
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdFile_Click()
MsgBox txtFile.Text
End Sub

－－－－
模块源码略－－请下载源码

欢迎大家讨论，欢迎大家开源

...全文