У меня есть TextBox, и он содержит текст «Файл был создан» Я хотел бы поместить курсор на один пробел от конца этого текста в TextBox Я пытаюсь НЕ говорить «Достаточно простая задача», НО я потратил 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()