| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 488 人关注过本帖
标题:如何保存文本框转到列表框内的新数据?
只看楼主 加入收藏
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
结帖率:94.12%
  已结贴   问题点数:20  回复次数:10   
如何保存文本框转到列表框内的新数据?
下面是将文本框内的数据保存到列表框。但重新启动后就新数据就不显了,请问如何才能保存?
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
2018-07-03 12:12
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:68
帖 子:720
专家分:3825
注 册:2016-5-10
  得分:0 
Private Sub Form_Load()
Text1.Text = "赋值到文本框的数据"   '这里是你在文本框中赋值的数据
List1.AddItem Text1.Text
End Sub
Form_Load事件是窗体重新启动的事件,要重启后显示数据,必须在Form_Load中加载。
当然如果你是一次一次加载到List1中的,并且这些数据是一定的,不一定使用文本框,使用文本文件应该更方便。

QQ    2653043392
2018-07-03 13:37
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
谢谢ZHRXJR版主的回复。
本人是希望将新数据通过“添加”钮加到上面的列表中,按下面编程还无法实现该功能(详见图),即软件重启后,新添加内容丢失了。请问要如何改进?
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = ""   '这句应该如何改;要求是:将下面文本框内输入新内容,点击“添加”钮后,加入上面的“列表框”的最后一行(列表框已有很多数据)
List1.AddItem Text1.Text
End Sub


[此贴子已经被作者于2018-7-3 21:27编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-07-03 21:24
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:68
帖 子:720
专家分:3825
注 册:2016-5-10
  得分:0 
你的原有数据保存在哪里?不会是一个一个添加进去的吧?
下面说的媒介包括数据库、文本文件、ini文件等等等等,不清楚你的媒介是什么。
如果原有数据保存在某个媒介中,那么在 Command1_Click 中打开媒介,保存进去将可以了。

QQ    2653043392
2018-07-04 08:31
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
原来的数据是保存在文本框(或列表框)中,只是每次有新数据,需要在打开原程序添加进去(见图),很麻烦,所以想在软件页面上加设一个过渡的小文本框和按钮时行即时添加,不用到原程序中添加,但就不知如何实现?
附件: 您没有浏览附件的权限,请 登录注册
2018-07-04 09:03
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:68
帖 子:720
专家分:3825
注 册:2016-5-10
  得分:0 
文本框、列表框不可能自动保存数据。
如果你是在设计时将数据添加在文本框中,那么你必须更新你的思路,因为这样根本没有办法将新添加的数据保存到文本框中。
你可以将设计时添加到文本框的数据保存在一个文本文件中,就可以实现保存数据了。

[此贴子已经被作者于2018-7-4 10:29编辑过]


QQ    2653043392
2018-07-04 10:13
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:68
帖 子:720
专家分:3825
注 册:2016-5-10
  得分:20 
将数据保存在文本文件中,其实非常简单,每次点击添加按钮将保存了,再次打开就能够加载上一次添加的数据:

程序代码:

Private Sub Command1_Click()
If Text1.Text <> "" Then
Open App.Path & "\123.txt" For Append As #1
Write #1, Text1.Text
Close #1
List1.AddItem Text1.Text
Text1.Text = ""
End If
End Sub

Private Sub Form_Load()
Open App.Path & "\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, TT
List1.AddItem TT
Loop
Close #1
End Sub

在你的程序根目录添加一个文本文件,名称是 “123.txt”,在窗体放置一个Text1的文本框,一个List1列表框,一个Command1的按钮将可以了。

[此贴子已经被作者于2018-7-4 11:04编辑过]

附件: 您没有浏览附件的权限,请 登录注册

QQ    2653043392
2018-07-04 10:59
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
谢谢版主的热情帮助,制作了123.txt文件,前一次输入几次(四次)不同数据,当时列表中显示都正常。只是重启后,这四组数据都变为“0”(见图),不知问题出在何处,请指教。又:软件退出后,打开123.txt文件,里面内容是空的;


[此贴子已经被作者于2018-7-4 13:50编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-07-04 13:36
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
  得分:0 
在列表框内出现的0与重启后的显示是一样的;
附件: 您没有浏览附件的权限,请 登录注册
2018-07-04 13:53
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:68
帖 子:720
专家分:3825
注 册:2016-5-10
  得分:0 
真的与你沟通有点问题,VB程序是代码控制的,你发这些图片,我不知道问题出在那里。
我那个程序运行了N次,重启了N次,一点问题都没有!!!

[此贴子已经被作者于2018-7-4 14:49编辑过]


QQ    2653043392
2018-07-04 14:47







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022884 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved