王朝知道
分享
 
 
 

如何让VB程序有“记忆”功能?

王朝知道·作者佚名  2011-05-18  
宽屏版  字体: |||超大  
 
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
 
问题描述:

我编了一个程序,每次运行前要输入一些参数。我想怎么能运行结束关闭程序后,再打开程序时,这些输入参数是上次输入的呢?比如text1.text,它可能每次都入都有新的变化,不能用form.load,但我只想运行程序时是上次那个输入的数。

请高手指点。

参考答案:

有没有搞错,你刚问过的啊,我回答的很详细了

你如还不明白就QQ我吧 ***********

我编的一个程序中就有这个功能,

是通过读写INI文件来实现的,

思路如下:

1.将你的参数写进INI文件中

2.读出参数

为此我专门建了两个读和写ini文件的函数,如下:

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _

(ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, _

ByVal lplFilename As String) As Long

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

(ByVal lpApplicationname As String, ByVal lpKeyName As String, _

ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, _

ByVal lplFilename As String) As Long

'lpApplicationname 应用程序名

'lpKeyName 该应用程序在设置文件(ini)中信息字段名

'lsString 该字段的值

'lplFilename 要保存的配置文件名如win.ini

'lpDefault 指向缺省的字符串

'lpReturnedString 指向从文件中读出的信息

'nSize 指lpReturnedString所指空间的大小

Public Function FunIniWrite(ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lsString As String, _

ByVal lplFilename As String)

'此函数用来实现写入功能

'输入:程序名,信息字段名,该字段的值,设置文件全名(含路径)

'如写文件成功返加1,否则返回0

FunIniWrite = WritePrivateProfileString(lpApplicationname, lpKeyName, lsString, lplFilename)

End Function

Public Function FunIniRead(ByVal lpApplicationname As String, ByVal lpKeyName As String, _

ByVal lplFilename As String) As String

'此函数用来实现读出参数功能

Dim result As Long

Dim Temp As String * 100

result = GetPrivateProfileString(lpApplicationname, lpKeyName, lpDefault, Temp, Len(Temp), lplFilename)

If result = 0 Then

Beep

MsgBox "failed to read from win.ini"

FunIniRead = ""

Else

FunIniRead = Temp

End If

End Function

用上述函数就可以将相应的设置写进文件,

在Form_Load事件中加入读出设置文件的代码,就可设置成功

我的很多小程序就是用的上面的函数实现了该功能

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
如何用java替换看不见的字符比如零宽空格​十六进制U+200B
 干货   2023-09-10
网页字号不能单数吗,网页字体大小为什么一般都是偶数
 干货   2023-09-06
java.lang.ArrayIndexOutOfBoundsException: 4096
 干货   2023-09-06
Noto Sans CJK SC字体下载地址
 干货   2023-08-30
window.navigator和navigator的区别是什么?
 干货   2023-08-23
js获取referer、useragent、浏览器语言
 干货   2023-08-23
oscache遇到404时会不会缓存?
 干货   2023-08-23
linux下用rm -rf *删除大量文件太慢怎么解决?
 干货   2023-08-08
刀郎新歌破世界纪录!
 娱乐   2023-08-01
js实现放大缩小页面
 干货   2023-07-31
生成式人工智能服务管理暂行办法
 百态   2023-07-31
英语学习:过去完成时The Past Perfect Tense举例说明
 干货   2023-07-31
Mysql常用sql命令语句整理
 干货   2023-07-30
科学家复活了46000年前的虫子
 探索   2023-07-29
英语学习:过去进行时The Past Continuous Tense举例说明
 干货   2023-07-28
meta name="applicable-device"告知页面适合哪种终端设备:PC端、移动端还是自适应
 干货   2023-07-28
只用css如何实现打字机特效?
 百态   2023-07-15
css怎么实现上下滚动
 干货   2023-06-28
canvas怎么画一个三角形?
 干货   2023-06-28
canvas怎么画一个椭圆形?
 干货   2023-06-28
canvas怎么画一个圆形?
 干货   2023-06-28
canvas怎么画一个正方形?
 干货   2023-06-28
中国河南省郑州市金水区蜘蛛爬虫ip大全
 干货   2023-06-22
javascript简易动态时间代码
 干货   2023-06-20
感谢员工的付出和激励的话怎么说?
 干货   2023-06-18
 
>>返回首页<<
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
© 2005- 王朝网络 版权所有