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

microsoft common dialog control控件怎么用?

编辑:说三道四文库 发布时间:2017-01-23 02:29
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。现在不会不知所云了吧?
Delphi 中自做动态显示的控件 Delphi3的DBGrid中的下拉列表和查找字段编程方法 DELPHI常见问题 Delphi的竖排标签 DELPHI构件制作方法 DELPHI控件Tweblabel的编制 DELPHI中MEMO组件的光标定位 Delphi中RichEdit的奥妙 Delphi中TApplication类 Delphi中日期时间输入的简洁方法 delphi中怎么调用interbase数据库? Memo的Undo功能-Delphi资料 RECT在Delphi中的灵活使用 StringGrid制作只读列-Delphi资料 TADOQuery下主明细表其属性关系如何设置,如何保存主表和明细表?-Delphi资料 TBatchMove用法-Delphi资料 TMemo的真正插入字符-Delphi资料 TREEVIEW的使用-Delphi资料 TreeView在电信综合统计管理系统中的应用-Delphi资料 VB6.0动态加载ActiveX控件漫谈-Delphi资料 捕捉来自 Thread 的异常-Delphi资料 定制Speedbar-Delphi资料 动态产生构件并相应事件-Delphi资料 对Borland可视部件的一处改进-Delphi资料 控件使用技巧-Delphi资料 改变VCL的行为--一个使用可视化元件的实例-Delphi资料 具有不同字体的列表框-Delphi资料 快速大量地更改控件内容-Delphi资料 快速动态创建MenuItem-Delphi资料 利用Delphi 5中调用Excel 97 利用Delphi的Tbitmap控件抓取屏幕图象 中文Win2000与中文win98在使用CDC::Arc上有什么不同吗? 如何完全控制鼠标 35分任你拿 skyyoung 、 kookoo 、 BrentIvan 、 mshy 四位大虾,请留下email,小弟有要事好事通知! C#适用于开发大型的应用系统吗? 哪位有二手笔记本卖 孤独大哥还在吗?有人找! 请教一个高级问题!!! 怎样把帮助文件(.hlp)转换为和执行文件(.exe)。 关于ACCESS用SQL SUM的问题 怎样在csdn发布自己的软件 谢谢大家的回复.我已经知道可以建立个autorun.ini的文件.内容为(但是还有一个问题...) 菜鸟问题:如何删除一个里面有文件的目录? 我的大梦 API初学者的问题!!帮帮忙!!谢了!!! 那里有《ATL开发指南》第二版 电子工业出版社 下载(高分) 本人编制了一份“使用BCB5进行多国语言开发”的文档,希望对大家有用 ==================月薪8百,招聘VC通讯编程高手72名,要求待遇进来看.============== 展示程序,有原码,只邮前50个。 不对啊!是不是电脑报出错了?? win2000菜鸟问题. 那种包月可比较合算? 变量累加奇怪,奇怪,奇怪!!! 有什么办法能刻录一个大于一张光盘的文件到两个光盘,且拷贝回硬盘时能自动提示插入下一张碟,使文件还原? 用delphi5.0写的ISAPIAPP的程序,上传到INTERNET服务器后数据库的访问路径如何设置? puffdream(911) 同志请进 一个关于api函数的问题? 紧急求助:如何去掉PDF的打印限制 用什么编辑器? JInternalFrame!!!!!!!!!!!!为什么!!!!!!!!!!! 一个关于DrawGrid和Ansistring的问题 想学VC++从哪开始,API、MFC、VC6 如何去掉PDF的打印限制 ---------管理员!管理员!csdn的广告条上那个"波斯猫"mm是谁?----------------- 我在用HelpBuilder写帮助的时候总是提示该主题不存在的错误...? 装上proxy client后为什么SQL explorer连不上数据库 如何让vb中的自定义控件在不同的机器上使用 怎样加速保存一个文件? 手机短信开发的朋友请看! 这样的要求如何实现 高手接招:C/S三层+MsSQL,何种连接方式不必在服务器端安装MsSQL Server? bcb&delphi技巧大全(共1500条)下载的文件mytips.bsf用什么应用程序打开?????????? 灌水一篇,不知道大家看过没:C++之父访谈录 手机短消息群发,做你自己得短消息中心! 兄弟们,来签个到! 简单问题:怎样写这个sql语句 那位大侠能够提供一个NT4.0的注册吗(不要通用的那种)? 建议把Perl放到 软件开发 里面去 我高中时期暗恋的女孩子! ,,,,,,,,,,,,,,,我不想用onMouseUp事件,我要自定义事件来响应wm_mouseXXX消息,我该怎么办呢?,,,,,,,,,,,,,,,,,,,, 为什么我每次打开一个窗口如我的电脑时,窗口中的内容要很长时间才会出现? 在redhat下怎样显示中文目录名 简算(要过程)694+126-294 9.43-4.75+0.57 65×10.1 0.48×99+4.8×0.1 谁有2012年新人教版九年级化学上册课本啊急求2012年新人教版九年级化学上册课本是2012版的 第二题,奥数,专题, 带数法 小马虎由于粗心大意把60×(几除3)错写成60×几除3,算一算,他得到的结果与正确结果相差多少? 求一年级下册语文数学人教版电子课本,谢谢! 一长方形每边增加10%,那么,他的周长增加百分之几?他的面积增加百分之几? 小马虎由于粗心大意把40x(口十5)错算成40x口+5,请你帮他算一算,他得到的结果与正确结果相差多少? 速求人教版九年级下册数学书的第一单元电子课本着重是有习题的那几页,感激不尽! 张师傅骑自行车往返A,B两地,去时每小时行5千米,返回时因逆风,每小时只行10千米,张师傅往返途中的平均速度是每小时多少千米?没分数的 已知{4x-3y-6z=0、x+2y-7z=0,则x-y+z:x+y+z= 请告诉我 人教版的数学初二下册的 课本答案 ! 假设法解题(奥数)1.有5元的和10元的人民币共43张,共340元,求5元和10元各有多少张?2.有鸡蛋18箩,每只大箩容180个,每只小箩容120个,共值302.4元,若将每个鸡蛋便宜2分出售,则可的款252元,问大箩 已知4x-3y-6z=0 ① ,x+2y-7z=0 ②,且x,y,z均不为0,求3x+2y+z÷x+2y+3z的值 如何获得新人教版的初中化学电子课本 一道小学奥数题要求用奥数巧算4973 算了半天都没有算出简单的方法不知道是不是题目错了还是怎么的求要求用奥数巧算c 算了半天都没有算出简单的方法9不知道是不是题目错了还是怎么 由4x-3y-6z=0,x+2y-7z=0(xyz≠0),怎么解得 x=3z,y=2z, 哪里有人教2001年版初中化学电子课本? 一道不知道算不算简单的小学六年级奥数题,隶属于第12讲“行程问题”某人从甲地到乙地,全程的三分之一坐汽车,三分之一坐火车,三分之一骑自行车.已知汽车的速度是每小时30千米,火车的速 当4x-3y-6z=0,x=2y-7z=0时,求(x方+2y方+5z方)/(x方+3y方+z方)快 有的能发给我不, 1.一部书,甲、乙两个打字员需要10天完成,两人合打8天后,余下的由乙单独打,若这部书由甲单独打需要28天完成.问乙又干了几天完成?2.一批货物,A、B两辆汽车合运6天能运完这批货物的5/6,若单 2001-1999+1997-1995+……+5-3 求2012新人教版七年级英语电子课本一定要是新版的,有急用 (0.1+0.12+0.123+0.1234)×(0.12+0.123+0.1234+0.12345)-(0.1+0.12+0.123+0.1234+0.12345)×(0.12+0.123+0.1234) p118 2题 3题 您好:可以把 人教版化学九年级上册电子课本 人教版化学九年级下册电子课本 WORD版 (要有算式)1.鸡、兔共有脚100只,若将鸡换成兔,兔换成鸡,则共有脚88只.问,鸡、兔各几只?2.若干个同学去划船,他们租了一些船,若每船4人则多5人,若每船5人则船上有4个空位.问:有多少个同 七年级数学下册第一单元测试要现成的第一章是《整式的运算》越多越好好的话,里面有些题好像有问题啊 人教版化学九年级上册电子课本 人教版化学九年级下册电子课本 WORD版 可以给我发一份吗? 新定义运算 (题目如下) 人教版七年级下册第一单元数学试卷 仁爱版英语 任何一门都行 回答以下问题,请用奥数解.谢谢~~某厂向银行申请甲乙两种贷款共40万元,每年需付利息5万元,甲种贷款的年利率是12%乙种贷款的年利率是14%.该厂申请的甲乙两种贷款的金额各是多少? 人教版七年级下册数学书第24页的答案人教版七年级下册数学书第24页第8题和第12题! 语文(河大版) 数学(冀教版) 英语(人教版).- - 我懒嘛 但不写又不行 别来混分 - - 一道巧算奥数题已知如下数表示为:12 3 43 4 5 6 74 5 6 7 8 9 10.那么第九十九行所有数的和为多少?答案写的是39204,可是我算来算去都是38809,为什么呢?是我错了吗?这是我的算式:[(99+295)*197]/2=(394*197) A组.B组 2:10之前答 2012年苏教版寒假作业语文.数学、英语答案.七年级上的! (8.54+9.68)-5.68 第53页第9题的答案 (最好有运算过程) 简便运算 (1+0.12+0.23)x(0.12+0.23+0.34)-(1+0.12+0.23+0.34)x(0.12+0.23) 请用小学奥数的思路做出以下几道题,写出算式和思路.1.两人坐在圆桌旁,相继轮流往桌子放同样大小的棋子,条件是棋子一定要平放在桌面上,不能使后放的棋子压在已放的棋子上,这样继续下 王老师,求2012年秋新目标人教版七年级下册英语听力MP3.邮箱1487062059@qq 简便运算;0.12+0.23+0.34+……+0.89= 请用小学四年级奥数的思路做出以下几道题.1.控制室的墙上有A、B、C、D、E、F、G共7盏灯一致排开,其中B、E亮着.操作人员控制这些灯从A开始依次改变它们的亮、不亮的状态,即原来是不亮的 2012年秋新目标人教版七年级下册英语听力(单词、课文的MP3),万分感谢老师. 小数的简便运算:(1+0.12+0.23)×(0.12+0.23+0.34)—(1+0.12+0.23+0.34)×(0.12+0.23) 1.学生问老师今年多少岁,老师说:“当我像你这么大的时候,你刚3岁;当你像我这么大的时候,我已经39岁了.”那么这位老师今年多少岁?2.丫丫、奔奔、乐乐共有73块糖,如果丫丫吃掉3块,那么 跪求2014年春新目标人教版七年级下册英语课本电子档第二单元是what time do you go to school?第三单元是How do you get to school?麻烦预先核对一下, 求(1+0.12+0.23)×(0.12+0.23+0.34)-(1+0.12+0.23+0.34)×(0.12+0.23)的简便方法是简便 写出算式和结果1.学生问老师今年多少岁,老师说:“当我像你这么大的时候,你刚3岁;当你像我这么大的时候,我已经39岁了.”那么这位老师今年多少岁?2.丫丫、奔奔、乐乐共有73块糖,如果丫 MATLAB 一个二级火箭的总重量为2800公斤,第一节火箭的总重量为1000公斤,其中燃料为800公斤,第一节火箭燃料燃烧完毕之后自动脱落,第二级火箭立即继续燃烧,第二级火箭中燃料为600公斤.假设火 王老师您好,我急需2012年秋新目标人教版七年级上册英语课本听力材料,您能发一份给我吗? 13 1 23 12 113 ( ) ( )怎么填?要写出规律 matlab与数学建模 人教版化学九年级上册电子课本 人教版化学九年级下册电子课本 WORD版谁有?发一份! 传说中的一条龙有100个头,一名武士一剑可以砍掉15、17、20或5个头.在这四种情况下,勇士再次挥剑之前,在龙的头上又分别会长出24、2、14或17个新的头.如果把龙的头都砍光了.龙就死了.请说明 6,1,9,99,() A 120 B 124 C 125 D 126 求2012版人教九年级上下册化学电子课本注意啊是新版的= =我不留邮箱了,留个下载地址吧,这样别人需要的话也能看得到 和式A:2007/2008-2006/2007+2005/2006-2004/2005……+3/4-2/3+1/2与1进行比较,则A( )1.(填大于 小于 等于)说明原因
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn