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

VB使用 WIN95 的选择目录对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB使用 WIN95 的选择目录对话框

声明:
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260

Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
函数:
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String

Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo

With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If

BrowseForFolder = sPath

End Function
LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 哪门编程语言影响力最大? 微软启动“Companion Web”计划 可互连多屏幕设备 让你望而却步的密码管理服务已获得100万美元的种子基金 SDCC 2013开始公开征集讲师和演讲主题 不用图片和JS,照样创建绚丽的动态CSS3菜单 是福还是祸?开发者饱经风雨的内心独白 设计师/开发者看过来,七月35款新工具速递! Hadoop进军机器学习:Cloudera收购Myrrix共创“Big Learning” 张民杰:三人团队的OpenStack机会 White Elephant:开发者必备的Hadoop利器 不及分析师预期:微软第四季财报揭晓 净利49.7亿美元 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 一个Corba客户端连接的问题! 如何在resin中设置wap服务器功能 大家帮忙!! 什么时候用DataGrid,什么时候用DataList? 怎么样从数据库里取得某字段的值??? 昆腾的硬盘修理找谁啊?急,UP有分........ www.webmatrixhosting.net免费空间中FTP文件上传问题 Apache 2.0.43 +Tomcat 4.1.24+mod_jk2-2.0.43.dll整合问题出现:The servlet container is temporary unavailable or being upgraded 我装的Delphi7好像丢了一个文件:Proxies.pas,哪位好心人给我一个? 人,真脆弱! 开水房追女之呕心沥血计划 (超暴笑) 孤独 急!!Image对象如何设置成为透明的???Thanks! 【憋的慌】大头、阳光呢!!! 关于FLASHMX的遮罩问题 一个问题,想不通! 【憋的慌】死水、一辉呢!!! 急!!!急!!!怎么在建表时使用一个时间函数??就是指出加这条这条文件的时间?? 【憋的慌】蓝心、风呢!!! we snowball throw and make sometimes them 怎么连词成句 Happy is the man who living by his hobby 中华鲟是什么类保护动物?看准“类” pen用汉语怎么读 Happy is the man who is living by his hobby.happy是形容词,形容词怎么能做主语的? 中华鲟和白鳍豚是同一类动物吗? glue怎么读 A man cannot really be happy if _he enjoys doing is ignored by society as of no value .A.what B.when C.that D.all what 为什么,求详解 Vanilla是什么意思? 英语翻译 first name vanilla custard是什么意思 pudding的音标是? “厨师”用英语怎么说?还要有音标英语 法语都行 I think English is ( ) than the other subjects,and I do ( )in it of allA more interesting;bestB much more interesting;well选哪个, 请问pen presure 在哪里啊 我用的中文版c4d 我也是 ps有压感 但是 c4d没有 怎么调啊 .In that hotel,the bread and butter____served for breakfast ---the girl was too selfish and never thought of others,she wasn't getting on well with others.A thought B unless C since D until 2013年热门关键词有哪些 ①当v增大时,所需向心力增大,即万有引力不足以提供向心力,卫星将做离心运动,脱离原来的圆轨道,轨道半径变大,但卫星一旦进入新的轨道运行,其运行速度要减小,但重力势能、机械能均增加 pen的意思 2013年热门职业2013什么职业好呢? 离心运动,为啥万有引力小于向心力 She was a girl who knew how to be happy even when she was sad 的中文翻译 求2013年的热点话题.热点! 根据黄金代换式我们知道重力=万有引力(忽略向心力),为什么还会有物体作离心运动?不是已经忽视向心力了 激光有哪些之最如:最快的“刀”,最准的“尺”,最大的“书” glue的中文 英语改错 A man cannot be really happy if that he enioys doing is ignored by society as of no value or importance 梯形ABCD中,AD∥BC∥EF,EF交AB、DC于E、F,交AC、BD于N、M,且M、N三等分EF,AD=2,BC=5,求EF的长如果有人能够在今天下午前回答正确的话,额外加高分. 以“我和我的祖国—喜迎国庆60周年”为题写征文征文主题“我和我的祖国—喜迎国庆60周年”以歌颂祖国和党,赞美社会和家乡发展变化(我是晋城的),表现人性真善美等为主要内容. Green,Jim,am,i,to,nice,meet,you连成句 life insurance policy go to something啥意思I also have a $10,000 life insurance policy that will go to the rabbits.前文说某人养了100多只兔子,导致生活入不敷出.然后说出这句话. 请问parfix glue 是什么意思?谢谢~~ 厨房门玻璃坏了怎么办 为寻找清洁能源用激光创造微型太阳 祖国60周年国庆作文最好带这60年来的进步脚步450字左右.好的追加20 to the best of our knowledge是什么意思 激光以什么为能源 glue的中文意思 中华鲟什么类动物A鱼类B两栖类 激光是啥? glue是什么意思? 中华鲟属于国家几级保护动物? 有一道题是这样的:已知m和n互为相反数,p和q互为倒数,a的绝对值是2,求m+n除以2007a 设a,b是方程(log2X)^2+5(log2X)+1=0的两个解,求a,b,注意,其中2是a,X是N 一只船顺水行320千米需用8小时,水流速度为每小时15千米,这只船逆水行这段路程需用几小时?320÷8-15 =25(千米) 25-15=10(千米)320÷10=32(小时) 这是答案它为什么减去一个15后又减一 用pen和not造句还要中文意思 research可数么? 水流速度是每小时十五千米,现在有船顺水而行,八小时行320千米,若逆水行320千米需几小时?不用方程解. 张大伯家养了一些鸭和兔,鸭和兔一共有12个头,30只脚.张大伯家养了多少只鸭多少只兔? research 水流速度是15km/时,现在有船顺水而行,8小时行了320千米,如果逆水行了320千米需要及时? 张大伯养了一些鸭和兔,鸭和兔一共有12个头,30只脚.张大伯养了多少只鸭,多少只兔?快哦.急. research 何时可数 何时不可数 某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,船逆水行了a小时,共行了 千米,这段路程某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,该船逆水行了a小时, PROTESTERS:"This is what democracy looks like!" MAHLON MITCHELL:"This is ground zero for the nati请问这两句话怎么翻译 Eat fruit and vegetables?是什么一 chickens in the 中华鲟为什么是一级保护动物 专访:中国与葡语国家经贸关系将再上新揭秘中国外交官是怎样炼成的:缺乏写作洛杉矶国际机场枪击案嫌疑人面临谋杀控浙江商品房销售面积和销售额增幅“双降境外媒体:中俄痛批美沉迷“偷窥世界”韩国学者:中国复兴对世界和平稳定意义港报:专家猜测中国或用人民币还伊朗“英报:中国“节俭令”制约铺张表演访德国柏林普鲁士协会主席恰普克迪拜“土豪”花4570万购买纯金兰博北京美大使馆楼顶现白盒子 被疑是监听洛杉矶机场枪击案嫌犯携反政府字条 有洛杉矶机场枪击案嫌犯携反政府字条 有尼日尔逮捕127名拟穿越撒哈拉沙漠移美女子生下13斤全美“最重宝宝”(组尼日尔逮捕127名拟穿越撒哈拉沙漠移奇数为男偶数是女?2013年是“男性斯里兰卡对新建赌场“亮红灯”抢滩自贸区浙商在行动 不少企业打算到杭马今天上午开跑 开车出行请注意临时瑞安公益组织要求会员缴费 质疑称交钱【茶理王】武夷岩茶制作过程下周大盘疯狂模式开启!注意把握时机!棉花期货本周两度涨停 暴涨行情拉开序中国油价有救了!中国突现“世界级”油买车最重要的应该看什么?外行看配置,欧洲工艺与东方女性完美融合的阔腿裤套香港羽毛球教练“吹牛”被海关拘捕供给侧改革对经济产生下行压力? 统计日本地震目前未影响香港游客赴日旅行马云身边的女人, 最后一个连李嘉诚都月入2万经理股市杠杆投资受损 如何再斯诺登接连发声:苹果将遭受全球性攻击中弘股份等待主力,还是坐以待毙?公务员适合报考在职研究生什么专业呢?散户是这样被主力玩死的炒股大神教你:追涨中如何避免强势股的产后瘦不下来留意了!凯特王妃用这招瘦贫困县校长被指克扣学生营养餐费10万黑金时代给古老的汉字突然撒野的机会和三日“排酸”食谱 巧搭睡前消脂小妙招新婚家庭10万礼金如何为未来理财
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘