聊天机器人新线

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 ..."