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

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-10-17 10:04
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。现在不会不知所云了吧?
Web应用在IE11里的实际使用性能 回顾2013年十个值得关注的WordPress设计主题 为什么Google眼镜注定会失败? 2013移动开发工具盘点:最火原型设计工具 2013年12月份浏览器份额:IE 11暴涨3倍 【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 TIOBE 2014年1月编程语言排行榜:Transact-SQL力挫Objective-C 夺得桂冠 IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 Amazon CTO Werner Vogels:云和SaaS正在快速风靡全球 “人类先知”Isaac Asimov 50年前的科技预测大多应验了 2014年10大Web设计趋势 Google野心:App Indexing改写应用搜索格局 Cocos2d-x,老牌引擎的新进化 Kingdom Rush创始人专访:游戏与电影元素混搭 超实用的JavaScript技巧及最佳实践(下) 盖茨和鲍尔默或成挑选微软新CEO的最大阻碍 移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 传微软拉拢厂商推双启动系统手机 用户可选Windows Phone或Android 为什么游戏领域总是“抄抄抄”! 物竞天择、百家争鸣——评OpenStack生态圈 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? jsp中怎样生成静态页面 请问:如何返回webservice类的一个或多个实例? 怎样触发另一个窗口中的javascript函数? 谁能提供一些检测内存泄露的工具或方法 如何将 FoxBase 中的数据导入到 SQL Server 中? 求助:API操作注册表出现奇怪问题 请问如何改变windows xp中的用户的登陆顺序 有问题:如何通过页面下载附件? 求助:VB生成安装文件的问题 下面的程序怎样优化?(着急) 怎么样在C++ Builder 的Form上显示文字!我不要用控件,要直接显示在Form上 200 分相送 高手请进 如图所示,固定的竖直轨道CD是光滑的四分之一圆弧,其最低点C的切线水平,半径R=0.3m.光滑水平面上,长L=2m的平板车上表面与C登高.车的左端A处放一质量m=1kg的小物块,物块与小车间的动摩擦因数 hypermesh划分的壳单元(shell63),对于两个component上的单元,可以做一个连接么? 作文 父母的奋斗史这种作文该怎么写才比较风趣.写作思路!中间我自己写最好 给出开头 境界究竟是何界?所以事物 vertify,confirm.certify之间用法有什么区别如题,例句:this result merely ____earilier american studies.填哪个,它们三者之间又是用如何应用的 脂质体 拍电镜用什么染色,即用什么负染剂 如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦.将a、b两小球分别从两轨道右侧正 核电厂设备分级中 1E的字面含义是什么?是什么单词的缩写吗? 西南地区水能资源开发条件 谁能给我一些初二物理的题目?麻烦各位大虾了 请问在hypermesh里面怎么将材料属性赋值给单元啊? 分析某地水能资源的开发条件以及降水特点及成因如何答从哪几个方面? 题目来问我,科学 秦山核电站能抗几级地震? 细胞生物学中什么叫冰冻断裂电镜技术(分值:4分) 题目来问我,科学的 hypermesh中怎么建立弹簧单元 什么是电镜冰冻蚀刻(freeze-etching)技术 AB是两个地震观测点,他们相距200千米,A测得在AB两点连线的左侧32°方向上有地震B测得在AB两点连线的方向左侧43°方向上有地震,请你根据图形,计算出震中点C到观测点B的距离 核电站与地震是否有必要担心 冰冻断裂和冰冻蚀刻技术可用于研究细胞膜内部结构,是对还是错? 螃蟹吃高粱—— (写歇后语) HyperMesh 材料属性中密度是那个单词 金属零件断裂,断口分析电镜报告说没有理解面, 爱情的最高境界是什么样求大神帮助 请教一道关于判断电势高低的题有一用均匀导线做成的正方形线框ABCD(以左上角为顶点A,右上角为顶点B),正方形的一半放在和纸面垂直向里的匀强磁场中,当磁场的磁感应强度均匀增强时,试 一些溶液在什么范围内的浓度算是稀的 入秋的高梁,老来红 什么是核电筹建处 为什么“水分子总是从水多的地方到水少的地方,即从浓度低的溶液到浓度高的溶液”?请问本质是什么?回答好我可以加很多分!这个问题困扰了我很久.请问跟什么作用力有关? 有没有英语超级好的人.马上考英语了. 俄罗斯冬宫介绍 溶液的浓度如何定义? 爱到什么程度,就是最高境界. 冬宫怎么样 东京计器油泵哪里型号最齐全?有好一点的公司吗? 高粱开花——(歇后语)求大神帮助 冬宫高度是多少米? p=s1 s2 a :b :c verilog是什么意思? 爱情的最高境界是什么啊? 冬宫的描述 verilog中b[a-:a就是一个变量.主要想对一个数的动态位数进行赋值,例如a[j:j-1]=XXX(错的,就是举个例子) cf里哪个区人最多!哪个区好点? 冬宫什么形状 在Verilog中D=#7{A,B, 一位同学看到闪电开始计时,经3秒后听到雷鸣声,则打雷处距该同学多远?这种问题需要考虑光的传播速度吗? 女的能活多少岁拜托各位了 3Q verilog中a 爱的最高境界究竟是什么? ug中的面相交是什么意思 要如何处理 活泼金属氧化物和金属氧化物的区别? 在同一地点看到闪电之后三秒听到打雷,问打雷地点距离多少? 一辆车在公路上匀速行驶,一人看见路程碑的数字是AB(A、B是1—9的数字,单位是:千米)1小时后他又看见一块路程碑的数字是BA.又过1小时,再看见一块路程碑的数字是A0B(0是数字0).问:汽 verilog中a+:b是什么意思 谁能介绍下confirm用法 质量为2 kg的飞行物,在距地面高度为 19.6 m处以速度为 1=5 m/s水平飞行,质量为 3 ×10-2 kg的子弹以水平速度 2= 300 m/s击中飞行物, 1与 2沿同一直线,且击中后子弹没有穿出,不计空气阻力,试求 ①将眼镜甲放在蜡烛与凸透镜之间,光屏上原来清晰的像   变得模糊;只将光屏远离透镜移动时,又能在光屏上看到烛焰清晰的像.②将另一只眼镜乙放在蜡烛与凸透镜之间,光屏上原来清晰 核电,核能发电站,1E级与非1E级指的是什么,有什么区别?核电,核能发电站,1E级与非1E级指的是什么,有什么区别? 为什么叫做溶融状态 蜡烛在氧气中燃烧化学方程式 埃及再次审理穆兄会领导人美国百年交响名团将首次访华巴西劫匪入室抢值钱漫画叙利亚副总理称没有掌握自己被免职消息美国最新型隐身驱逐舰下水 因价格太贵俄罗斯否认疑借助俄礼物窃听G20代表华为称澳政府针对国家宽带网项目未做最国际新闻早报:以色列释放第二批26名迪拜将孔明灯列为危险品:致火灾商铺将中国承建高速路给斯里兰卡带来的社会和泰国或明年起征收入境税 外国游客超三叙利亚副总理贾米勒被解职 为主要反对横跨欧亚大陆 土耳其海底隧道正式启用首条横跨欧亚海底隧道启用 可乘火车从日警方查获“大麻办公室” 现场发现1盘点打医生事件:美请FBI培训 日需埃及武打冠军因支持前总统穆尔西 金牌日本一法学系准教授因涉嫌携带毒品被逮美众议院情报委员会就窃听事件举行听证分析称农业补贴政策负面效应渐显 需进温州已婚男爱慕邻家女子遭拒 拐骗其女这里曾发出中国第一份抗日宣言(光辉历唯实唯思方能得出己见(学术信息)长征七号运载火箭首飞成功贫瘠的黄土咋变出了“三金”?全军实战化军事训练座谈会在京召开无言的战友(定格)央行回应英国脱欧一瞬间的本能 十三年的坚守图片报道全力以赴信念与意志的考验(军史钩沉)十万将士出“抗大”(光辉历程)红安的眼睛 (组诗)(红色家园·党旗齐心协力 重建家园高考志愿开报 29日20时截止酷热街头搜索引擎应醒目区分付费信息高温持续 雷雨明来通讯:未停的“倒数”中俄元首发表联合声明 呼吁加大打击网张稀哲梅开二度闪耀\"京沪大战\"
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘