vb.net 光标位置比文本框长度大一 space

vb.net position cursor one space greater than text box length

我有一个文本框,其中包含此文本“文件已创建”
我想将光标放在 TextBox
中距此文本末尾的位置 space 我不想说足够简单的任务,但我已经浪费了 2 个小时没有解决方案
是的,我知道如果我将文本更改为这个“文件已创建”,它将起作用而不是解决方案

这是我试过的乱七八糟的代码

        Dim L As Integer
        L = tbMessage.Text.Length
        L += 1
        'tbMessage.Text = CStr(L)
        'tbHaveTwo.Text = frmOne.vR
        'Me.ActiveControl = tbMessage
        'tbMessage.SelectionStart = tbMessage.Text.Length

        tbMessage.SelectionStart = L
        tbMessage.Select()<br/>

这是解决此问题的两种更新方法 Jimi 方式更少的代码

         tbMessage.Text = "File Was Created"
        'This Code involves more code 
        'Dim str As String
        'str = Mid(tbMessage.Text, tbMessage.Text.Length)
        'If str <> " " Then
        '    tbMessage.Text = tbMessage.Text & " "
        'End If
        'Answer from Jimi Works Great 
        tbMessage.AppendText(ChrW(32))
        tbMessage.SelectionStart = tbMessage.Text.Length
        tbMessage.Select()

所以您不会在邮件末尾留下大量空格?

tbMessage.AppendText(If(tbMessage.Text.EndsWith(" "), "", " "))
tbMessage.SelectionStart = tbMessage.TextLength
tbMessage.Focus()