VBA Exceldynamic显示添加的结果

所以我用一个简单的购物清单应用程序来build模我的问题。

程序GUI：

现在我想要的是客户input：鸡蛋，牛奶和面包，为了进入和输出到.txt文件。

当前代码：

Private Sub CreateList_Click() Dim myFile As String, myString As String myFile = "C:\Reformatted.txt" Open myFile For Output As #1 myString = First.Value + Second.Value + Third.Value + Fourth.Value + Fifth.Value Print #1, myString Close #1 Shell "C:\Windows\Notepad.exe C:\Reformatted.txt", 1 End Sub 

期望的操作：

我想要发生的是，它进入那里前5项。 然后它会提示他们，如果他们想要另一个5.如果他们这样做，那么他们可以添加另一行。

所以我明白，我可以在VB中添加一个MsgBox，并为此devise一个while循环。 我的问题是如何显示他们第一次/以前提交的结果？

预期结果：

我知道VB将这些值存储为variables，但是我怎样才能将它们展示给用户，同时他们还有机会input更多条目。 另外如何将所有这些与首选格式添加到记事本文件？

—————————-帕尔默小姐答案后——–

 Private Sub AddEntry_Click() Dim UserEntry As String UserEntry = First.Value + DDPP.Value + Filer.Value + EntryNumber.Value myString = myString & Chr(13) & UserEntry GroceryList.UserDisplay.Caption = "You have entered:" & myString End Sub 

情况1 – 第一次增加

情景2 – 第二个增加

这两个增加应该一个接一个地放置。 但目前它只是取代它。

Answer 1

您可以使用以下格式的某些内容在while循环的每个迭代中更新表单上的标签：

 FormName.LabelName.Caption = "you have entered:" & myString 

然后添加到每个循环的string

 myString = myString & First.Value + Second.Value + Third.Value + Fourth.Value + Fifth.Value 

编辑

 myString = myString & chr(13) & First.Value + Second.Value + Third.Value + Fourth.Value + Fifth.Value