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

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-03-27 07:11
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。现在不会不知所云了吧?
Android调试技巧之Eclipse行号和Logcat Android Txt文本读写类源代码 Android游戏开发之旅20 双按事件捕获 Android游戏开发之旅19 分辨率大全 保护你的Android付费软件-LVL全攻略(二) 保护你的Android付费软件-LVL全攻略 android调试工具monkey压力测试实战 Android开发工具-App Inventor Android游戏开发之旅18 SoundPool类 Android多线程下载远程图片 Android读写Txt文本文件代码 Android游戏开发之旅17 图像渐变特效 Android游戏开发之旅16 异步音乐播放 Android游戏开发之旅15 按键中断处理 Android游戏开发之旅14 游戏开发实战一 Android游戏开发之旅13 Sensor感应示例 Android游戏开发之旅12 Sensor重力感应 Android游戏开发之旅11 View中手势识别 Android游戏开发之旅十 位图旋转 Android游戏开发之旅九 VideoView类剖析 Android游戏开发之旅八 SurfaceView类实例 Android游戏开发之旅七 自定义SurfaceView Android游戏开发之旅六 自定义View Android游戏开发之旅五 Path和Typeface Android游戏开发之旅四 Canvas和Paint实例 Android游戏开发之旅三 View类详解 Android游戏开发之旅二 View和SurfaceView Android游戏开发之旅一 长按Button原理 Android程序内存管理必读 Android按键事件映射表和转义符对照 Android Intent大全更新到API Level8 ???? 我还是不明白,这是为什么 ???????? 关于寻址 如何得到想要的Excel表中的正确行数,救命!!! 兴奋~收到borland公司的邀请涵,散分! 关于DTS transmit data !!请帮帮忙,谢谢 tc,dos下如何调用1cH中断,写定时程序,在线等待!急 有没有办法在一个ASPX页面里设置两个<form runat=server>? 100 求 Visual J++ 6.0 的下载地址(一定要能下载喔 :) 关于OLE控件中的移动问题? 连接Access数据库报错,如何解决?在线等候! 谁有evc开发的ssce数据库的源码 菜鸟提问:File|New|Other...下NewItems Dialog... 2002年2月25日Borland公司在国内推出Delphi认证考试 出个小问题来给大家看看,不要笑我呀 如何将*.cmp的文件存到ms sql server数据库? 我的窗口怎么处理不了方向键消息? 列举sql的触女器可以触发什么动作,能否回滚引起触发的事务 几个unix下的c菜问题请教 !!!!!!!!!!!!!!!!!!!!!!对socket技术开发有经验者,请帮助!!!!!!!!!!!!!! 为什么有时_variant_t变量不能转换为_bstr_t,而有时就可以?里面有什么奥妙? 高分求助!请问怎么去掉IE的最大化和最小化按钮!! 关于UltraDev中浏览的问题???? 请大家推荐几本vc与汇编混和编程的好书 为什么会这样呢?关不掉的对话框 菜鸟提问:Form 与 Frame 有何区别? 以下是Delphi帮助的说明,谁能帮忙解释一下? 流星花园 我在image的click()方法里定义的变量,为什么在image_dblclick()里不能用?? 请教一下:金山词霸的屏幕取单词,是如何用程序实现的? 用VC怎么实现生成一个虚拟目录? 那位朋友有2000命令行模式下命令操作的帮助手册? IIS虚拟主机的问题,请大家给解决呀! 一个有关ListCtrl中拖动Column的问题。 请问那位大虾有用vc开发openssl的经验和原码? 兄弟我想学习数据库 但学什么好呐 给点意见 急求:将savedialog中多选的文件一次全都添进listview 谁有DirectX开发(SDK),给我一份,或留个连接地址 谁有DirectX开发(SDK),给我一份,或留个连接地址 怎样动态生成函数??? 你好!请问怎样给分? 高分debug!!!!!!! 再加50分请各位高手帮忙:http://www.csdn.net/expert/topic/598/598527.xml?temp=.1428339 请问各位,这种问题如何解决? from now , I'll come here usuauly 为什么邮件的接受时间会超前?高手请进来看看。 请大家推荐几本vc与汇编混和编程的好书 from now ,I 'll often come here. 请问: 中文版的 。NET 如何英文化????????????????? 高分debug!!!!!!! 怎样用vc编出来的程序能够隐藏起来,就象任务管理器那样 如何得到Query1->SQL->Add(select sum(xxx) from Table);的返回值? 谁能告诉我,这样得到的IPaddress 仅是本地dns解析的, 牛顿的生平简一点!1 一枚古币的正面是一个半径为r厘米的圆形,中间有一个边长为a厘米的正方形孔,则这枚古币正面的面积为? 在平面内,将一个图形沿某个方向移动一定的距离,这样的图形运动叫作( ). 接触力按其性质可以归纳为弹力和摩擦力,他们在本质上都是由电磁力引起的.最后一句话为什么会这样? 如图,一枚圆形古钱币的中间是一个边长为1cm的正方形空,已知正方形面积是圆面积的1/9π,则圆的半径是 将一个图形沿某一方向移动一定的距离,这种图形运动称为 或 .当我们乘汽车和电梯时,可用什么来解释. 有没有人知道地震的事 0.802的计数单位大还是0.80的计数单位大? 用水平力推放在水平地面上的箱子,但未推动,要使箱子运动,推力、摩擦力、重力之间的大小应满足什么条件? 有没有人可以解释一下这些硬盘的测试数据?如图,不明白这些数据是什么,是快还是慢?(笔记本)post 你们的截图上来看看如何?我的硬盘不是不行,而是我怀疑组raid0D的时候还差点什么驱动之 斜面上有一个物体,求地面对斜面的支持力时,支持力等于斜面和物体的重力,为什么?不是物体对斜面的压力加斜面重力吗? 0.53的计数单位是什么? 有没有人听过什么是地震三要素 就这几道判断题有好评 用测振仪测量振动从小到大循环说明什么问题从1.0到6.0mm/S 刚刚有没有人察觉地震?北京时间大约晚9点,我在家中感到椅子一阵摇晃,有谁知道北京是否刚刚发生地震? CAD中使用移动命令移动一个图形时,怎么做到快速的移动这图形到相对某点一定距离上呢?即把A图形移动到相对B点一定距离的C点上,能一次性的移动 硬盘怎么进行振动测试,冲击测试,需要哪些硬件和环境,目前只有一台测振仪.还有哪些测试参数是什么意思比如:震动(半正弦波,G) 70. 计数单位是什么? 初中物理重力牛顿第一定律讲到,力不是维持物体运动的原因,但这是不是只是一种理想情况,在真实世界中让物体运动继续下去,还是需要力的. 如果用弹簧测力计和天平称量同一物体,再把它们拿到月球上去称量,则()A.结果都变小B.结果都不变C.弹簧测力计测量结果变小,天平测量结果不变D.天平测量结果变小,弹簧测力计测量 一千的计数单位是什么? 初中物理什么重力 关于牛顿的著作牛顿的自然哲学之数学原理中,有许多内容(准确的说是术语)与我们现在教科书或者是科普书籍有着不少用语上的差别,例如第一篇的第二章向心力的确定中的命题1 定理1( 计数单位;个位,十位,个,十,百,千,万,十万,百万,千万,亿,十亿,百亿,千亿,请问千亿后面是什么 小学判断题.急!急!急!如果回答一定给好评! 牛顿一生都写了哪些书籍?书名要全的!越快越好!111 十位上的计数单位是十分位上计数单位的一百倍, 小学数学 回答给好评 判断题 牛顿都有什么作品 个位的计数单位是多少,十位的计数单位是多少 AI移动一个图时点上下左右键,请问移动的距离能不能调?因为有时只要移动一点,而点上下左右键却移动得很AI跟CDR都是这个问题,不知道AI和CDR分别都在哪里可以调这个距离的? 高分求牛顿晚年的著作据说牛顿晚年写了很多著作但被人唾弃,谁有他写的著作啊? 如何使用测振仪与速度传感器联用测量轴承的振动 在AI中节点的移动距离大小怎么调整?/ 弹力是指物体_____的力..形变越大,弹力_____..弹簧测力计是根据_______的原理制成的? 判断题,急 Ai图形左右上下移动的距离很大,怎么缩小距离啊?只按了一下“↓”,就下移了很多,怎么会这样的? 牛顿 发明 生平牛顿一生有哪些发明,定理.全部都要 判断题, 如何在ai中移动锚点我会用CDR和PS,不用AI,现在想学学,如何才能更快掌握AI的功能了,那位平面设计者可以指点一下, 牛顿的生平怎样? 1个杯子和1个水壶43元,3个杯子和2个水壶94元,设一个杯子价格为x元,可列一元一次方程为急用 判断题,有好评哦 物体受到的重力和地球引力是同一个力吗请解释一下 判断题最后一题到底是对还是错? 0.80的计数单位是多少 物理上什么是弹性形变?(意思) 木块放在桌面上对桌面的压力是由于木块发生发生微小形变为什么不是因为重力 分子除以分母商1余1.这个分数是? 物理上弹性形变是什么意思? 牛顿的生平简介,快谁能给个答案呀 这个判断题怎么写?全部都要把答案写下来. 弹力与弹性形变的关系是什么? 牛顿.伽利略和爱因斯坦的生平简介越短越好,但要详细一点,也不用太详细,今天急用 如果好可以追加分数!有多短就多短! 一枚古钱币的中间有一个方形小孔,如果将这枚古钱币放入火中加热,那么,小孔的面小孔的面积会()A.缩小 B.扩大 C.不变 D.不一定 物理上什么是弹性形变? 牛顿生平简介 英文版 如下图,一枚古钱币直径为20毫米,中间正方形孔的边长为6毫米这枚古钱币的面积是多少平方毫米? 在弹簧的2端用同样的力F拉时,为什么X=F/K,合力不应该为0吗,弹簧为什么会有形变啊?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘