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

VB使用历史文件记录

HTML文档下载 WORD文档下载 PDF文档下载
VB使用历史文件记录

 
Visual Basic 提供了一个标准的注册表位置以存储创建于 Visual Basic 的应用程序的程序信息,同时VB也提供了几个标准的语句或函数来处理存储在应用程序注册位置的程序设置如GetSetting函数、SaveSetting 语句、DeleteSetting 语句。本例的历史记录(是最近打开文件的记录,例如WORD软件)就是用这几个函数实现的。

  
  如下所示就是现在名为DEMO的程序的程序信息在注册表中所处的位置,VB提供的标准注册表位置是在: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\ 下,假设我们当前程序名为DEMO,则在注册表的相应位置就可以看到程序的信息。



  下面一起看看怎么用上面提到的几个函数和语句对注册表进行操作。这几个函数的作用分别是:
  GetSetting 函数   检索注册表设置值。
  SaveSetting 语句   保存或创建注册表设置值。
  GetAllSettings 函数 返回一个包含多项注册表设置值的数组。
  DeleteSetting 语句  删除注册表设置值。

  以GetSetting 函数为例,GetSetting 函数使用的语法为:
  GetSetting(appname, section, key[, default])
  各参数的意义如下表:

参数: appname section key default
意义: 应用程序名称 表的名称 表项的名称 表项的值

  函数的返回值是得到的键值。例如我们使用下面语句:
  Filename1= GetSetting("Demo", "RFile", "File1", "")
  就能得到上图所示的第二条历史记录的值。

  其它函数的用法分别为:
  SaveSetting(appname,section, Key, Value)
  DeleteSetting(appname, section, key)
  各个参数的意义跟 GetSetting函数是相同的。

  在例程序中,每次打开一个文件,程序会判断这个文件是不是历史记录中已有的记录,如果不是,便通过SaveSetting语句将文件的路径写入注册表,而当选择“清除历史记录”时,程序通过DeleteSetting 语句删除所有的历史记录。

  使用这几个函数,还能实现其它的功能,比如保存程序的初始化设置,保存密码等,我们都可以仿照源程序中的语句来实现,如果有兴趣的话,试一试吧。
VB如何设计一个可中断循环的按钮。 VB如何实现VB程序登录密码加密 VB如何使程序不出现在任务列表中 VB如何使键盘、Mouse失效(JournalPlayBack Hook) VB如何使用 DBGrid VB如何突破 TextBox 32K 的限制? VB如何为执行程序加上参数? VB如何压缩较长的全路径文件名中的路径 (Path) 字串长度? VB如何在VB中实现密码的读取 如何在VB中使用命令行参数 VB如何在内存中的指定位置取数据? VB如何在已经存在的文本的textbox添加新的一行 VB如何在資料庫中存入單引號? VB如何正确使用VB6访问Access2000数据库 VB如何自动记录计算机开机时间? VB如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能 软件工程篇-Const与#Const的对比 -VB资料 软件工程篇-从Visual Data Manager开始 -VB资料 软件工程篇-理解错误处理代理 -VB资料 软件工程篇-清空集合内容的几种方法 -VB资料 软件工程篇-受限制的共享软件Shareware -VB资料 设定CapsLock ScrollLock NumLock-VB资料 设置计算机名称-VB资料 深入SERIPTING RUNTIME LIBRARY-VB资料 '识别常数的简单四则运算-VB资料 实现平面工具栏 -VB资料 使程序不在 Ctrl+Alt+Del 弹出的对话框内-VB资料 VB使用 API 开始屏幕保护 VB使用rdoPreparedStatement实现参数化查询 使用Vb5制作Easter Egg 使用VB实现所见即所得功能 怎样取消textbox的凹凸感? 为什么在IE6 中使用Ctrl+Shift组合健得到的连接是http://www.china.co.cn 为什么总是出现Invalid BLOB handle in record buffer错误 大家晚上好,怎么让我的程序里有一小块是网页的内容呢?(全部家档!!) 关于Database和Session的问题!火急!(快乐的程序员) jsp+mysql如何在linux上配置 有知道黑龙江高程查分方法的吗????? *******我要一个这样的类:显示淡入淡出的菜单(最好还能有半透明的功能) *************** 特急,各位帮忙。怎么样在字符串中包含'(单引号)? 高分求助用paradox数据库保存JPEG图片的代码,我试过网上好多都没成功。markoni@21cn.com 吴文智、袁飞、Jinesc、Jneu、Amoon、ttyp、icevi、progame 快请进 请教一个表与表之间比较数据的问题,由于数据量大,造成事务不够,请教解决方案 execcommand的使用方法求救。高手请进,一定给分。 我的时钟怎么回事? Matlab论坛 打印机的取消按钮 dbgrid中当某个单元格失去焦点时触发什么事件? 关于Database和Session的问题!火急! yanxu1 学习unix下的c编程,该如何学?请介绍方法,资料什么的--我对unix和c都还熟悉。 打印机死机作何解?????? 我是新来的,请各位大哥、大姐们多多关照!!!(有内容) 再次发问关于sql server7的问题?? SQL SERVER中的一个触发器的问题!!! xml里有什么method可以取得子节点在父节点中的位置(序号)? please help me 怎么样才可以把系统存储过程的结果写到结果集里? 如何声明和使用自定义对象(如:Tdataset)的事件(beforecancel)?? 一个奇怪的问题? 各位兄弟,谁知道哪里有pb7的下载? 天呐 我提的问题从来没人回答 SQL Server小小问题 请问那里有DELPHI第二张光盘下载! 如何是使用describe来获取datawindow中的带区参数? 谁有早期的TeeChart5.ocx,文件大小为2,576,384,发行日期在2001-06-17号以前的,我这里有个crack软件,但是新下载的不行,所以重金寻求!!! 请问C语言中有字符串查找函数吗? 请问如何动态的改变应用程序的图标,一定给分 Query主从表编辑问题,从不丢失! 急急急!!!! 高分求禁止IE的自动谈出的广告,有个软见也行,或者告诉实现方法。请告诉下载的网址。 打印一些清单在delphi中用哪些控件比较好? 如何打印到文件 如何得到WINDOWS的拼音字库 如何在BCB中进行SDK编程? 一个简单关于对话框的问题------->> 用asp将图片插入数据库,到底错在哪?苦恼啊!以前这个也通过了(win2000server+Sql7.0)但...(高分!!!!) 为什么我在Access2000的mdb中只能最多得到一条记录? 男人25岁就大吗? 关于 C 类IP的屏蔽 配置为COM+组件后,CoCreateInstance 失败! 关于C 类 IP的屏蔽 有谁知道本.拉登的QQ,俺找他有事?重奖`~~~~~~~~~~~~~~~~~~~! 某大楼地上共有12层,地下共有4层,某人乘电梯从地下3层地上7层,电梯一共升了多少层?要列式 一个长方体,它的高和宽相等,若把长去掉2.5厘米,就成为表面积是150平方厘米的正方体.长是宽的几倍? 把60L水倒一个棱长为5dm的正方体容器里,水的高度是( )dm 一个长方体,它的高和宽相等,如果把长去掉2.5dm,就是成为一个表面积150平方分米的正方体.原长方体的体积是多少立方分米? 一个长方体的高和宽相等,若把长去掉2.5厘米,就成为表面积是150平方厘米的正方体.原来长方体的体积多少 什么叫转基因食品? 一个长方体,它的高和宽相等,如果把长去掉2.5dm,就成为一个表面积是150平方分米的正方体.这个长方体的长是宽的几倍?要算式 一个长方体,它的宽和高相等,如果把长去掉2.5厘米,就成为一个表面积是150平方厘米的正方体.那么原来长 1.有关“转基因”的资料,转基因技术的由来.——————————————————————————————————2.“转基因食品”是有益还是有害?请找到相关材料,说明.————— 一个长方体去掉俩分米后,这个长方体就变成了正方体,表面积就减少了48平方米,原来长方体表面积是多少? 王叔叔在加油站加了40升汽油,开车去距离加油站200千米的省城办事.每升油行驶8千米,到达省城时还剩下多少升油 小明和父母一起开车到距家200千米的景点旅游.出发前,汽车油箱内储油45升;当行驶150千米时,发油箱剩余油量为30升.(1)写出用行驶路程x(千米)来表示剩余油量Q(升)的代数式 5.长方体体积的计算方法一个长方体,它的高和宽相等,如果把长去掉1.6分米,就成为一个表面积216平方分米的正方体.原长方体的体积是多少立方分米?6.正方体体积的计算方法把一块棱长6cm的正 6、司机王叔叔在加油站加了30升油后,去距离加油站180千米的公司去办事,按每升汽油可行驶8千米计算,要想着回来还需要加多少升汽油? 小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储油20升,当行驶120千米时,发现油箱剩余油量为10.4升.如果油箱中剩余油量少于3升时,汽车将自动报警.(1)如果汽车平均每一 转基因食品的好处有那些举例说明!最好短一点!举例说明!举例说明! 汽车消耗1升汽油可行驶6.4千米.已经加了45升气油,去距离加油站15O千米的地方,往返一次,汽油够用吗?为什么? 小明和父母一起开车到距家200千米的景点旅游.出发前,汽车邮箱内储存油45升,当行驶150千米时,发现剩余油量为30升.(1)已知邮箱内储存剩余油量y是行驶路程x的一次函数,求y与x之间的函数关 转基因食品有什么优点? 方舟子为什么要批评钱学森是伪科学家?两弹一星是方舟子造出来的? 有小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储油20升,当行驶120千米时,发现油箱剩余油量为10.4升.如 转基因食品有哪些好处? 12.某超市为“开业三周年”举行了店庆活动.对 、 两种商品实行打折出售.打折前,购买5件 商品和1件 商品 小明到距家200千米的地方旅游,汽车油箱内储油45升,当行驶150千米发现剩油量是30 升,已知油箱内余油量y升是行驶路程x千米的一次函数,求函数关系式 转基因食品有什么好处?各位谁能告诉我啊``` 超市为“开业三周年”举行了店庆活动.对AB两种商品实行打折出售.打折前,购买5件A商品和一件B商品需要84元;购买6件A商品和三件B商品需要108元.而店庆期间,购买50件A商品和50件B商品仅需960 我市环保局将一个长为2×10分米,宽为2×10分米,高2×10分米的长方体废水池中的满池废水注入正方体储水池中净化.那么请你考虑一下,能否恰好有一个正方体储水池将这些废水刚好装满?若有,求 转基因食品的优势 某超市为“开业三周年”举行了店庆活动,对A、B两种商品实行打折出售,打折前购买5件A商品和1件B商品需用84元;购买6件A商品和3件B商品需用108元,而店庆期间,购买50件A商品和50件B商品仅需960 什么是转基因食品, 某仓库有16.8吨大米第一次运出大米7分之一,第二次运出余下的4分之3.一共运出多少吨? 把一个长为2×10的3次方分米,宽为4×10的2次方分米,高为80分米的长方体废水池中的废水注入正方体储水池净化,已知正方体储水池的棱长为5×10的2次方分米,这些废水能否一次注入到储水池内净 某市环保局欲将一个长为2*10的4次方cm,宽为4*10的3次方cm高为8*10的2次方cm的长方形水池中的水,正好注满个正方形的水池,求正方体的棱长 一辆汽车正常行驶100km,消耗汽油5kg,一只该车的油箱为40L,给油箱装满汽油时,该汽车可正常行驶多远?如果正常行驶的速度是70km/h,一箱汽油可供该汽车正常行驶多少小时 市环保局将一个长为2×10的6次方,宽为4×10的4 次方分米,高为8x10的2次方分米的长方体废水池注入一个正方体贮水池进行净化,请你通过计算考虑,能恰好有一个边长为整数的正方体贮水池,正好 青州市的环保局将一个长为2×10的三次方分米,宽为2×10的二次方分米,高为2×10分米的长方体水池的废水注入正方体水池净化,那么考虑一下,能否恰好百一个正方体水池将这些废水刚好装完?若 一个长方体它的宽和高都相等,如果把长去掉2.5cm,就成一个表面积150平方厘米的正方体,那么原来长方体体积?那么原来长方体的体积是多少立方厘米 一辆汽车的油箱长50厘米,宽40厘米,高30厘米.如果每升汽油可以行驶10千米,当行驶400千米后,油箱里大约还剩下多少千克汽油?{已知每升汽油重0.82千克} 运一批树苗,第一天运了146棵,第二天运了154棵,两次运的数量比总数少1/4,这批树苗一共有多少棵?列方程 方舟子的博客里为什么自称总是用方舟子?比如方舟子说如何如何,方舟子被打如何如何,为什么不用“我”“本人”之类?让人看了觉得很不舒服.难道方舟子的博客是专门有枪手捉刀的么?如果 方舟子是谁 初二数学上册书上复习题B组第3题 某商场购进商品后,加价40%作为销售价,商场搞优惠促销,决定由顾客抽奖某商场购进商品后,加价40%作为销售价,商场搞优惠促销,决定由顾客抽奖确定折扣,某顾 甲乙店矿泉水促销,甲店买2大瓶送1小瓶,乙店一律打八折,买大瓶8元,小瓶2.5元,买4大瓶、2小瓶,哪个商店更经济?为什么? 对的方舟子评价一下我个人挺喜欢方舟子的,他正义,实事求是.看见好多网友的评论有表扬的也有批评的,批评声中不乏文采超好的人.方舟子有错吗?只不过说了真话而已. 某商场购进商品后 加价40%后作为销售价.现商场搞优惠促销活动,决定出顾客抽奖确定折扣.一人买了一双鞋和一个包,分别抽到七折和九折,共付款109.2元,两商品原销售价之和140元,鞋和包进价各 小桃去商店为美术小组买宣纸和毛笔,宣纸每张2元,毛笔每支15元,商店正在搞优惠促销:买一支毛笔送一张宣纸.小桃买了10支毛笔和x张宣纸,那么小桃用的总钱数y(元)与宣纸张数x(张)之间的函数 把60升的水倒入一个棱长为5dm的正方体水箱中,水深()dm 某汽车行驶时油箱中余油量Q千克与行驶时间t小时的关系如下:写出时间t表示余油量Q的代数式行驶时间t小时 余油量Q千克1 36-62 36-123 36-184 36-245 36-30 “绿满梅州”活动中,某镇要从外地运一批树苗,第一次运了520棵,第二次运了总数的5/12,两次共运了总数的85%.两次共运树苗多少棵? 把100升的水倒入一个棱长为5dm的正方体容器里,水的高度是多少dm? 某汽车行驶时油箱中余油量Q千克与行驶时间t小时的关系如下:写出时间t表示余油量Q的代数式行驶时间t小时 余油量Q千克1 36-62 36-123 36-184 36-245 36-30提问:当T=二分之三时,余油量Q的值为多少千 仓库里有60吨钢材,第一次用去总数的五分之一,第二次比第一次多用四分之一.第二次用了多少吨 一批货物共100吨,第一次运了总数的1/4,第二次运了总数的1/5,第一次比第二次多运多少吨?两次共运多少吨? 把48L(升)水倒入一个棱长为4dm(从里面量)的正方体容器中,水深多少dm? 高速公路限速120KM 我跑了123KM要罚款吗?也就是在同一个地方我被拍了3次,都是超过3-5KM,我打电话问过12122,他们的解释是120KM以上的话超过1KM都要罚款,我问不是超过%20才罚款吗,交警的回答是限 一个长方形,它的长和高相等,如果把长去掉2.5厘米,就成为表面积是150平方厘米的正方体,原长方体的体积是多少? 今年“十一”黄金周,超市A和超市B都进行了让利销活动(2个超市东西价格都一样的)超市A是20购买为( )元的商品,A、B超市都合适?思路 线段AB是连接A,B两城市的高速公路,全长300km,在AB上建有一个休息处C,已知AC:CB=7:3,一辆客车的速度是70km/h,请你求出这辆客车从A到C所用的时间. 把一个长方体的长去掉4cm,成了一个正方体,表面积减少了64平方厘米,这个长方体原来的体积是多少? 把100生的水倒入一个棱长为5dm的正方体容器里,水的高度是多少dm?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn