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

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-08-18 05:35
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。现在不会不知所云了吧?
微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 全球最杰出的14位程序员 Microsoft、RedHat、IBM、Docker等公司加入Kubernetes社区 Intel携手三星、博通等 建立物联网联盟OIC 一周消息树:微软半年内将终止对Win 7、Office 2010 SP1等产品的支持 深度神经网络DNN的多GPU数据并行框架 及其在语音识别的应用 浪潮通软GSP将打造开放平台 吸引更多ISV加入生态系统 国外安全产品再遭信任危机 安全产品国产化步伐加快 最终幻想XIV的重生--SQUARE ENIX《最终幻想14》制作人吉田直树介绍 如何打造百万级自然增长的微信HTML5应用 听邵海杨聊聊1000+台服务器背后的故事 借助Facebook、Twitter等社交平台API打造超炫酷的那些应用 Unity中Shader的开发运用实战详解,开放报名! 我从独立游戏开发学到的6件事儿 果断Mark!Searchcode——源代码搜索利器 《近匠》图灵机器人:App和移动硬件的智慧大脑 极路由发布HiWiFi OS及应用开放平台 Loom SDK框架:命令行快速开发跨平台2D游戏 安全管家Q2移动安全数据报告:窃取隐私最多 Project Adam vs. Artificial Brain,微软与谷歌角力人工智能 “微信公众平台优秀开发商”征集评选活动正式启动 移动数据库新疆界:开源、Swift、可穿戴... Chromebook侵蚀微软商用PC市场,成绩喜人 2014微信开发者大会议程公布 8月1日前购票8折优惠并赠书 四火的唠叨:也谈谈全栈工程师 图形化与集成趋势 协同软件致远发新品V5.1 跨平台开发如何事半功倍 Xamarin推出免费培训 《近匠》上海庆科:海尔智能家居背后的云方案 如何通过程序控制系统中的另一个程序界面 不使用dataset,能不能把DataGrid初始化成这样? 分配的内存是放在heap好还是放在stack上好???? 请大家帮帮忙,关于确定文件是否存在的问题。 高分求两个文件:分别为tlbimp.exe和excel.dll 50分一个 求教flash/存储卡开发 急救!如何再VB中把罗马数字和阿拉伯数字互相转换! dataGrid问题 在线等待 win2k server配了ad和dns后新开了很多端口,它们都是干什么的? 我的cb6怎么了?? 那位大哥能给我一个qq号?1000分酬谢? JBuilder7+Weblogic7+SQLServer2000的一个简单问题! 请问哪里有vfp的电子书? 3com Switch 1100 不能用了,怎么处理 急:怎样用crontab生成sa文件记录每天机器的耗内存情况? usb的通信问题,进者有分! 如何让WIN 2000 Prefession 装上服务器端 键盘delete怎么调用? 用Asp怎么得到用戶的機器名? 《Java与模式》一书作者的专栏 各位长老,如何修改本机的网关并让其立即生效? 关于数据表查询的问题? 创建二叉树及遍历的问题 高手请进! 研究生到底上些什么课,偶想知道,好明确自己的方向,请知道的朋友来谈谈。 如何在ASP.NET中连接PROGRESS数据库? VC中如何调用VB写的 DLL中的函数? 如何在程序背景中添加背景图片? postgreSQL中文问题 那里有informix的书下载 高分求助 MPEG4的视频问题 想为TListBox组件添加水平滚动条,有什么办法 在C#中,与CHTMLView类对应的控件是什么? 我有个小的30万象素的数码照相机,能用vb编程控制它自动照相么? 为什么我编译最基本的java文件总出错,告诉我import javax.servlet.http.*包 在linux下安装应用程序 关于串口的疑难问题 怎么连接数据库啊 请问如何用setfilter检索日期型数据 谁熟悉mpeg4 Audio? 怎么实现在界面上画网络拓补图!!!??? 一个关于企业上网的问题--高分求教 请问各位大哥如何屏蔽掉不想让此IP访问特定的网页? 厦门地区等待程序员办证通知的朋友,谁先知道具体时间请公布! 我调用数据库中的数据时候出现问题了 菜鸟提问! 串口问题 高分求两个文件:分别为tlbimp.exe和excel.dll 50分一个 串口问题 有谁知道HSV和RGB两种颜色模式的转换公式? 关于照片显示,请大家讨论 这是一题三重积分计算 Humpty Lock和Dumpty Key哪里有守护甜心亚梦和几斗的,杭州地区的 PPT上发标注重点,怎样在重点字上画出红色圆圈?教一下~谢谢啊!~PPT发给别人的时候要标注红色圆圈~~怎么标注? 怎么使用标注框.本人菜鸟,要保存之后发给别人还能看到红色圈圈的那种~~ 想图 ∫∫∫(x^2+y^2+z^2)dxdydz,区域是椭球面x^2/a^2+y^2/b^2+z^2/c^2=1的内部 钢的导热率是温度越高越大还是越小 PPT自选图形旋转后 文字也旋转了 怎么把文字正过来 鱼有鼻子吗?没有空气 什么材料的导热性能会因温度而变化想问下有没有这样的一种材料,在高温的条件下导热性能优良,而在温度低的条件下,导热性能又比较差. 陶侃惜谷看出陶侃怎样的政治主张?如题 鱼有鼻子吗?用处是什么?有鼻子吗?用处是什么?我家就有这种金鱼. 导热硅胶随着温度变化吗 急.辩论赛“响鼓也需重锤敲”, 这条长着猪鼻的是什么鱼? 宇宙中的大多星球为何是完美的球体?在宇宙中 有数不清的星球 什么木星 水星 火星 它们的形状大多居然都是完美的圆形 为什么?是怎么形成的? 桃树上的树脂怎么做菜 怎样去除助听器的电流声 一些关于鱼的例子怎么说in english,是some examples for还是about 桃树有··树脂?咱家楼下的桃树树干上长了大大小小的结晶体= =橙黄,浅黄的都有,有点像琥珀那种 咱妈说是桃树分泌的油.所以问问呢,这是啥东西~用来干什么的? GB和Gb怎么换算? 用“木”和“鱼”写个故事. 我家桃树为什么出了好多树脂?还有桃树上的桃子将要成熟时就会烂掉?这是为什么啊? 植酸与BTA苯骈三氮唑可以混溶吗? 求故事 鱼 渔授人以鱼,不如授人以渔.给整个故事. 熟鸡蛋撞生鸡蛋,为什么熟鸡蛋先碎 地球是圆的,四周都是包围,那为什么水没有流出到宇宙去 我想利用发动机转速来带动车轮转动,请问怎么计算转速!比如 轮胎直径是70,发动机转速在2000转的时候我想利用发动机转速来带动车轮转动,请问怎么计算时速!比如 轮胎直径是70,发动机转速在 he tried hard but couldn't____the reason why she kept silence at the meetingAlook for Bfind Cfind out Dlook after 世界上唯一用鼻子呼吸的鱼类是? 飞机起飞前在地面行驶,是靠轮胎转动还是靠引擎的推力? She couldn,t help thinkingabout the matter成分分析 ()行下效,()火通明,()蒸火烤 发动机转速不变,把车轮掉在空中的转动速度和在路上的转动速度一样吗?如果不一样哪个比较快?原因?我提问车子吊在空中和陆地上哪个的移动速度快主要就是为了了解摩擦力究竟会减速还是 血浆中的水来自哪?为什么? 1..大行一火蒸 不下漏通火 掉效万明烤 猜一种昆虫( ) 2..角天头树广 天入有红人 涯地尾花稀猜一城市( ) 还有 把 省略号里的 添上(省略号添上的字数和下面的字数一样)谢了! 女高音歌唱家的声带是宽还是窄? 内能转化为机械能的是1.子弹打入墙中2.火箭发射后,在他进入轨道之前的运行过程3.刀在石头上被磨得发烫4.篮球撞到地面上又被弹回来 就是譬如气密性检验的原理,有关利用压强来实现的化学实验操作 key&lock什么意思 take we kiss and lock(er) up. 最近天兔台风走向 the key to the lock的意思 陶侃是一个什么样的人 求解一道三重积分∫∫∫ Z dV,以Z=4 和 Z=X^2+Y^2为边 有谁知道硅橡胶各个温度段的标准导热率,最好是12度,13度,14度这三个温度段的导热率 守护甜心中Humpty Lock和Dumpty Key的中文是什么就是亚梦的锁和几斗的钥匙叫什么 鸟鸣涧解释 现在发动机转动系机械效率最高能到多少 守护甜心里的Dumpty key和Humpty (翻译成中文) 两个12V电池正负直接反接后会有什么后果?A-B间的电压是多少?两个12V电池正负直接反接后会有什么后果?希望用心人能从能量、电位、电子移动、电场等微观角度帮我分析一下. 什么叫转动频率 《守护甜心》中的Humpty Lock和Dumpty Key~它们结合之后有什么作用?也就是说,解锁之后会怎么样?因为我是最近才听同学讲《守护甜心》很好看,才看了没几集... 鸟鸣涧中闲用的哪里好 发动机过热会降低发动机充气效率,而且会使发动机()A.点火困难 B.燃烧迟缓C.早燃和爆燃的倾向加大 D.功率下降 怎样做烤羊肉串 有人需要戴助听器才能听见声音,其原因是A、他的听觉神经坏了 B、他的鼓膜破了 C、他的听小骨坏了 D、他的大脑听觉去坏了 急求一篇英语演讲稿或作文,求一篇以“How differently do you think a harmonious family and an inharmonious one will influence their children?”为题的英语演讲稿或作文,200-300字左右, 怎么做烤羊肉串? 求解一道三重积分的题 take we kiss and lock up.my fair PPT怎么在文字外面加圆圈想对一个字在最下边加以解释,怎么在这个字后面打一个带有圆圈的1啊? 好声音姚贝娜有望与导师那英同登马年春英国王储查尔斯不急于登基 忧加冕成“外媒:斯诺登握有美国针对他国情报活动韩国军警联合实施独岛防御训练 以抵御奥巴马顾问称监控门对美与盟国关系构成外媒:斯诺登握有美国针对他国情报活动英国王储查尔斯不急于登基 忧加冕成“联合国将向叙利亚民众提供28.6吨紧安倍晋三自曝吸烟史 称未考虑被动吸烟安理会谴责马里特派团遇袭事件 吁迅速默克尔促美签不监控协定 但不中止美欧亚马孙森林4年发现441个新物种加拿大育空地区寻求中国矿业投资《中国好声音》庆功会 210万网友参男女平等程度排名:日本靠后 降至史上澳大利亚否认山火与全球变暖有关 总理德媒曝美国驻柏林大使馆涉嫌参与对默克俄险再发生公交爆炸 一乘客携重量炸药日媒指韩军独岛演习或为对抗日方发布独新西兰法庭批准金矿在居民楼附近采矿引安倍晋三自曝吸烟史 称未考虑被动吸烟蜡炬成灰方始休国际油价10日小幅回调我是一朵浮萍於之莹三连胜请出韩主帅■ 视觉颂理发展思路 拓“银担”合作毕业选择新兴大公司共同开创亚洲发展新未来订单贷“预订”早稻6000吨朝鲜新权力核心圈亮相西周克镈:极具史料价值的青铜乐器(镇从绿色浙江到美丽中国白砥:砥砺自我中国特色社会主义的“实践论”中国本月主办五核国会议义乌:7万商铺“跨”出国门同一海域四获疑似信号杭州“微公交”租车流程美中学校园再现血案“一线”作为 “时时在线”聚焦“四风”不换镜头
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘