String 如何在不清除文本框内容的情况下将字符串添加到文本框VB6

我如何在不删除文本框内容的情况下向文本框添加字符串

For counter = 1 To 5 Step 1
If lengthofdeck(counter) >= length_user Then
  txtresult.Text = nameofdeck(counter)
  MsgBox ("Value: " & length_user & nameofdeck(counter) & " meets or exceeds the size requirement given")
End If
Next counter

---

更改此行

Text=nameofdeck（计数器）

对此：

txtresult.Text=txtresult.Text&nameofdeck（计数器）

这将允许您附加文本

---

请参阅本文：

实现这一点的最佳方法是：

txtresult.SelText = "New Text"

这可以有效地将新数据附加到

文本框

，而无需重新分配整个字符串

默认情况下，这将插入插入符号位置，如果您不能保证插入符号位于插入符号的末尾，请使用以下命令：

txtresult.SelStart = Len(txtresult.Text)

---

调用此函数还可以确保最近添加的文本可见，并且不会低于当前滚动位置。

我认为VB6没有实现

+=

，如果您不介意混淆/激怒可能正在使用文本框的用户，那么它应该是最长的格式。只需使用

txtreult.SelStart=&H7FFF

而无需访问昂贵的

text

属性。VB6文本框不能处理超过2^15个符号。