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

无关联程序时开启“打开方式”窗口 -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"
日本最大电脑商:Windows 8表现并不好 日均新增415个应用,Windows 8应用总数突破35000 百度推出图像搜索引擎“百度识图” 可基于图像实现全网人脸搜索 解决专利纠纷 RIM向诺基亚预付6500万 巨头的得意与失落:2012移动游戏十大收购案 Mozilla或许将发布iOS平台浏览器Junior Mozilla:Facebook手机将采用Firefox OS Anonymous2013年将放慢脚步,McAfee预测遭质疑 一周消息树:Facebook公布2012年Hackathon大赛顶级“黑客作品” HTML+CSS+JS 开发 Firefox OS 应用编程实战 前端开发工程师如何在2013年里提升自己 Java受Objective-C影响很大 而不是C++ Instagram回击报告指责:用户仍保持增长态势 回顾:2012年科技行业十大败笔 苹果地图入选 Amazon CEO Jeff Bezos:好年景,大挑战 2012年度盘点:移动互联网大事件回顾 详解Amazon Redshift 移动周报:再见,2012!你好,2013! 英特尔或在2月宣布其电视计划:提供分类频道 Prismatic:用机器学习分析用户兴趣只需10秒钟 谷歌布局亚太地区数据中心建设 服务响应速度有望提升30% 2013年移动互联网行业技术趋势前瞻 老骥伏枥志在千里:回顾微软这一年 2013或将崛起 水落石出:在与谷歌苹果竞购创业公司中微软胜出 用扁平化的界面设计吸引用户 2012年12月份全球主流浏览器市场份额排行榜 冲榜不一定要刷榜:增加游戏曝光度的7大杀手锏 科技vs政治:FTC对Google的反垄断调查结束背后 威胁百度:奇虎360确认将与谷歌达成合作关系 Facebook更新Messenger应用 推免费网络电话服务 网上疯传iOS7概念设计:Dashboard是真是假? 请问哪里有数据库设计规范方面的资料 关于使用inet控件对ftp操作的问题 一个设计方面的问题,各位高手请进!! 急急!清VB.net高手帮助.如何实现利用扬声器发生程序? 对象参数问题 如何得到文件路径 关于窗体的管理 JAVA代码操作数据库备份MYSQL? 我要将TEST01下所有的表授权有没有更简便的方法??? 数据库面试题,大家看看(给分无商量) 存储过程问题拉!帮忙看看吧! 关于ExportMap输出图片的问题? Image控件的问题? sql server 连接 请问无组建上传的详细代码解释。 怪问题! 对文件操作总报I/O error 32,请教???? 网上邻居的问题。 有一个比较基础的问题想同大家共同探讨。 急需各位高手帮忙 数据库冷备份脚本 在网页里如何检测IP地址? 调用其它程序问题! 谁能给我一个进销存的库结构啊 ▲▲▲ 有个"矩阵加括号"的通用程序,如何把它改得更好!!! "link"是什么意思? VB控件的问题 到这里放松一下吧:) 水晶报表报登录失败有什么原因? windows advanced server 2000 的雙網卡問題? SQL SERVER 在ASP 中的分页技术 socket数据传输中网络断开,如何处理? <<黑客II>>人物分析搞怪版 简单问题请教!!急!! 请问MSSQLServer7可以直接通过COPY数据库达到备份的目的吗? 各位大鸟们:帮兄弟拿个主意? 怎样改变webform的caption阿 怎样在程序中实现关闭或开启触发器? 如何把CListCtrl的滚动条移到最底端? TPageControl怎么动态生成一个TabSheet? vb6的工具菜单下有一个添加控件集工具,可以添加按钮列表框,树状视图列表视图拆分条,移动钮列表框3种,请问还可以找到更多的控件集吗? 请问为何cup周围有两个电容鼓起来? 上传文件时,出现Access to the path "c:\inetpub\wwwroot\upload\abcrar" is denied. TPageControl怎么动态生成一个TabSheet? treeview控件,如何能删除被选的节点的相邻两层?? 图像缩略图的问题,在线等待,急,我就只剩这些分了,倾囊相送,不要嫌少,谢谢了 指针,变量声明的问题,急,在线等待 大家推荐一款路由器,采用后100分相送! 一个字符串问题 我在project里面加入lib文件后,连接时报“linker error:segment _text exceeds 64k”,该如何解决。 一个字符串问题 如果没有任何保护措施,老虎将在何时灭绝?A 据专家估计,将在2022年灭绝B 据专家估计,将在2032年灭绝C 据专家估计,将在2042年灭绝 若将时钟调慢10min,则时钟转过的角度为?分针转过的角度为?急吖! ( )山( )野 填近义词 以党为主体做某事的意义 营养液广告词:口蜜腹健,是什么. 填近义词 ()山()野 填反义词()上()下求好心人,谢谢了~! 為什么男人是女人的依靠,為什么女人不可以是男人的依靠?為什么男人娶女人囬傢,而不是女人娶男人囬傢?為什么男人負勒女人,教負心漢;女人揹叛勒男人叫濫貨? 1.依据自己的生活经历和情感体验,仿照下面的句式再写几句话.童年的趣味,在百草园短短的泥墙根一带;童年的趣味,在夏夜里美女蛇的生气传说;童年的趣味,在---------------------------;童年的 教材解析135页关于线性规划题,9题,见补充我的疑问是:解析说函数与x轴有两交点,则b^2-4a^2>0,那万一系数a<0呢? 生男生女到底取决于谁?是女人还是男人? 我不了解 求三角形的面积 目前,已有97个世贸组织成员承认中国的完全市场经济地位.而美国、日本、欧盟等发达国家均拒绝承认中国的市场经济地位,并以完全市场经济地位来压制中国,这一情况表明( )A.经济全球 下面广告有别字,把这些别字改对,说明是哪种商品做的广告百衣百顺、口蜜腹健、一臭万年、随心所浴 数学中的应用题是否是中国特有的 新经济自由主义和极端自由经济主义的名词解释. 营养液广告词把口蜜腹剑写成口蜜腹健,这样打广告的利弊何在 两个通风管道相交一个圆形面,圆形怎么算圆圈那怎么计算工程量,单独标出700,600的地方是通风管道的直径吗? 怎样判断一个点是否在三角形内或者外我需要 的 我用来编程的啊 用方程的方法啊下面的大哥 你说的 方程 我还是没搞懂啊 你用 普通的方式给我写出来好嘛 就是X+Y=0 这样的形式 降压型DC-DC电源转换器怎样提高带负载能力模电课设要求的,12转5伏,用555做的,现在带上5Ω电阻后电压降至1.7伏,是为什么呢?因为电流过大吗?怎么解决呢? 方转圆计算法大神们帮帮忙 如何判断一个点在三角形内要通过计算。 知道三角形六个边角元素的其中哪几个可以确定一个三角形? 提高我国国民经济的整体素质 C#判断一个点是否在三角形内?在Form窗体中,指定三个坐标点A(ax,ay),B(bx,by),C(cx,cy),怎么判断一个任意点P(px,py)在点A,B,C所组成的三角形区域内? 什么是三角形6个边、角元素今天做一道数学判断题,“三角形6个边、角元素,有5个元素分别相等的两个三角形是否全等”不懂是哪“6个边、角元素”谁能告诉我? 为什么细胞是圆的大神们帮帮忙 c++ 怎么判断一个点在三角形内已知三角形3点(x1,y1),(x2,y2),(x3,y3)和任意1点(x,y),怎么用程序判断点(x,y)在三角形内 在Rt三角形中共有几个元素 微积分 分已经不多,但这是我最后的一点,希望把解题详细过程写出来.238页:78题:试证明曲线y=x^3在任何点(a,a^3)处的切线一定与该曲线再次相交,交点处的斜率是在点(a,a^3)处斜率的4倍.242 收入的初次分配和再分配有什么区别? y=sinx+3/cosx-4求函数的值域提示:先把分母乘到左边,然后整理为sin(x+θ)=f(y) 然后 f(y)的绝对值小于等于一,解出不等式.计算量可能用点大,只需要把函数整理为sin(x+θ)=f(y) 堂皇的近义词是?不要富丽堂皇的近义词 财政收入是再分配还是初次分配? 三角形的6要素是什么 《大堰河-我的保姆》的意象 谁把谁的明媚尽收眼底意思 含有l,y,y或y,u,y,u的英文单词就是同时含有l、y、u其中两个或三个字母的英文单词 近义词(不要瞎答)骄傲 立即 缘故 精美 为什么不会有人能和你感同身受?好伤心…… 到底是方的还是圆的? 瞎的近义词[不要反义词】 物理隔离法中是不是所有整体受到的力每个个体都会受到请不要复制百科= = 高中物理受力分析什么时候可以用整体法?我指的是满足什... 瞎的近义词 批注的注意思是什么 整体法做受力分析的题目该如何做? 瞎想的近义词缩写句子1、就在我们几乎将这件事淡忘的时候,儿子收到一个写着他的名字并称他为“先生”的大信封.2、蒂姆出于高能物理研究的需要发明了万维网. 一个长方形被分成了四个不同的小三角形,其中①号三角形的面积是6平方厘米,②号三角形的面积是长方形的6分之1.长方形的面积是多少平方厘米? 三角形中有哪些元素? 哪位朋友能帮忙找下关于《雨》或《雪》《阳光》《青春》《友谊》《回忆》的文章.要求字数1000字左右,看到的朋友帮下忙,急用… 国家干预主义取代经济自由主义能否消除经济危机 三角形有几要素 想起了( )作文 长方形ADEF的面积是16平方厘米,三角形ADB的面积是3平方厘米,三角形ACF的面积是4平方厘米求三角形ABC的面 我们学过三角形的组成,元素有哪些 求三角形面积 什么是经济自由主义,什么是国家干预主义,它们对公共政策有何影响? 《大堰河 我的保姆》中作者为什么说“我看到雪使我想到你”,而不是看到春雨或是听到秋风萧瑟的声音 关于三角形面积 中国高考英语改革引发存废之争王岐山:不让有问题者心存侥幸 不允许19岁女孩把自己包装成富家女 梦想嫁41岁舟山大姐救下了轻生姑娘 自己被中国学者获准赴美天文会中印携手共谋25亿人福祉我海军“机动-5号”太平洋大演兵澳推出\"土豪金\"纯金厕纸每卷80冷空气今起渗透影响 明后天早晨稍微有昨天浙江国考报名不足10人岗位还有4美国美女记者采访被泼饮料仍淡定直播(伦敦出新规:街头排便者需自行清理(组沙特不收联合国“大礼” 表示对美外交美姐妹打造可爱“鱿鱼树” 做衣穿衣花俄总理:乘直升机上班因交通拥堵李克强梅德韦杰夫在钓鱼台相约散步菲总统再次称菲政府不会就人质事件致歉菲律宾总统拒道歉错上加错美国白宫请愿要求删除“杀死中国人”节辛格访华获“不寻常待遇” 两国握手世芝加哥农产品期价23日全线上扬作文版专家:房产税出台是大势所趋水韵江南failed: 罗杰斯:全球央行别再跟着星爸学装修 大宅更适合欧式单身女报名超男性两倍我给大家推荐一本书巧用市场中性策略对冲基金弱市称王江苏人均29677元排第五偏爱墙纸、大理石 环保要求更高成功人士首选欧式装修风格实体店冷清白酒股能弹多高一腔热血肥劲土房屋简装还是服务网可靠大宗交易透露孟凯想清仓老房装暖气只要一天防秋燥煮碗萝卜鲫鱼汤只剩遗址的西华门原来是这个模样人生的意义在于奉献胡家花园(1912街区店)付了40万首付款后却无法过户
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘