JeezyWonder Ответов: 1

Vb.net, richtextbox = richtextbox1. text?

Я новичок в этом деле vb.net, пришел из vb6, так что проблема в том, что я не могу этого сделать 
RichTextBox = Richtextbox1.text
как я сделал в vb6, так что в основном RTB получает значение из буфера, а затем я хочу переместить это значение из RTB в RTB1, большое спасибо

Что я уже пробовал:

RichTextBox = Richtextbox1.text

[no name]

Итак, ваш вопрос заключается в том, как установить свойство Text текстового поля?

JeezyWonder

Мне нужно, чтобы текстовое обеспечение одного текстового поля переместилось в другое, я попробовал RichTextBox.Text = RichTextBox1. text, он не работает

Ralf Meier

Это должно сработать ...
При каких условиях вы это сделали?..
Вы должны дать нам больше информации ...

[no name]

Это действительно работает. И говорить нам "это не работает" для нас бессмысленно.

JeezyWonder

Я использую dataeventhandler,

Private Sub SerialPort1_DataReceived (sender As Object, e As SerialDataReceivedEventArgs) обрабатывает SerialPort1. DataReceived
ReceivedText(SerialPort1. ReadExisting())
Конец Подводной Лодки
Private Sub ReceivedText(ByVal [text] As String)
Если Мне.Textbox3 и.Свойство Invokerequired Тогда
Dim x As New SetTextCallBack(AddressOf ReceivedText)
Меня.Вызов(х, новый объект() {(текст)})
Ещё
Меня.Textbox3 и.Текст &ампер;= [текст]

Textbox3 и.Текст = TextBox7.Текст

Конец, Если
Конец Подводной Лодки

1 Ответов

Рейтинг:
11

Dave Kreskowiak

Вы говорите о свойстве по умолчанию старого элемента управления RichTextBox в VB6. Эта концепция все еще существует в VB.NET но на самом деле не используется в управлении. Гораздо лучше явно указать это свойство .Текст вместо того, чтобы полагаться на знание того, что такое свойство по умолчанию.

OtherRichTextBox.Text = RichTextBox1.Text

JeezyWonder

Я попробовал, но ничего. RichTextBox1. Text получает данные из буфера, затем он должен переместить эти данные в OtherRichTextBox.

Dave Kreskowiak

Ладно, есть кое-что, о чем ты нам не рассказываешь. Не видя кода и того, как определяются переменные, невозможно сказать вам, что вы делаете неправильно.

JeezyWonder

Я использую dataeventhandler,

Private Sub SerialPort1_DataReceived (sender As Object, e As SerialDataReceivedEventArgs) обрабатывает SerialPort1. DataReceived
ReceivedText(SerialPort1. ReadExisting())
Конец Подводной Лодки
Private Sub ReceivedText(ByVal [text] As String)
Если Мне.Textbox3 и.Свойство Invokerequired Тогда
Dim x As New SetTextCallBack(AddressOf ReceivedText)
Меня.Вызов(х, новый объект() {(текст)})
Ещё
Меня.Textbox3 и.Текст &ампер;= [текст]

Textbox3 и.Текст = TextBox7.Текст

Конец, Если
Конец Подводной Лодки

Dave Kreskowiak

Избавьтесь от последней строки, TextBox3. Text = TextBox7.Text.

Ваш код добавляет данные, полученные из SerialPort в TextBox3, а затем немедленно заменяет содержимое TextBox3 тем, что находится в TextBox7.

Ваши элементы управления действительно должны быть переименованы во что-то более полезное, чем имена по умолчанию. TextBox3 и TextBox7 не описывают, какими должны быть эти элементы управления.

Кроме того, в этом коде нигде нет ни одной ссылки на RichTextBox.

Ваши вопросы не имеют никакого смысла в контексте кода, который вы только что опубликовали.

JeezyWonder

Спасибо, это работает, Private Sub ReceivedText(ByVal [text] As String)
Если Мне.TextBox7.Свойство Invokerequired Тогда
Dim x As New SetTextCallBack(AddressOf ReceivedText)
Меня.Вызов(х, новый объект() {(текст)})
Ещё
Меня.TextBox7.Текст &ампер;= [текст]
Меня.Textbox3 и.Текст &ампер;= [текст]
Textbox3 и.Текст = TextBox7.Текст

Конец, Если
Конец Подводной Лодки


кстати весь код из vb6 который я перенес в vb.net есть:

Частная Суб MSComm1_OnComm()
Тусклый Буфер В Виде Строки
Выбрать MSComm1.Событие commevent
Дело comEvReceive

Буфер = MSComm1.Ввод
Текст1.Текст = Текст1.Текст &усилителя; буфер

Конец Выбрать
Richtextbox1 Отображение = Текст1.Текст
Richtextbox1 отображение.SelStart = Лен(Richtextbox1 Отображение.Текст)
Конец Подводной Лодки


Нужен ли мне этот RichTextBox1.SelStart = Len(RichTextBox1. Text)??? Эти различия MsCOmm и dataeventhandler настолько огромны