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()
我有一个文本框,其中包含此文本“文件已创建”
我想将光标放在 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()