如何保存文本框转到列表框内的新数据？ - 编程论坛

#2

ZHRXJR2018-07-03 13:37

Private Sub Form_Load()
Text1.Text = "赋值到文本框的数据" '这里是你在文本框中赋值的数据
List1.AddItem Text1.Text
End Sub
Form_Load事件是窗体重新启动的事件，要重启后显示数据，必须在Form_Load中加载。
当然如果你是一次一次加载到List1中的，并且这些数据是一定的，不一定使用文本框，使用文本文件应该更方便。

#3

jrs1232018-07-03 21:24

谢谢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编辑过]

#4

ZHRXJR2018-07-04 08:31

你的原有数据保存在哪里？不会是一个一个添加进去的吧？
下面说的媒介包括数据库、文本文件、ini文件等等等等，不清楚你的媒介是什么。
如果原有数据保存在某个媒介中，那么在 Command1_Click 中打开媒介，保存进去将可以了。

#5

jrs1232018-07-04 09:03

原来的数据是保存在文本框（或列表框）中，只是每次有新数据，需要在打开原程序添加进去（见图），很麻烦，所以想在软件页面上加设一个过渡的小文本框和按钮时行即时添加，不用到原程序中添加，但就不知如何实现？

只有本站会员才能查看附件，请登录

#6

ZHRXJR2018-07-04 10:13

文本框、列表框不可能自动保存数据。
如果你是在设计时将数据添加在文本框中，那么你必须更新你的思路，因为这样根本没有办法将新添加的数据保存到文本框中。
你可以将设计时添加到文本框的数据保存在一个文本文件中，就可以实现保存数据了。

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

#7

ZHRXJR2018-07-04 10:59

将数据保存在文本文件中，其实非常简单，每次点击添加按钮将保存了，再次打开就能够加载上一次添加的数据：

只有本站会员才能查看附件，请登录

程序代码：

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编辑过]

#8

jrs1232018-07-04 13:36

谢谢版主的热情帮助，制作了123.txt文件，前一次输入几次（四次）不同数据，当时列表中显示都正常。只是重启后，这四组数据都变为“0”（见图），不知问题出在何处，请指教。又：软件退出后，打开123.txt文件，里面内容是空的；

只有本站会员才能查看附件，请登录

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

#9

jrs1232018-07-04 13:53

在列表框内出现的0与重启后的显示是一样的；

只有本站会员才能查看附件，请登录

#10

ZHRXJR2018-07-04 14:47

真的与你沟通有点问题，VB程序是代码控制的，你发这些图片，我不知道问题出在那里。
我那个程序运行了N次，重启了N次，一点问题都没有！！！

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

#11

jrs1232018-07-04 21:22

感谢ZHRXJR版主的帮助！
我重新制作一个工程，就这三个元素。如你所言，确实可以正常运行。上面所述问题可能在我原软件系统中。我再自查下原因。

只有本站会员才能查看附件，请登录