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

VB建立文件关联 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
VB建立文件关联 -VB资料

 
文件关联是指打开一种类型的文件的默认方式,比如默认状态下文本文件txt是与记事本程序相关联的,我们双击文本文件,就能直接运行记事本程序来编辑它。文件的关联是通过注册表得以实现的,本例就是利用API函数RegCreateKey和RegSetValue来对注册表进行修改,从中可以看到这两个函数的用法。

  为了学习方便,提供的源码已经作了详细的中文注释,看看源码框中的代码:


(源程序下载)

  我们先来声明API函数,本例中用到的两个函数声明如下:
   Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&) As Long

   Private Declare Function RegSetValue& Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&) As Long

  RegCreateKey函数的作用是在注册表中指定的主键下创建一个新的主键,而如指定的键已经存在,那么函数会打开现有的主键,其中各个参数的意义如下表所示:

参数 意义
hKey Long,要打开键的句柄,或者一个标准键名。例如:HKEY_CLASSES_ROOT 是标准键名
lpSubKey String,欲创建的新子键。如创建多个键,需用反斜杠将它们分隔开。例如:level1\newkey
phkResult Long,指定一个变量,用于得到新子键的句柄,在设置键值时要用到它
返回值 Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码

  RegSetValue函数用于设置指定键或子键的默认值,它的各个参数的意义如下:

参数 意义
hKey Long,一个已打开键的句柄,可从上面phkResult得到,或是指定一个标准键名
lpSubKey String,要设置键值的一个子键的名字。如指定vbNullString,表示设置hKey的默认值。如指定的子键不存在,则会创建它
dwType Long,必须是REG_SZ
lpData String,新的键值
cbData Long,指定lpData的长度,不包括空中止字符
返回值 Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码

  下面我们看看怎样实现文件关联,步骤一:在在注册表的HKEY_CLASSES_ROOT下创建MyApp主键:
   ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

  语句中sKeyName已经预先赋值为"MyApp",而函数执行完后lphKey&会返回新创建的主键的句柄,然后我们向句柄lphKey&所指的位置写入键值sKeyValue(已经赋值为"Logfiles")
   ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

  如果这时查看注册表,会发现如下图所示的新主键和键值:



  步骤二:在注册表的HKEY_CLASSES_ROOT下创建另外一个主键,键名为“.log”,键值为“MyApp”,创建的方法与第一步相同,只不过键名和键值不同。建立此键值的作用是,把“.log”文件关联到“MyApp”主键所规定的内容,这时的注册表如下:



  第三步:我们为“MyApp”设置了一个命令行,也就是在主键MyApp下建立如下主键:



  实现的代码是:
   sKeyName = "MyApp"        '*名为MyApp的键名
   sKeyValue = "notepad.exe %1"   '*把键值设为"notepad.exe %1",%1指的是要打开的文件
      '如果该键已经创建,则RegCreateKey那么函数会打开现有的项
   ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
      '下面一句的实际效果是在MyApp键下建立shell\open\command目录,并写入键值sKeyValue
      '说明:放在一个键的shell\open\command下的是打开某一类型文件的应用程序的名称
   ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

  经过以上几个步骤,我们已经建立了“.log”文件和“记事本”程序的关联。总结前面的内容可以发现在VB中采用API对注册表操作的基本思路都是类似的,只要我们知道了两个API函数的用法,然后熟悉注册表操作,就能灵活的写出与注册表相关的程序来。
《近匠》Amaze UI:做最懂中国程序员的开源HTML5框架 Testin CTO徐琨:要做测试领域的阿里云! TIOBE 2015年2月编程语言排行榜:JavaScript排名达历史最高点 机智云发布第二代GoKit开发板,兼容Arduino与Intel Edison 计算机视觉,让冰冷的机器看懂这个多彩的世界 昔日学霸反哺教育 打造教育领域今日头条 第三方DevOps实践报告发布 84%中国企业预将受益 《程序员必读之软件架构》作者Simon Brown:架构师与程序员的区别 Xcode 6.3 Beta发布,Swift 1.2带来哪些新变化? 应用生与死:移动测试究竟该怎么搞? Chrome将跟SPDY说再见,拥抱HTTP/2 ImageNet挑战赛中超越人类的计算机视觉系统 微软发布首款Android可穿戴设备人工智能产品 红包大战!双11过后,微信支付宝的又一个营销游戏 O2O大潮来袭,洗牌将至? 谈谈UI架构设计的演化 Node.js 开源基金会成立,Joyent让出领导权 LinkedIn分布式实时性能跟踪与效率优化实例 DIY机器人不是事!软硬两不误的开发平台RoboCORE 详解OS X和iOS图像处理框架Core Image 快的打车联合创始人兼技术副总裁闻诚:CTO要有“334”能力 阿里巴巴正式加入W3C,成为W3C会员 在Swift中,如何像Objective-C定义可选接口? DARPA:4年内推出具备触觉的机械手 Silver:用Swift编写iOS、Android和.NET应用 Swift没有异常处理,遇到功能性错误怎么办? 基于Python的测试驱动开发实战 不能守株待兔!移动互联网时代:产品找用户 淘汰传统屏幕,虚拟现实新纪元何时开启? 《近匠》SENSORO CTO赵东炜:解密iBeacon生态 我由Angular转向React,为什么? 请过了网络设计师的兄弟帮帮忙! 在C中,找一个字符或字符串在另外一个长字符串(64K)最后出现的位置,怎么实现最高效呢? 用 DHCP 分配了二个网段的IP地址。 “斑竹”在吗?象是只有你能够解决了!!!(附程序及错误代码!!!) 请问哪位仁兄知道SYGATE4.2 build 803的注册码? 如何在表单中阻止双引号??? 大虾们,帮我看看,这个错误和警告是什么原因造成的? 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? (x-1/x)^5的展开式中含x^3项的二项式系数为? 设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19(1)求f(x)的展开式中x ^2的系数的最小值及m,n的值(2)当f(x)的展 两个数相除,商4余1,被除数,除数,商和余数的和是156,被除数,除数各是多少? (2x+1)^5的第三项,第五项,第六项的二项式系数,第四项的系数,x³项的系数,x^5项的系数这下多少啊? 整式f(x)=(1+x)M次方+(1+x)N次方(M,N∈N*)中含X项的系数为19,求f(x)中x2项系数的最小值 {an}为等比数列,公比r>1.a1+a2+a3=21及a1a2a3=216.(a)求通项an.用(a)结果求a1^a1a2^a2...an^an,n=1,2... 在等比数列{an}中,a1+a2+a3+a4=15/8,a2a3=-9/8则1/a1+1/a2+1/a3+1/a4= 关于excel2010的问题公式右拉的问题例如我计算一个公式b11=b10/b1,然后再b10这行往右拉,公式却依次变为c11=c10/c1 d11=d10/d1.,就是最后分母依次都变了,我要的分母都是b1啊,在选项当中我也设置了自 二项式 奇数项的二项式系数之和 与 偶数项的二项式系数之和 怎么求 ,求详解x=1,奇数项加偶数项之和x=-1,偶数项减奇数项为什么啊 excel2010用公式显示某一列出现的第一个数字可能是我没有描述清楚问题把,我要的是如A列中既包含汉字又包含空格和数字,如何用公式显示出从A列中(如A1单元格到A1000单元格)从上到下遇到 已知功率p=45kw,需用系数Kx=1,功率因数cosφ=0.9,怎样计算它的计算电流Ijs是多少? 三相异步电动机的正反转双重连锁加点动的控制电路图 EXCEL2010如何用公式查找出一列中的日期A1 2014-8-5 15:50:25 2 2014-8-5 15:31:58 3 2014-8-4 18:38:55 4 2014-8-4 18:29:29 5 2014-8-1 16:49:18 6 2014-7-30 17:18:41 7 2014-7-29 17:16:38 1、如何用公式在A列中找出2014-8月的数据2 已知二次函数f(x)的二项式系数为a,且不等式f(x)>-2x的解集为(1,3) (1)若方程f(x)+6a=0有两相等实根,求f(x)的解析式(2)若f(x)的最大值为正数,求实数a的取值范围 求三相异步电动机控制回路及主电路图(要正反转能点动和连续运行) 220V电压5A电流的闸刀开关最大能承受多少功率?(公式) 两个数相除,商是42,被除数,除数商的和是102.2,被除数是( ), 下列式子的计算过程正确的是()A、5千克=49牛 B、5千克=5千克力=49牛 C、5千克=5千克X9.8牛/千克=49牛D、5千克x9.8牛/千克=49牛快,现在就要 已知f(x)=(1+2x)∧m+(1+4x)∧n(n,m∈自然数)的展开式中含x项的系数为36,求展开式中含x∧2项的系数最小值! 1、两个数相除,商是42,被除数、除数、商的和是102.2,被除数是()2一头鲸中162吨,比一头大象体重的37.5倍还多12吨.这头大象是多少吨(方程解) 3、同学们参加义务活动,给树木浇水,五年级同学 以下算式如何算?(1+7/505)+(1+7/505x2)+(1+7/505x3)+...+(1+7/505x99)+(1+7/505x100)1+1/2+2/2+1/2+1/3+2/3+3/3+2/3+1/3+...+1/10+//2/10+...+10/10+9/10+...+1/10 如何在数据透视表中插入计算字段?比如数据透视表中有“销量”和“销售任务”字段,要插入一个“完成比例”字段,通过“销量”/“销售任务”来得出完成比? 两个数相除,商24余1,除数是42,被除数是()一行有36棵小树,现改成株距5m,一共有几棵小树不必移动? 下列程序段是计算 公式的:下列程序段是计算   公式的:  s=0;t=1  for I =1 to 10     t:=t*I    s:=s+t  Next I  A、s=1+2+3+……10       B、s=1*2*3*……10  C、s=1!+ 11KW三相异步电动机空载电流是多少?11KW4级三相异步电动机,空载电流16--17A.新的电机,轴承新的,无摩擦!3到4台检测的空载电流都是这样?还有一台11KW-4级空载电流上到22-23A.新的,轴承也新的!为什 两个数相除商是42,如果被除数和除数同时扩大是10倍,商是() 数学(2x+1/x^2)^n的展开式中,第三项的二项式系数比第二项的二项式系数大27,求展开式中的常数项 谁知道电压380v,功率为50KW的鼠笼式三相异步电动机空载电流为原来的5到6倍的原因 两个数相除的商是4分之3被除数与除数的和是42被除数是( ),除数是( ) (x-1/2x)^n的展开式第三项的二项式系数是15,则展开式中所有项的系数之和为……?我怎么也算不出n值~ 三相异步电动机空载电流不平衡今天我做了一台电机的型式试验,结果如下:1.三相冷态电阻平衡2.Ik平衡3.三相电压平衡4.只有I0不平衡,且不平度为10%~20%,第一次实验全部为C相I0大;第二次实验 已知(根号下x+2/x)^n展开式中所有二项式系数和为256 用计算机计算(6+2)*3时的按键顺序是/按7 x^ / (-) 5 * 3 .2 =能计算的算式是用计算机计算(6+2)*3时的按键顺序是按7 x^ / (-) 5 * 3 .2 =能计算的算式是A.7^2/8*3.2B.-7^2/5*3.2C.7^2/(-5)*3.2 D.7^2/5*(-3.2) 二项式(x^2+1/x)^5的展开式中x^4的系数是 答案是10还是-10,麻烦说下谢谢二项式(x^2-1/x)^5的展开式中x^4的系数是 括号内的是减号,上面打错答案是10还是-10,麻烦说下谢谢 已知f(x)=(1+x)∧m+(1+x)∧n(m,n∈N*)的展开式中x的系数为19,求f(x)展开 工资表的计算公式怎么做 在[X/2-X^(-1/3)]^N的展开式中,只有第5项的二项式系数最大求展开式中的常数项 设m,n属于N*,f(x)=(1+x)m=(1+x)n,若f(x)展开式中x的系数是19,当m,n变化时,求x2系数的最小值. 求工资表公式描术:工资表“补贴”一栏 陈XX补贴为500元/月 张XX和王XX的补贴为300元/月,补贴以26天/月计算,就是上班不到26天要扣掉缺勤天数的补贴工资,例如:陈XX 上班20天 500元/26天*20天=38 二项式(1-2/x)^5的展开式中第四项的系数为 设m,n∈Z+,m、n≥1,f(x)=(1+x)m+(1+x)n的展开式中,x的系数为19.(1)求f(x)展开式中x2的系数的最大、小值;(2)对于使f(x)中x2的系数取最小值时的m、n的值,求x7的系数. 工资表中的公式怎样用?工资中假如A1单元格的基本工资为1200 我算加班费为=1200/21.75/8*加班时间.我用工式:=A1/21.75/8 *加班时间 但是也有人的基本工资为900、1300不等而且加班时间也不一样.是 {an}为等比数列,若a1+a2+a3=26,a4-a1=52,求an excel2010这样的公式怎么编辑?总数=40+X×30%+Y×30% 怎样求二项式系数的最大值项数n已知(补充) 希望尽快回复, 在等比数列an中,a1+a2=20,a3+a4=40,则S6 三相异步电动机的额定功率是指什么? (a+b)^n的各二项式系数的最大值是 三相380V的电机,怎样根据电阻计算功率?一台电压380V的异步电动机.不知道功率,能不能根据它的电阻计算出功率? 已知一台三相异步电动机的额定功率是P=5.5KW,额定电压U=380V,额定功率因素cosa=0.86,额定效率η=0.86,额定转速n=1440r/min,求额定电流I 9、设m为正整数,(x+y)2m展开式的二项式系数的最大值为a,(x+y)2m+1展开式的二项式系数的最大值为b若13a=7b,则m= ( )A、5 B、6 C、7 D、8 三相星形接法如何计算功率和电流?2200W,380V的电动机电流是多大?三相星形接法如何计算功率和电流?如2200W,380V的电动机电流是多大?电机上所标的电流是通过单条导线的电流还是三条导线的电 拜托了我明天要交某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,额定功率因数为0.88,额定转速为2920r/m (a+b)的九次方的各项二项式系数的最大值是多少 EXCEL如何用公式统计数量?表格总共有2000多行的数据,第一列是日期,第二列是类型,第三列是行业,求第四列是行业数量求在第一列和第二列相同的情况下,求第三列中同一行业的数量.如图,在A列 三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的额定功率 怎么三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的 在二项式(a+b)^n的展开式中若第三项的系数是第二项系数的3倍,则n= 已知等比数列{an}中,a2,a3,a4分别是某等差数列的第5项,第3项,第2项,且a1=64,公比q≠1(1)求an(2)设bn=log(2)an,求数列{bn}的前n项和Tn 三相异步电动机Y160M-2由铭牌查得额定功率P=1.5KW;额定电压U=380V;额定功率因数cos=0.88;额定效率88%;修后测得空载电流为9A,试判断它的空载电流大小是否合格要写出计算步骤 两个数相除商4余1,被除数、除数、商、余数的和是156,求被除数和除数各是多少?用分步
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn