vb. net поместить курсор на один пробел больше, чем длина текстового поля - PullRequest
0 голосов
/ 11 июля 2020

У меня есть 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()

1 Ответ

1 голос
/ 12 июля 2020

Значит, в конце сообщения не осталось много пробелов?

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