说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-05-24 01:00
HTML文档下载 WORD文档下载 PDF文档下载
如题!
兄弟,还是不要用这个讨厌的东东了,用API吧。


Attribute VB_Name = "basFileDialogs"

'-------------------------------'
' Ultrasoft Development Library 2.0 '
'-------------------------------'
'       API File Common Dialogs '
'                   Version 1.0 '
'-------------------------------'
'Copyright ?1992-2001 by Ultrasoft Inc.. All Rights Reserved

'Date Created:
'Last Updated:

Option Explicit
DefInt A-Z

Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_EXPLORER = &H80000
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_LONGNAMES = &H200000
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_READONLY = &H1
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHAREWARN = 0
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHOWHELP = &H10
Public Const OFS_MAXPATHNAME = 128

Public Const OFS_FILE_OPEN_FLAGS = OFN_EXPLORER Or OFN_LONGNAMES Or OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_NODEREFERENCELINKS Or OFN_HIDEREADONLY
Public Const OFS_FILE_SAVE_FLAGS = OFN_EXPLORER Or OFN_LONGNAMES Or OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST

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

Public OFN As OPENFILENAME

Public Declare Function CommDlgExtendedError Lib "COMDLG32.DLL" () As Long
Public Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public Enum FileDlgModes
 fdmOpenFile = 1
 fdmSaveFile
 fdmSaveFileNoConfirm
 fdmOpenFileOrPrompt
End Enum


Public Function SelectFile$(OwnerHWnd As Long, Optional Title$ = "", Optional Filter$ = "All Files (*.*)|*.*", Optional FilterIDX As Long = 0, Optional DefFile$, Optional DefPath$, Optional DefExt$, Optional ByVal FileMode As FileDlgModes = fdmOpenFile)
 Dim R As Long, SP As Long, ShortSize As Long, Z As Long
 With OFN
  .lStructSize = Len(OFN)
  .hWndOwner = OwnerHWnd
  .hInstance = App.hInstance
  .lpstrFilter = Replace$(Filter$, "|", Chr$(0)) & Chr$(0)
  .nFilterIndex = FilterIDX
  .lpstrFile = DefFile$ & String$(257 - Len(DefFile$), 0)
  .nMaxFile = Len(.lpstrFile) - 1
  .lpstrFileTitle = .lpstrFile
  .nMaxFileTitle = .nMaxFile
  .lpstrDefExt = DefExt$ & Chr$(0)
  .lpstrInitialDir = IIf(Len(DefPath$), DefPath$, CurDir$) & Chr$(0)
  .lpstrTitle = Title$ & Chr$(0)
  If FileMode = fdmSaveFile Or FileMode = fdmSaveFileNoConfirm Then
   .Flags = OFS_FILE_SAVE_FLAGS
   If FileMode = fdmSaveFile Then .Flags = .Flags Or OFN_OVERWRITEPROMPT
   R = GetSaveFileName(OFN)
  Else
   .Flags = OFS_FILE_OPEN_FLAGS
   If FileMode = fdmOpenFileOrPrompt Then .Flags = .Flags Or OFN_CREATEPROMPT
   R = GetOpenFileName(OFN)
  End If
  If R Then
   SP = InStr(.lpstrFile, Chr$(0))
   If SP Then .lpstrFile = Left$(.lpstrFile, SP - 1)
   SelectFile$ = Trim$(Replace$(.lpstrFile, Chr$(0), ""))
  Else
   Z = CommDlgExtendedError()
   If Z Then MsgBox "不能获取文件。" & vbCr & vbCr & "CommDlgExtendedError 返回 " & Z, vbCritical
  End If
 End With
End Function
不知所云。
这是理由API调用文件打开与保存常规对换框。
microsoft common dialog control里面最常见的东东。当然还有颜色选择、字体、打印、页面设定、打印机设定等等。这仅仅是最常见的文件打开与保存例子程序。我的意思是与其用这么膨大的控件,倒不如用API。现在不会不知所云了吧?
这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 是真的 诺基亚真有可能推Android手机 如何打造IE10的指尖触碰式用户体验 SUSE全球OEM联盟总监:为何SAP HANA只选择SUSE? 推荐2013年最佳PHP开发框架 Patrick Wyatt:代码没问题 程序却有bug? NoSQL的可靠性及扩展操作 最新Skype加密技术:“无声”通话能躲过FBI监听 谷歌锁死SDK,能阻止Android碎片化吗? KitCam团队专访:为应用做加法也能雄踞榜首 谷歌哭了:Replicant 4.0 SDK发布搅乱大局 忍者神龟与禅宗启示:如何突破移动广告困境 Linux会是更好的游戏平台?暴雪是这么认为的! 新型恶意软件瞄准Java服务器 AWS被纳为“战略物资”市值或可达到300亿美元? 十张图带你入门Map/Reduce 低端Android野心,Intel发布Atom Z2420处理器 淘宝网的技术发展史(一)——个人网站时代 看Pinterest如何通过架构变化将EC2成本降低了62% 内容vs渠道:法国电信商Free叫板Google 让网站成为应用:Firefox OS掀起革命风潮 屌丝伞兵的逆袭:4人+盛大+远程+最佳手游 新年头彩:Chartboost喜获1900万美元融资 高富帅跻身移动领域 福特开放车载声控API 传低端iPhone最低只要99美元 你怎么看? 辉煌不再 Encanto超级计算机可能被拆分“出售” 知己知彼 企业应用移足云端必须清楚的10大方面 求救,CMPP中的Connect消息,用于计算MD5的AuthenticatorSource的结构是什么样的啊。 javascript惹的祸?我的网页上的字不能选择。所以也不能复制。   如何对RichEdit的文本实现向前查找? 请教:有关模板类的一个问题 怎么破解这个字符串。。。 监控用户在线情况 Delphi中消息队列的建立,消息的创建、发送和接收??? 看谁是真正的高手。对于usercontrol?怎样把透明usercontrol上的shape拼出的图形传给外面的image引用。 请问用Jscript如何连接字符串? 紧急求救:关于如何用C#使用COM组件 一、■--无连接的纪录集合--■ 技术参考(我们不是为了编程而编程,编程是一种享受) Delphi中消息队列的建立,消息的创建和发送 各位老大,下个星期交活,麻烦大家看看我下面的问题!!!就是那个帮助文档的! 如何写对其他服务器上面的EJB的资源引用? 不知道哪儿的域名注册和空间租用比较便宜??? 发布的问题 见很多网站上都将浏览器的右边的滚动条变了颜色,是怎样做出来的? 我用Delphi在本地建立了一个专用消息队列,但不知道该如何创建一个消息并将它发送到 关于动态窗体的问题 我要怎样实现在bbs中的,图片和文字同时上传到服务器?谢谢! dxDBGrid在Customer AutoFilter 对于字符串有无包含的功能,就象sql语句中的like功能? 谁帮我解决满分相送,关于统计图表的问题 请教各位,奇怪的问题 求版主别删除!尊敬的大侠:您好!我将要去应聘机房管理和维护,网络、网站、网页制作、管理、维护人员。他们可能会问什么问题(技术,非 请教一道SCJP的考题,谢谢。 有谁能帮我啊?救命啊! Delphi运行的时候,怎样用一个已经弄的的TForm作为模版,新创建的TForm对象可以继承它? 怎么让汉字和ASC字符同时显示? 一穷二白的程序员,我们该如何定位自己的人生目标,如何规划自己的职业生涯,如何快乐而充实的的渡过人生中的每一天!? 有没有办法,把窗体上的“关闭”去掉! 大家讨论: ICQ打开后, 会将屏幕 "硬" 是挤出一块来给自己放界面, 将其他程序 "压扁" 了, 看起来很霸道, 你认为是怎么做的呢? UP有分哟. 现我的Win2000是SP2,听说现己有SP3请问中文版的在那下载。 java连接DB2数据库问题 我想在delphi里使用一个vc做的active dll,应该怎么做?我是新手,请各位大侠多多指教。 请问:treeview中怎样知道当前selected的是根节点? 小弟刚来,问一个大家必做的问题,请问怎么给别人送分啊? 高手请进(高分相送) 在dns里面不能添加主机纪录,提示访问被拒绝,回答满意就给分,看起来简单哦? 求助(关于网页制作) 在线急盼!!! 是不是星多的就是高手,星少的就是菜鸟? 使用PreparedStatement向表插入数据的时候,如果一个字段是自动增长的,应该怎么办呀??? 大侠们快看我的问题呀,焦急等待中。。。。。。。 在职软件工程硕士是如何培养的?课程设置如何?回答必有分! bcb6 update2 已经出来啦,有谁知道那里有下,麻烦告诉一声! 会javascript的可以进来看看。移动层的问题。帮我看看哪出了问题? 一个菜单新手问题.请大侠帮忙. 关于如何调用vc编辑器 关于调用EJB的问题,高手请帮帮忙~~~~~ 自动跳转页面问题 帮忙看看这些英语短文该怎么修改一下 有加分哦~!复试英语面试的短文 英语高手帮忙修改一下啊 答得好还有加分哦~!谢谢各位高手~!2.考研原因 (reasons for my choice) There are several reasons. ,First I 珍珠鸟读后感题目叫什么好? 20年后回故乡,怎么写啊,要优秀的,可以谢景色,也可以稍微模仿桂花雨第二单元作文 麻烦你们哪位帮我修改一下这篇英文作文,I Love My Homeland —HaiNanI Love My Homeland —HaiNan,which lies in the south of China.She is surrounded by the sea.She has fresh air,which can make you relaxed.She is a beautiful heaven that 画蛇添足全文翻译 简练 概括 羚羊木雕 内容有急用 英语翻译画蛇添足 .古代楚国有个贵族,祭过祖宗以后,把一壶祭酒赏给前来帮忙的门客.门客们互相商量说:“这壶酒大家都来喝则不够,一个人喝则有余.让咱们各自在地上比赛画蛇,谁先画好, 她的本意?谢谢众网友,如果用来比喻爱情呢?又是怎么解释能?望大家评出两方面的结实答案, 概括羚羊木雕 英语翻译快 nhiohohfoO;HIOW;HFOIWHFOIHWO好哦和我OHOHROHO;E哦iehgoihgoiiohoghsoshgiosg 怎样理解人格的含义 羚羊木雕主要内容 关爱老人的综合实践活动,些计划什么的大神们帮帮忙 求一本名著的读后感,不少于800字 跪求现代文品读文言文点击六上十九藏羚羊跪拜的全部答案 关爱老人的计划 学霸在哪里. 现代文品读文言诗文点击六年级上2008年新版答案急求现代文品读文言诗文点击六年级上:中国古代寓言四则的拓展阅读(一)(二)答案, 口字旁加个无的拼音 将标准状况下2.24HCL气体全部溶于水中,配置得到250ml溶液,计算该盐酸的物质的量的溶度.若该盐酸密度为1.2g/cm3,求词演算的质量分数,求详解,尤其是最后一问! 绿山墙的安妮读后感600字 题目为《我的好朋友》300字作文 求各位给点意见,自然地理到底难不难学!我现在高一马上要选科,我理科狂查,肯定选文科,但是在纠结地理还是政治.我地理主要自然地理很差,自然地理到底难不难学阿!还听说史地班风气不好.. 小学作文: 马上就要过年了,贴春联,包饺子,放鞭炮……真是热闹非凡,你们是如何过春节的?把你们那里的过年习俗写下来吧.(450字左右) 好的+悬赏如果你不会,就请你不要回答.谢谢合作 如何把“画蛇添足”翻译成英语呢? 关于雨的作文600字,最好自己写,但是只能写一个季节 圆明园读后感50字 读了 (珍珠鸟)和(枯叶蝴蝶) 这两篇课文,你有什么感受? 珍珠鸟的读后感. 圆明园读后感150字 《桂花雨》这篇课文中桂花给“我”带来了哪些快乐? 珍珠鸟读后感500字, 圆明园读后感300字 珍珠鸟的读后感作文哦 第15课这片土地是神圣的小练笔怎么写 1.在中秋节中你可能看到的天文景观是< >A 北斗七星的斗柄朝东 B 发生月食现象 C 发生日食 D 看到一个弯弯的月牙. 2.人们常把新疆的主要地形特征概括为”三山夹两盆”,其中”三山”是 写童年趣事(仿照人教版3年级11课桂花雨课文) 第十五课《这片土地是神圣的》的选做题咋写? 在中秋节时你可能看到的天文景观为什么没有 一个弯弯的月牙和发生日食 写珍珠鸟读后感 急求一篇以“自信自立自强感恩诚信”为话题的文章 “题目自拟” 字数不少于1000 刚申请百度分数少啊 中秋节旅游景点推荐,谁有一些好的中秋节旅游景点,请给推荐一下吧. 语文五年级上册第7课桂花雨:说说桂花给我带来了哪些快乐 求一篇关于感恩的文章,字数在2000到5000,内容积极向上. 中秋节的景色描写!快我需要一篇比较好的中秋节对月亮的景色描写 珍珠鸟读后感 高一地理.很多选择题.求学霸! “口丫”和“口约”读什么音?我用的微软拼音输入法 五年级课文桂花雨的内容“中秋节前后,正是故乡桂花盛开的季节.小时候,我无论对什么花,都不懂得欣赏.父亲总是指指点点地告诉我,这是梅花,那是木兰花……但我除了记些名字外,并不喜欢. 火车票余票--这个符号是什么意思 我要写作文!《品读书香,歌颂祖国》450字作文谁有?急! 好的话,追加100分!两个主题要连在一起哦!!!!!!!!!!!!!!!!!!!!!!!!!! 由于《伯牙绝弦》这个传说,人们把真正了解自己的人叫“知音”.对还是错? 以月为意象结合自己的心情抓住月亮给你的感受写一篇抒情文章 火车票官网购票时*的符号是什么意思 伯牙绝弦知音什么意思 以我在祖国的怀抱中成长为题,写一篇(抒情或散文的作文)或我是一只小小鸟对了有5分··好的还能加分啊·····给多几篇···去比赛的啊········ 从《桂花雨》这篇课文中找出点明课题的句子,写下来.(本篇课文在五年级上册第7课) 如何关怀老人 以“悟”为题目,写一篇议论文或者抒情的文章在人生中,每天每件事物都可能引发你的感想,使你悟出一些道理,在这里,就写出你的悟吧! 人教版五年级上册桂花雨读后感人教版五年级上册桂花雨读后感急.........急..........
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘