【叶帆开源区】定制公用对话框(如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

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

欢迎大家讨论,欢迎大家开源
...全文
669 点赞 收藏 37
写回复
37 条回复
crossbow 2004年12月17日
up
回复 点赞
thisme2401 2004年12月17日
up
回复 点赞
boyzhang 2004年12月16日
gz
回复 点赞
agua06 2004年11月26日
顶~
回复 点赞
熊孩子开学喽 2004年11月25日
什么好东东?也不通知一下?瞧不明白也得留下个名字!
回复 点赞
无言的苦衷 2004年11月20日


楼主是好人,大家帮忙支持楼主。
回复 点赞
flc 2004年11月19日
支持!!!搂主
回复 点赞
Winters_lee 2004年11月16日
学习ing
回复 点赞
acev 2004年11月06日
mark & up = markup
回复 点赞
ac669 2004年11月04日
好东东!
回复 点赞
intocsdn 2004年10月30日
回复 点赞
springswallow 2004年10月14日
签字->盖章->复印->收藏
回复 点赞
kingos 2004年10月10日
回复 点赞
vbfunner 2004年10月04日
3KS搂猪阿
回复 点赞
jordi2014 2004年09月30日
支持楼主!
回复 点赞
叶帆 2004年09月30日
up
回复 点赞
szmickylee 2004年09月30日
回家再试一下!
感谢楼主!!
回复 点赞
叶帆 2004年09月22日
up
回复 点赞
wumylove1234 2004年09月20日
LoadPicture时没有错误处理.好像还有其它的,昨天有试,今天忘了.不好意思了:P
回复 点赞
alexmayer 2004年09月20日
UP!
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2748

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告