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

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-02-22 12:42
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。现在不会不知所云了吧?
Firefox OS今年6月在5国首发 不含美国市场 8086/8088汇编指令手册 下一个被黑客攻击的对象—无线路由器 Windows Blue开始按钮或将回归,你怎么看? Evernote推孵化器 不占股权 基于C++和Lua的移动游戏引擎Leadwerks 3发布 苹果秘密测试iOS 7与iPhone 6 或将6月发布 酷6 CTO 陆坚:请先信任你的程序员 从电信联手i-Free,看运营商渠道的加速整合 “Animory”开发者分享HTML5游戏开发经验 Appflood SDK:连接中国与海外App流量交互平台 Apache Subversion 1.7.9正式发布! 微软IE浏览器5大动向 加速吸引开发者 开源的简繁转换库OpenCC支持Node.js 继Opera之后,Adobe表示将支持Google Blink 提高大型软件项目质量的一些实用型技术分享 谷歌推出Mirror API,开发者可为Google Glass开发应用 无需999,也不要499,99美元Linux超级计算机带回家 微软反击AWS:推出EC2并大幅降价,“价格战”正酣 Operation InVersion:拯救了LinkedIn的大修项目 五步走战略——Avocado在最初几周内迅速扩大30倍 NoSQL产品测评:Cassandra、MongoDB、Couchbase和Aerospike 谷歌眼镜开箱评测:比想象更精致 Pinterest谈实战经验:如何在两年内实现零到数百亿的月访问 初创公司Instart Logic:专为电子出版商和网站站长解决“痛点” 未来即卖芯片又卖服务!Intel收购软件厂商Mashery 继MSN之后,微软又开始整合Skype与Lync服务 阿里将推AMOS智能机 斥资10亿鼓励开发App AMPLab开发重构的Hadoop版本Tachyon:吞吐量要比HDFS高300多倍 一名理科生的创业路 十大界面原型与布局工具 不难但是很烦的问题。 有女生吗?女生近来给分!哈哈~~~~~ 请问如何在appliction中显示数据库中的图片--〉〉〉〉〉〉〉〉急急急急急急急急 請版主幫忙結單 请问什么是嵌入式开发???我现在正学51系列单片机,应如何理解嵌入式开发? 怎样判断再三个表中同一字段的数据是否重复?????? 请问有哪些工具可以远程控制oracle数据库? 哪里有正版操作系统等软件下载? JAVA程序编译时,有时会提示你要用try...catch...,JAVA怎么知道我要用try,有个标准吗? 关于unix下的双机热备问题。急!!! 靠,用classwizard时为什么只有ctoolbarctr而没有ctoolbar? 高分求救:在word中有没有自动插入行号的功能????? 报表问题 Access97 中取几位小数用哪个函数,round不能用?或着有什么其他的方法,谢谢 h---e---l---p????flash播放插件 sql 的问题,??????? 一个类中包含一个结构数组,但数组长度可变,不用Next串连,用什么方法? 用水晶报表可以连接远程数据库吗?如何做到? 我要使用Realplay控件,放网上和本地文件,谁有实例?我给50分 哪里有扫描程序的源代码, 请问哪里有介绍Borland或Delphi历史的文章﹗ overload operator ++,which is right? 哪里有vb.net 相关的中文电子书? 我用的是API函数ShellAboutA来显示windows式的关于窗口,但却不能显示出来? 如有赐教,不胜感激.请问我如何在pb中获得某个文件的路径,如sqlldr.exe,注册表apppaths中没有? 这样行吗?望大哥们帮忙 如何做DELPHI的帮助 哪位高手知道哪里可以找到pkzip口令压缩的源代码 请指教,我是新手,我搞不清下面的语句什么意思?特别是coords起什么作用 重金诚聘:pb师父。人数不限,报酬300/week,要求:能经常在线。愿者签名。此贴常年有效//偶是牛虻,极有分 请用过jakarta-ant-1.4.1这个编译软件。 如何实现该功能 【Java------能解决这个问题吗???】 VFP的串行通讯 winNT/2000/XP的密码系统到底安不安全? What is the _int64 mean int g721_encoder( int sl,int in_coding,struct g72x_state *state_ptr)这个函数有人...... 请问具备哪些能力,工资可以在8k+,再具备哪些能力,就可以10k+,... horizon_tj,货已经收到,暂时还没有看,先结帐。 在jbuilder5中编译ejb时出错(weblogic6.0)请指教!!! picturebox 如何加上滚动条,是发送什么消息加上的?谢了,晚上我来加分(发言就有分)。 介绍UNIX学习网站 如何在ANIMATE控件上加入鼠标的点击事件 DBChat的小问题,请进 我的3D撞球在csdn发布了,以前下不了的请来试试。 如何用keybd_event模拟:和\的输入? 请教关于操作符“++”重载的问题,欢迎发言! 如何排版??? 奇怪,VC学这么长时间了,居然这么个小问题不知怎么解决? 急,请帮忙介绍学习UNIX的网站,急 Application的用法问题,小妹试了很长时间了,还没有解决,快帮帮忙啊! 圆柱体重量怎么算一个直径460mm 和一个直径380mm 的圆柱体 他们各自的重量是多少 如果按3500一吨的话 他们各自的单价又是多少 密度 按7.85 就可以了! 长的词语都哪些 在实际教学中如何体现《幼儿园教师的师德规范》 怎么算圆柱体钢材的重量比如一根长7米,直径90的圆柱体钢材.怎么算出它的重量. 圆柱体重量怎么算文字 圆柱体=直径是21.3厘米.长是51.4厘米.密度是7.86 请问是多重 “丈夫”这个词英文是什么? 什么叫恒重?为什么空称量瓶和烘干后的试样都要恒重? 我有一圆柱体,直径2.2米,高度4米,油的密度为1:1,装满油的重量? 蒸汽加热烘箱、蒸汽烘箱的特点? 一个关于化学试验的问题:取扁型称量瓶,置105℃干燥至恒重.这个具体怎么操作?都需要哪些具体步骤,每个步骤的时间控制,因为是分析试验,所以要求 比较严格.如果接着取105℃下干燥至恒重 一个长方体的水池,长八点五米,宽四米,深二米,如果每小时可以放进八立方米水,要放满这一池水需要多少小时? 用烘干机烘蘑菇怎样才能烘的快?有知道的朋友谢谢告诉一声! 真空烘箱测水分称量瓶放进烘箱中盖是盖在上面的还是哄完冷却时候再盖上? 某菜市场运来西红柿和茄子共385千克.西红柿卖出3分之2,茄子卖出5分之3后,剩下3.某菜市场运来西红柿和茄子共385千克.西红柿买出2/3[分子.分母],茄子卖出3/5[分子.分母],剩下的这两种菜重量相 圆柱体的重量怎么计算 5kg黄瓜和6kg茄子共19.5元,6kg黄瓜和5㎏茄子共19元求黄瓜和茄子的单价各是多少? 叔叔运来西红柿和茄子共385千克,西红柿卖出5/2,茄子卖出5/3后,剩下的两种菜的重量相等.求西红柿和茄子各多少千克? 一个游泳池长50米,宽25米,每分钟进水5立方米,要进水几小时才能使水到1.2米 有甲、乙两个水池共贮水40立方米.如果甲水池在注入水4立方米,乙水池放出水8立方米,那么甲乙水池的注水量相等.问两个水池原来哥注水多少立方米? 农贸市场上,一个个体菜贩运来西红柿和茄子共312千克.西红柿卖掉三分之一,茄子卖掉五分之三后,剩下的两种菜质量相等.求运来西红柿和茄子各多少千克?我只要算式 在单位"克"与"千克"的换算中,500克是0.5千克.如果把x克表示为y千克,那么.(1).y与x之间是否成正比例?(2).写出y关于x的函数解析式,并指出这个函数的定义域.(3).当x=25(克)时,y的值是多少(千克)? 玉米油、菜籽油哪个更健康? 黄瓜香蕉和茄子,哪个最好女用 电动机星三角转换启动原理 求小学英语教师课堂用语! 甲水池有水135立方米,乙水池有水40立方米,甲水池每小时流入乙水池3立方米水,问几小时后甲水池的水是乙水池的水的3/2倍? 少儿英语老师课堂用语这些句子的英文怎么说.欢迎补充,补充会追加分数.1 你来提问我2 谁想回答请举手3 答对了有礼物喔4 当我做这个动作时请不要讲话5 跟我一起读6 把今天记住的单词回家 高中英语教师课堂用语(要很全的) 那个什么是用香蕉好还是黄瓜好 或者还是茄子 ?用过的mm说一下~~ 谁有英语教师课堂用语的音频啊?什么格式的都可以,视频也行,发链接也可以,或者发到我的邮箱hellenrain@163.com, 英语教师课堂用语鼓掌 黄瓜,茄子,萝卜,哪个比较好用?懂得的人来回答噢~它们各有什么好处? 高中英语课堂用语 圆柱体重量长度960MM 宽65MM密度不晓得!我只知道是45号钢吧.. 如何进行小学课堂教学评课? 英语教师如何更好的利用课堂用语? 一个什么茄子 计算圆柱体的重量长19米,直径250毫米的铝柱,重量是多少千克,急求! 什么叫英语课堂用语 茄子和黄瓜共买了6斤,一共花了8元,已知茄子每斤1.5元,黄瓜每斤1元,求茄子和黄瓜各买了几斤.(1斤=500克) 教师如何评好课 一个游泳池长15米,宽8米,如果每小时注水24立方米,12小时可是将水池注满,这个游泳池深多少米? 我的羽绒服有味道,说是洗好后还要用烘干机烘才能去除异味,可是没有烘干机怎么办?可以用微波炉代替烘干机吗?我闻了一下sprit的羽绒服,1千多块买的,如果说有牌子的就是好的的话,那sprit的 圆柱体的体积怎么算啊 一个游泳池长15米,宽8米,如果每小时注水24立方米,12小时可以将水池注满,这个游泳池深多少米? 茄子要怎么做?我做其他才都做的很好!就是做茄子不知道怎么做.切了两条,新买的花生油到了5厘米高的油下去炸了.一下子油就不见了全部被茄子吸进去了,然后锅没什么水分都要着火了.最后 无水碳酸钠能不能用烘箱来烘干呀 关于英语课堂用语有没有人可以给我一些英语课堂用语的表达.我都抄下来了,请问还有没有更多详细的课堂用语表达呢 用一个词语形容英语老师,什么词语最好? 用无水碳酸钠标定盐酸时,没有马弗炉也没有烘箱,用电炉子可以么 知道圆柱体的半径和重量怎么算长度,求计算公式, 给点英语的固定短语吧!(英语老师要求我们词汇分类) 在实际教学中该如何体现幼儿园教师的师德规范 一个游泳池长45米宽25米,平均深度2.2米,如果每小时往池中注水75立方米,注满游泳池的一半需要多少小时? 词语 长什么长什么 现代教师应具备怎样的师德---对教师师德内涵的思考 圆柱体重量的计算已知该圆柱体的长度为190厘米,截面为80厘米!请问如何能算出该物体的重量?密度为0.00617|-----------总长度190----------|------------------------------ -|_____ _____| 12.5 || | |50 | 两边一样 | 英语中最长的单词是什么?听英语老师说有35个字母,是一种医学术语 如何在教学中体现《幼儿园教师的师德规范》
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn