Блог

Главная - Вопросы по программированию - Как сохранить текст в RichTextBox после запуска моей функции

Как сохранить текст в RichTextBox после запуска моей функции

#vb.net #textbox #richtextbox

#vb.net #текстовое поле #richtextbox

Вопрос:

Последние несколько дней я пытался выяснить, почему мой элемент управления RichTextBox очищается после завершения моей программы. Я попытался изменить настройки true false, например Hide Selection , Multiline и другие, но ничего не работает. Я даже попытался переключиться с RTB на обычное текстовое поле и получил тот же результат. В конце поле заполнено надписями…и если я нажму В ЛЮБОМ МЕСТЕ своей формы, текст исчезнет, это действительно раздражает.

Основной метод (фрагмент):

 Private Sub Test_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
                If Code = 0 And Check = 1 Then ' Check request is successful
                    program.Read("Velocity_value" Velocity)
                    If Velocity <= 12 Or Velocity > 14 Then
                        MsgBox(ConstString207, vbExclamation, "Velocity")
                    End If

                    Thread.Sleep(2000) ' delay 2 seconds
                    Me.TDisplay.Text = Me.TDisplay.Text amp; vbCrLf amp; ConstString125
                    Me.Invalidate()
                    'following steps will read the Code
                    program.Read("Code")
                    Me.TDisplay.Text = Me.TDisplay.Text amp; vbCrLf amp; ConstString8 amp; "" amp; Code
                    Code = 0
                    Me.Invalidate()
                    labPg1.Increment(12.5)
                    Application.DoEvents()
                    ' calling safety check  function to check valocity is safe to operate
                    SafetyCheck()
End Sub

RichTextBox:

 Private Sub TDisplay_TextChanged(sender As Object, e As EventArgs)
        'set the current caret position to the end
        TDisplay.SelectionStart = TDisplay.Text.Length
        'scroll it automatically
        TDisplay.ScrollToCaret()
    End Sub

Комментарии:

1. Ваша первая проблема заключается в том, что у вас нет End If для вашего первого If

2. Что такое поток. Спящий режим, аннулирование и (аргх!) Предполагается ли выполнение событий? Зачем они нужны.

3. @Mary основной метод — это фрагмент кода, после этого у меня есть еще 600 строк кода. Существует End If . Программа работает правильно, просто когда я нажимаю после ее завершения, текст исчезает.

4. @Mary threading.sleep ожидает, чтобы увидеть, что моя программа «читает» со скоростью velocity, она обменивается данными с другим устройством через usb. Недействительность просто обновляется, потому что я читаю много значений. DoEvents возвращает изменяющиеся значения. Я знаю, что это может быть плохой практикой, но не был уверен, как еще это сделать.

5. @Mary LOL, этот человек — я … к сожалению. Я работаю над его оптимизацией. Однако, есть ли у вас предположение, почему текст исчезает?