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

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
谷歌Q4财报净利润28.86亿美元 超分析师预期 社交媒体的力量:Wood Camera登上iOS付费榜首之谜 屏蔽GitHub是互联网时代的“闭关锁国”吗? 巧妙利用空白设计案例分享(多图) 用友发布2013/新三年业务策略 力推UAP/CSP云平台 AWS集群计算新增内存分析EC2实例 手游:鼓足力气,掰弯传统3D游戏大作 LBA兴起:未来移动广告将基于地理位置 苹果发布2013财年Q1财报:iPhone销量及营收低于预期 不再被墙后 一个全新GitHub到来 与乔布斯并肩作战的日子 Google抛弃Exchange ActiveSync WP用户获DAV支持 Facebook真的要做“Facebook Phone”? 程序员,都去写一写前端代码吧 清除山寨和广告应用,“豌豆洗白白”服务上线 谷歌另类“开源” 程度仍不及Facebook和Twitter 想在云中分一份蛋糕? 不妨试试“山寨” 为何乔布斯脾气怪糟 却能让一群最优秀的人为他卖命? 单页Web设计案例+技巧攻略(多图) IE10里的捕捉模式和响应式设计 在“亚马逊商店”出售自己:产品经理这么找工作 【CTO俱乐部第92期】大规模存储与电商架构演化实战分享 刘黎明:PaaS是非主流业务,要与IaaS融合 个人手机游戏开发者之死 为什么苹果的应用审核是个笑话? 程序员性格怪癖是才华横溢的表现,还是危险分子的征兆? JavaScript Source Map详解 8条学习编程的可靠建议 一周消息树:亲爱的GitHub,我们怎么访问不了你? [回顾] 2012年几大编程语言就业趋势分析 研发周报:微软无视W3C 拒绝遵循WebRTC标准 用C裸写聊天软件,谁能? 菜鸟问题:如何安装和配置ASP.NET开发和运行环境? 快来呀,破解QQ密码,高分相送! 有需要域名和空间的吗?我这里有。 我的服务器CPU占有100%,如何解决?!!加急!!!!!! 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 小问题:关于AfxBeginThread的参数调用问题 请教高手:关于在ACCESS中的两个数据库之间复制表结构问题 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 问题求解 现实一点,各位,我和别人赌了巴西不能赢中国队净3球以上,大家如何看? datagrid连接adodc access转化为mssql时出现的一些问题??? 工作流运行时出现了问题!很奇怪! 一个注册表的问题? 关于STL的弱问题 很少有人问的问题 请教学习路线,散分 一个困扰我很久的难题?(高手帮忙啊) 告诉帮我解决文件关联问题!! 请问如何添加备注字段,用sql server建表,有一备注字段为text类型。。。。。。。。。。。 函數啊﹐怎么么搞的?氣死人了。一百求救。 关于数据库的问题 生命游戏问题!!!!那位大哥指点迷津 VB做的免费软件,大家随便下载!给我提点建议也行! RichEdit问题,急!!! 关于IF语句。我是新手我理解不了请高手帮我,谢谢 请问oricle 有没有像sql server 2000 的企业管理器一样的工具? 关于richedit的问题! 誰能告訴我﹐我給他發又發(88分求找) asp.net就没有什么不足吗? 问题:高级程序员的《数据结构》该怎么复习?请有经验的人给指个明路,多谢! 如何将中文文件存入数据库?是文件,不是表单,谢谢!! 怎样才能得到CDialogBar的控件(如Button)的消息及消息处理 子数据窗口中为什麽filter条件不起作用?急急!!在线等!!!! 菜鸟来了! 怎么把Demo_Adhoc分到两台机上运行 数据库更新 how to 用 insert into 把一个.zip文件保存进数据库?? 请大家推荐一个CD机吧!!!! 急,NOTES与SQL SERVER的问题 asp实例 我的Access库文件原来大小是6.78M,我清空所有记录和减少很多记录时,为什么大小没改变? 关于delphi动态加载控件,在线 代人提问:请问.dcu文件是干什么的?如何才能生成该类型文件。 怎么响应Enabled属性 asp.net做网页,运行后,<asp;....></asp:...>字段仍然存在?? 请教VB高手们一个高难问题! 请问,存储过程在VC如何调用,用ADO,ODBC。 怎么实现这个SQL? 没事瞎问~~~黑客软件能走向海外吗?(比如扫描器,键盘记录器,木马等) 谁知道熔化是什么热?吸热还是放热? 离心泵的输送介质改变后对泵的性能如何变化 过量二氧化硫通入苯酚钠溶液中离子方程式 放热就是变热,吸热就是变冷吗?如果不是请讲明为什么.急,明天就考了,还是弄不太明白.我有点笨,讲明白点.如果我懂了一定还加分! A和B可以相互转化,B在沸水中生成C,在空气中氧化成D,D有臭鸡蛋味.那么ABCD分别是什么? 14级地震是什么概念 请问一个高压水泵电动机的转速,流量和流速的相关计算公式是什么? A和B可以互相转化,B在沸水中生成C,C在空气中氧化成为D,D有臭鸡蛋味,请问ABCD分别是什么?我要正确答案d是硫化氢那种的,不要鸡蛋系列的那个答案额,能把化学方程式写上么? 地震的概念板块构造 地震知识 已知管内空气的流速,求所用空气泵的功率,其计算公式是什么? 酒店用液相煤气瓶内液态气体的温度是多少?天气寒冷液相煤气瓶出口压力很低?是什么原因? 氢离子浓度与醋酸根离子浓度的乘积比醋酸浓度,在醋酸稀释时的变化是即时浓度,不是平衡浓度 什么是液相负荷? 新买的PE液相的压力老是往下降,是怎么回事 用铂电极电解CuCl2与CuSO4的混合溶液(浓度均为2mol/L)50ml,当阴极析出的固体的质量不变时,阳极得到的气体体积为? 碘与水反应生成的碘化氢加不加上标 化工原理中操作上限有没有可能由液相负荷上限线控制 用铂电极电解一定质量某浓度的CuSO4,一段时间后停止电解.若此时加入19.6gCu(OH)2,所得溶液恰好与原溶液完全相同,则下列说法不正确的是A.原溶液中溶质的质量为32gB.电解过程中转移电子的物质 高效液相色谱 压力不稳定怎么解决 碘化氢与氯气碘化氢气体与氯气 的反应少量 等量 过量 并联电路中支路的滑动变阻器电阻减小,电流如何变化? 氢气与气态碘反应生成的碘化氢是气态还是液态? 液相在用单泵时另一泵也有压力为什么 caco3=cao+co2 的热反应方程式 注明AH可以告诉我你的答案在什么地方找到的吗,就是方程式 岛津液相泵压力不稳定!LC-10AVP 疑难杂症!急……仪器是测奶制品中的三聚氰胺!在用药典方法配制的流动相(柠檬酸+辛烷磺酸钠:乙腈=9:1)时,泵压力上下波动有4MPa,用10%甲醇水做流动相时压 重介洗煤为什么中煤里有精煤 建筑物被酸雨化腐蚀的化学方程式 A由B转化而来,B在沸水中生成C,C在空气中氧化成D,D是有臭鸡蛋味的.请问ABCD各是什么物质? 锌与五水硫酸铜溶液反应的化学方程式 无水硫酸铜与氢氧化钾的水溶液反应的化学方程式还有氢氧化钾在空气中变质后的溶液与稀硫酸溶液反应的化学方程式 把二氧化碳通入饱和氨气的氯化钠溶液中,制备碳酸钠,为何要先放氨气,为什么不可以先放二氧化碳 在80克SO2和O2的混合气体中,经分析知经分析得知硫元素的质量分数为40%,求此混合物中氧气所占的质量分数? 肥精煤是精煤吗 谢谢 分别将二氧化碳和氨气通入饱和食盐水中;为什么生成的碳酸氢根量少 二氧化硫中硫元素的质量分数为多少?用S%=S/SO2*100% 这个公式算 原煤经洗煤后分为精煤和中煤,之后精煤入仓或者落地;中煤入电厂或者落地。那么其中的落地是什么意思 在并联电路中,支路电阻减小,那么另一支路电流怎么变化? 已知NO2和SO2的混合物,N元素的质量分数为28%,则混合气体中硫元素的质量分数为()A 4% B 33% C 40% D 66% 会的 A和B可以相互转化,B在沸水中生成C,C在空气中氧化成D,D有臭鸡蛋味.请问这ABCD分别是什么?爱因斯坦的一道问题! 地震的定义 硝酸铁与碘化氢的反应两者量不同离子方程式怎么写 向苯酚钠溶液中通入少量二氧化碳的离子方程式 什么是地震灾害?官方定义是什么? 铁和碘化氢反应方程式. 苯酚钠中通入少量的二氧化碳离子方程式? 用氢氧燃料电池电解400毫升硫酸铜溶液,若标况下消耗0.224L氧气,则溶液PH为 A和B可以相互转化,B在沸水中生成C,C在空气中可以氧化成D,D有臭鸡蛋气味、问ABCD各是什么?不要鸡生鸡蛋熟鸡蛋臭鸡蛋.要正经的! 氯气与碘化氢是放热还是吸热 氯化铜溶液分别滴入氢氧化钠溶液和氢氧化钙溶液中2 氢氧化钙溶液滴入碳酸钠溶液中,两个问题的的现象. 每秒燃烧10Kg煤,煤中硫元素质量分数1%,假设全转化为SO2,计算每天产生的SO2物质的量是多少? 碘化氢和氯气的化学反应模型 earthquake是什么意思 A和B可以互相转化,B在沸水可以生成C,C在空气中可以氧化成D,D有臭鸡蛋味道?请问ABCD各为什么物质?我查了有臭鸡蛋味道的通常指的是H2S, 为什么弱电解质如醋酸的物质的量浓度(C)等于c(醋酸根)和c(醋酸分子)的和而不包含c(氢离子)?/ 地震是什么? 一般哪里有炼铁炼钢用的喷吹煤 离心泵水泵进水管充满度、流速;出水管充满度、流速一般取多少?离心泵流量6m3/h,扬程36m. 地震级别如何定义? 好吧! A和B 可以互相转换,B在沸水中生成C,C与空气反应生成D D有臭鸡蛋气味,问 ABCD分别是什么? 液压传动中管径突然变小,流速与压力如何变化 醋酸稀释.氢氧根物质的量浓度增大,原因是稀释氢离子使其浓度降低kw为定值.但是为什么可以看成是稀释氢离子不能看成稀释氢氧根离子?这样根据勒夏特列原理.氢氧根浓度降低.很混乱.望详
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘