聊天机器人的新线

Question

If ChatBot.Caption = ("Bob" & ": " & "Hello! My name is bob. What's your name?") Then ChatBot.Caption = vbNewLine(Text.Text & ": " & Text.Text)

到目前为止，这是我的代码。在这种情况下，你如何添加新行，我一直在尝试和搜索，但找不到任何东西。对于文本框中的每一行，它都会在ChatBot RichTextBox中添加一行新行，比如："[用户名]：等等"。

我发现vbCRLF也可以制作一条新的线路，但老实说，我不知道该把它放在哪里。

Answer 1

对于RichTextBox，最好的方法是：

'// move cursor to the end of the text
rtb.SelStart = Len(rtb.Text)
'// append the text ending with a new line
rtb.SelText = "Hello" & vbCrLf

一个较小的替代方案是：

rtb.Text = rtb.Text & vbCrLf & "New Line 1" & vbCrLf & "New Line 2" & vbCrLf & "New Line 3 ..."