Saya memiliki TextBox dan berisi teks ini "File Was Created"
Saya ingin menempatkan kursor satu spasi dari akhir teks ini di TextBox
Saya mencoba untuk TIDAK mengatakan Tugas Cukup Sederhana TETAPI saya telah menyia-nyiakan 2 jam tanpa solusi
YA Saya tahu jika saya mengubah teks menjadi "File Telah Dibuat" ini BUKAN solusi

Ini kode berantakan yang saya coba

        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/>

Berikut adalah Dua cara terbaru untuk mengatasi masalah ini Jimi jauh lebih sedikit kode

         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()
0
Vector 11 Juli 2020, 22:55

1 menjawab

Jawaban Terbaik

Jadi Anda tidak berakhir dengan banyak spasi di akhir pesan Anda?

tbMessage.AppendText(If(tbMessage.Text.EndsWith(" "), "", " "))
tbMessage.SelectionStart = tbMessage.TextLength
tbMessage.Focus()
1
Idle_Mind 11 Juli 2020, 21:27