如何保留上次操作在text中的内容?

hohowu 2003-01-13 02:02:29
就是想在下次运行程序的时候上次的内容还在里面不用重新输入。。?

...全文
25 点赞 收藏 13
写回复
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
hohowu 2003-01-23
thank you for all answers..
回复
lxcc 2003-01-14
form_load 将你要显示的值 赋给text框
回复
超级大笨狼 2003-01-14
文件,数据库,注册表
回复
guanjinke 2003-01-13
用SaveSetting,将文本保存在注册表中,用GetSetting读出。
回复
litsnake1 2003-01-13
如果 你是想把结果保存至下一次运行,那么把结果写入文件和注册表

如果仅仅是想在某一次运行过程中,保存上次的结果那么用,一个变量和用tag都是可以的 ,就看搂住的方便啦
回复
zmcpu 2003-01-13
使用INI文件
INI文件是Win16时代程序记录自身信息的方式,尽管当时的Windows 3.1也有注册表。在Win32时代,INI文件依然有其生存知道。比如一个绿色软件等等。
下面是读写INI文件的方法,为此我写了两个函数。
首先,声明两个API函数WritePrivateProfileString和GetPrivateProfileString,一下是代码:

Private Sub WriteToIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
  Dim buff As String * 128
  buff = Value + Chr(0)
  WritePrivateProfileString Section, Key, buff, Filename
End Sub
Private Function ReadFromIni(ByVal Filename As String,ByVal Section As String, ByVal Key As String) As String
  Dim i As Long
  Dim buff As String * 128
  GetPrivateProfileString Section, Key, "", buff, 128, Filename
  i = InStr(buff, Chr(0))
  ReadFromIni = Trim(Left(buff, i - 1))
End Function
应用举例:
一、写INI文件
Dim Counter As Long
For Counter=1 To 4
  Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)
Next Counter
运行后Options.ini内容如下:
[Test]
Name1=Value1
Name2=Value2
Name3=Value3
Name4=Value4
二、读INI文件
Dim Counter As Long
Dim Value(3) As String
For Counter=1 To 4
  Value(Counter-1)=ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)
Next Counter
回复
ccbl 2003-01-13
写如注册表,或文件,或数据库,下次运行读出来.
回复
ketao_78 2003-01-13
对,要不写到一个类模块的属性中
回复
zhouln2002 2003-01-13
同意cjzy22()
回复
Ozone_79 2003-01-13
如果你是希望重新进入程序以后,在TEXT框中仍然保留上次输入的内容.你可以选择把框中的内容写到文件或者数据库注册表之类的地方.等到启动程序的时候首先从文件里度出数据并写到框内.
如果是希望在切换回原来的界面的时候仍然保留里面的内容,就简单了你可以开辟一个内存单元把值放起来呵呵.
回复
cjzy22 2003-01-13
有一个比较简单的方法:text1.tag=text1.text(第一次)
(第二次)text1.text=text1.tag
回复
minajo21 2003-01-13
unload时写到一个文件里,或者注册表,然后每次load时,先读这个。
回复
饮水需思源 2003-01-13
变样的话应该将第一次输入的内容保存到数据库或ini文件中,第二次程序运行时再从数据库或ini文件中读取并显示
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告