將數組索引並將內容放入TextBox

Question

我有一個數組由字符串組成，我嘗試循環並將內容放入Textbox。不幸的是，我的程序每次添加數組的另一個元素時都會覆蓋上一行，無法跳過一行。有任何想法嗎？

注意：textbox被稱爲NotesBox。該userform的textbox是被稱爲TabData

For v = 1 To counter_notes - 1 
    TabData.NotesBox.Text = ProdNotes(v) & Chr(13) 
Next v 
End Sub 

Answer 1

您可以直接將數組分配到ListBox的.List屬性，如：

TabData.NotesBox.List = ProdNotes 

否則，你不分配給.Text財產，您可以在迴路中使用.AddItem方法：

Dim itm 
For each itm in ProdNotes 
    TabData.NotesBox.AddItem itm 
Next 

如果您使用的是TextBox，然後使用VBA.Join功能，像這樣：

TabData.NotesBox.Text = VBA.Join(ProdNotes, Chr(13)) 

或者，在一個循環：

With TabData.NotesBox 
    For i = LBound(ProdNotes) to UBound(ProdNotes) 
     .Text = .Text & ProdNotes(i) & Chr(13) 
    Next 
End With