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

无关联程序时开启“打开方式”窗口 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
无关联程序时开启“打开方式”窗口 -VB资料

在使用资源管理器时,双击一个未建立关联的文件, 就会出现一个打开方式窗口。 而在程序中使用 ShellExecute 打开文件时, 如果没有关联程序,也可以打开该窗口。
声明:
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Declare Function GetSystemDirectory Lib _
"kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Private Const SE_ERR_NOASSOC = 31
函数:
Public Sub ShellDoc(strFile As String)
Dim lngRet As Long
Dim strDir As String
lngRet = ShellExecute(GetDesktopWindow, _
"open", strFile, _
vbNullString, vbNullString, vbNormalFocus)
If lngRet = SE_ERR_NOASSOC Then
' 没有关联的程序
strDir = Space(260)
lngRet = GetSystemDirectory(strDir, _
Len(strDir))
strDir = Left(strDir, lngRet)
' 显示打开方式窗口
Call ShellExecute(GetDesktopWindow, _
vbNullString, "RUNDLL32.EXE", _
"shell32.dll,OpenAs_RunDLL " & _
strFile, strDir, vbNormalFocus)
End If
End Sub
使用:
OpenDoc "c:\aa.log"
独立游戏的成功秘诀:好设计才是王道 Swift 2.1的新变化 Apple TV实战:用TVML开发第一款tvOS应用 【SDCC讲师专访】阿里王晶昱:云时代的分布式数据库DRDS 硬件研发、嵌入式技术演进:MDCC IoT峰会日程揭晓 专访百度知道iOS团队负责人孙源:代码强迫症的死实践派 TIOBE 2015年10月编程语言排行榜:Ruby取代Objective-C进前十 【SDCC讲师专访】PingCAP联合创始人兼CEO刘奇:好的产品应开源,不闭门造车 【深入浅出Koa】常用工具分享 帮你降低编程难度 Relay: 全新的React数据获取框架 探索游戏开发面临的技术挑战——MDCC 2015游戏开发专场议程曝光 【SDCC讲师专访】易开发创始人潘俊勇:这些年我遇到的那些坑 【CTO讲堂】OpenStack行业实践和发展趋势探讨 万物互联,移动为先:MDCC 2015移动开发者大会盛大开幕! 【MDCC 2015】微软开发体验与平台事业合作部大中华区DX部门总经理Srikanth Raju:物联之上云+端 英雄会晚宴,Top开发者共聚“华山之巅” 【MDCC 2015】产品与设计专场(上):百度研究院、印象笔记等专家齐聚,以实例探讨如何打造好产品 【MDCC 2015】产品与设计专场(下):网易云音乐、在行、三节课、去哪儿网、野兽骑行大咖的产品之路 友盟:把数据用活 让开发者享受大数据红利 友盟:用活大数据 让精细化运营为移动开发者服务 携手世纪互联 IBM Bluemix云平台落地中国 【MDCC 2015】IoT峰会—硬件开发与技术专场(下):专家齐聚,共同打造联网新时代 【MDCC 2015】虚拟现实专场(下):虚拟现实的“困”与“竞” 【CTO讲堂】面对世界竞争对手,如何拿到Google PDF开源项目PDFium? 提升网站性能开发的10个技巧 SDCC 2015:顶尖技术精英云集 大会日程及首批讲师议题公布 《近匠》专访猿团创始人CEO谢恩明:梦想、未来、改变 《近匠》专访小熊尼奥:从软硬结合到IP合作,AR产品的机遇 W3C启动Web支付标准工作,推进在线结算流程 W3C中国区会员沙龙在京召开 W3C CEO Jeff分享W3C未来发展重点 【SDCC讲师专访】车轮互联总架构师韩天峰:PHP是最好的编程语言 有关ASP+ACCESS的查询数据出错,报错 “超出系统资源。 ” java界面控制 求一用php实现压缩/解压缩的程序. 请问在WORD200中有什么好的方法在下划线中输入文字,而下划线不随字体而改动? Excel中保护工作表? 请问使用16倍速的刻录机能刻32倍速的盘吗 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 一个使用用户空间控制流程的问题,望各位帮忙解答,小弟感谢不尽,在线等待 iis 为啥总出现 "the special module not found"(补充) 菜鸟问题---applet中的Runable方法, 紧急求助 装机:双敏的UKT400N主板性能怎么样?有啥缺点?适合超频吗? 请问vc编制数据库问题:如何读写binary字段 Chinajiji,看过来!多谢惠寄ISO/IEC 14882 请教各位高手用replace函数替换字符串时如何将颜色也变掉 SQL7.0备份的数据库如何在SQL2K中恢复? 如何改变编译出来的.exe文件的名称 谁有这样的矢量图设计系统例程可以参考参考? 谁有AVL树的代码呀。大家来讨论AVL树呀。呵呵 Maya 新手 哪位大侠能提供矢量图设计的例程! 请高人指点这个题目该怎么解决? 打包打包~~~~~什么是打包?? 多文件上传,一个很奇怪的现象! revalidate();怎样用? 怎樣得到系統的所有根目錄(如 C:,D:,E:),及根目錄下的所有子目錄. 求将excel文件导入notes数据库的方法(最好有例子),分不够可以再给! 小弟欲购编程器,各位大侠给点意见,大分相送,绝不亏待! 100分求教 荒漠中生活的骆驼刺,它的根扎的很深,这是对什么环境条件的适应( )我很急啊``````````````` 京瓷复印机8030这款机器怎么样? 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样谢 用一根铁丝,可以围成一个边长为六分米的正方形,如果用这根铁丝围成一个长方形(长和宽都是整分米数),那么有多少种围法?每种违法的面积是多少 有时听到中东地区,亚太地区,这些地区是怎样划分的?地球上还划分有哪些地区?您有划分的图片吗? 三角形+三角形+三角形—圆形—圆形=75 圆形+圆形+圆形—三角形—三角形=5 三角形=?圆形=? 在干旱的沙漠中,骆驼刺地下的根比地上的茎长很多,造成这种现象的主要非生物因素是? 室温25度时,1千克水,水温从室温下降到0度,所需能量是多少?最好提供计算公式 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样拜 工作中写请假条该怎么写? 建筑电气中NHW-4*150-CT/SC150 已知三角形与圆形的重合部分占三角形面积的5分之1,占圆面积的9分之2求三角形与圆的面积比.热求 快 在录制一段音频时,仅提高量化位数将怎么样在录制一段音频时,仅提高量化位数将( )(A)降低该音频的音质,减少存储容量(B)降低该音频的音量,对存储容量不产生影响(C)提升该音频 问一下建筑电气设计中ZR-YJV-4*185+1*95-SC150-FC是什么意思啊?还有Vigi NSE 400N 4P/350 EL ,Vigi 500mA,0. My parents are b____English teachers 乐在其中 作文 600字以上 一个球场长50米,宽20米.把它画比例尺是1:500的图纸上,长和宽应该画多长? 翻译 地震使整个城市成为一片废墟.(用in ruin) 关于音频保真度与量化位数的问题某用户要录制一段音频,采用下列采样频率和量化位数,能使该音频保真度最高的是(A)44.1kHz,8bit (B)44.1kHz,16bit(C)44.1kHz,24bit (D)44.1kHz,32bit求详解.知道 一个球场长50米,宽20米,把它画在比例尺是1/500的图纸上,长和宽各画多长? 英语翻译十万火急!一小时内... 音频中的量化比特数的含义视频中的量化比特数是决定每个像素颜色的种类但是音频中音色是由频率决定的啊?那量化比特数决定什么? 以《我乐在其中》为题写600字的作文!(最好写关于过年的) 辛亥革命征文比赛 800字 乐在其中作文600字 二次函数配方y=-x2+x+1如何配方? “几乎一片废墟”用英语怎么说? 一根铁丝可以围成一个半径4厘米的圆.如果把这根铁丝重新围成一个正方形,这个正方形的边长是多少厘米? 请假条回家本人请假回家几天写仿请假条 BLOOD-C文人为什么要和小夜打赌 用一根31.4分米的铁丝围成一个正方形,他的边长是多少?如果围成一个圆,这个圆的半径是多少厘米? 想回家请假条怎么写 运动会加油词咋写 ? 有一种细菌繁殖很快,1小时就可以增加1倍有一种细菌繁殖很快1小时就可以增加1倍现在有一批这样的细菌5小时数目变到5分之4万个同样的细菌2小时数目增加到多少万个 请假条的写法奶奶去世 运动会的加油词怎么写 特斯拉Model S到底牛在哪 延字共有几画,第四笔是什么,用音序查字法先查什么 关于勤奋的话题作文 如何算量化分辨率计算机要对声音信号进行处理时,必须将它转换成为数字声音信号.最基本的声音信号数字化方法是取样——量化法.若量化后的每个声音样本用2个字节表示,则量化分辨率是 “戈”下面一个“鸟”怎么念? 哪个洲的国家最多,哪个洲国家最少,哪个州没有国家 请问一般的量化软件都能直接得出什么结果?比如高斯可以直接得出分子电子态的能量值,还可以得出什么? 不计热量损失,将80千克的水从30度加热至90度,需要多少度电?为什么加热到60度和90度的水用的电一样? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件,恰好有1件是次品的抽法有多少种?要求有过程.快! 100字左右的英语自我介绍六年级水平 中东是属于哪个州的啊? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件恰好有1件是次品的抽法有多少种 一段路程为s,一辆车在通过前2/3s的速度为v1,通过后1/3s的速度为v2,则汽车在全程的平均速度是( ) 二次函数怎么配方 东周的都城是? 第九届全国创新英语大赛怎么翻译 养龟所必备的仪器,什么加温棒什么的? 初三几何圆与三角形AD是ΔABC的角平分线,以D为圆心,AD为半径作⊙D交AB于E,交AC于F,AD=AE=2,BE=1,求AC的长 1:2000的平面图怎么换算,图上距离是15厘米,换算出来是多少米. 加热棒100W一个小时耗电是多少度或者是一天耗电多少度 问三角形是多少,圆形是多少 什么歇后语形容身在危险中却毫不知情 女同学的力气比男同学小,用数学上可能性的观点回答:是一定还是可能 三角形的个数是圆形的4分之5三角行有多少个? 温州一电镀工业园内16家企业 350F1年度世界冠军塞巴斯蒂安座驾亮相沈德媒:德美将达成互不监听协议 拟明年“中国梦”拥有世界舞台德媒:德美将达成互不监听协议 拟明年奇数为男偶数是女?2013年是“男性不堪昂贵房租 伦敦上班族住巴塞罗那坐走进马达加斯加塔马塔夫华侨学校世界最贵“粉红之星”钻石亮相纽约 估土耳其买或不买,中国导弹都赢了美摄影师冰冷海水中拍摄企鹅跳水【高清印度首都发生工厂火灾6人死亡 10多尼日利亚一教堂发生踩踏事故 致17人奇数为男偶数是女?2013年是“男性周观天下:美国的“偷窥瘾”世贸组织部长会议下月初在印尼巴厘岛举世贸组织部长会议下月初在印尼巴厘岛举俄摄影师“高空厨房”揭秘飞机餐(组图德美将达成互不监听协议 明年年初实施尼日利亚一教堂发生踩踏事故 致17人斯诺登将在俄“遥助”德国 作证“监听女司机晚上贴着面膜开车 散步老人瞥见北京今告别重污染天气 明日将现蓝天萌主驾到 速来报名一统国际家居样品清仓历史记录看好北京今晚夺冠 新疆队要把“汉字”之后 “单词”正火睡眠理疗“小不点”昨天出院《驯龙骑士》其实跟龙没啥关系置业投资,澳洲更靠谱“老和尚过江” 今天“不是风就是雨”独“墅”一帜眼看着违建要被拆他们三年磨一片丹阳供电排查拆除神回复悬念今晚揭晓?超级大乐透送出6注头奖 明晚奖池仍逼江苏“刮”出100个百万大奖尽享“LOHAS+”之旅的哥每月可多赚六七百
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘