Строки в RichTextBox (программно)

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Строки в RichTextBox (программно)

Сообщение mx_hack » 28.12.2010 (Вт) 23:08

Доброго времени суток!
Помогите разобраться, есть два текстбокса, из них переносить информацию в третий с отображением по строкам ...
И, как отобразить мигающий курсор в конце вводимой информации в тексбоксах?
Код:
Код: Выделить всё
Private Sub cmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim st As Integer
txt3.Text = txt3.Focus
count = count + 1 'счетчик строк
st = (Str(count))
txt3.Text = "(" & st & ")" & txt1.Text & txt2.Text & vbNewLine
End Sub


Благодарю за любую помощь ...
[Viper] :: Не забываем использовать тэги CODE!

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: Строки в RichTextBox (программно)

Сообщение FireFenix » 28.12.2010 (Вт) 23:58

Сформулируй чётче, ничего ж не понятно!
и используй тег code

И, как отобразить мигающий курсор в конце вводимой информации в тексбоксах?

TextBox.SelectionStart

Код: Выделить всё
TextBox.SelectionStart = TextBox.Text.Length - 1
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Re: Строки в RichTextBox (программно)

Сообщение Viper » 29.12.2010 (Ср) 6:01

mx_hack писал(а):
Код: Выделить всё
Private Sub cmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim st As Integer
txt3.Text = txt3.Focus
count = count + 1 'счетчик строк
st = (Str(count))
txt3.Text = "(" & st & ")" & txt1.Text & txt2.Text & vbNewLine
End Sub
А собственно что должен делать этот бредовый код? Вначале текстовому полю пытаемся присваивать значение метода (!). Затем целой переменной пытаемся присвоить строку полученную из целого числа. Затем все это присваиваем опять же текстовому полю. Само собой разумеется, что это работать не будет, IDE будет ругаться. Но в чем вообще смысл?
Весь мир матрица, а мы в нем потоки байтов!

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Re: Строки в RichTextBox (программно)

Сообщение Денис » 29.12.2010 (Ср) 13:25

Смысл в том, что молодой человек не знает, что такое "поле", "метод", "присваивание", "строка", "число".
И при этом мнит себя новым Билли.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 29.12.2010 (Ср) 22:01

Парни, прошу прощения за невежество...
Смысл: собрать информацию из текстбоксов 1 и 2 , нажать кнопку и вставить ее в текстбокс 3 в первую строку, еще нажать вставить во вторую и т.д.
st - это счетчик нажатий с отображением номера нажатия в начале строки текстбокса 3.
Код работает, только всегда на первой строке (не переносится на следующую строку, в vb6 работал...)
Если можно подкорректировать, а я продолжу учиться ...
Не судите строго, я начинающий ... Путь пройдет сделавший первый шаг ...
Спасибо, что откликнулись ...

krukovis84
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 108
Зарегистрирован: 04.08.2009 (Вт) 11:16
Откуда: Кочевник

Re: Строки в RichTextBox (программно)

Сообщение krukovis84 » 29.12.2010 (Ср) 23:14

Денис писал(а):И при этом мнит себя новым Билли.

Что ж ты Докотор ВБ наук накинулся на молодого??? Мания величия?
Никем он себя не мнит. Хочется что то сделать и не знает как, вот и спрашивает. Но и как спросить не знает. Знаний даже на то чтобы корректно вопрос задать не хватает. Это конечно плохо, но! Можно же переспросить, если есть желание помочь человеку. Вон Феникс не обломался, спросил.
А если нет желания помогать или не знаешь как помочь - вообще ничего не пиши. Зачем унижаешь?

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Re: Строки в RichTextBox (программно)

Сообщение Viper » 30.12.2010 (Чт) 5:55

mx_hack писал(а):Код работает, только всегда на первой строке (не переносится на следующую строку, в vb6 работал...)
Приведенный код работать не может по определению, даже в VB6.
Весь мир матрица, а мы в нем потоки байтов!

krukovis84
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 108
Зарегистрирован: 04.08.2009 (Вт) 11:16
Откуда: Кочевник

Re: Строки в RichTextBox (программно)

Сообщение krukovis84 » 30.12.2010 (Чт) 8:27

mx_hack писал(а):Парни, прошу прощения за невежество...
Смысл: собрать информацию из текстбоксов 1 и 2 , нажать кнопку и вставить ее в текстбокс 3 в первую строку, еще нажать вставить во вторую и т.д.
st - это счетчик нажатий с отображением номера нажатия в начале строки текстбокса 3.
Код работает, только всегда на первой строке (не переносится на следующую строку, в vb6 работал...)
Если можно подкорректировать, а я продолжу учиться ...
Не судите строго, я начинающий ... Путь пройдет сделавший первый шаг ...
Спасибо, что откликнулись ...


На vb 6 этот набор букв работать не мог, не нужно обманывать, если хочешь чтобы тебе помогали. Ладно с бейсиком, а с русским откуда такие проблемы? Если реально хочешь разобраться, то вот элементарный пример:
Код: Выделить всё
       Private sn As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sn = sn + 1
        RichTextBox1.Clear()
        RichTextBox1.Text = sn & vbNewLine & TextBox1.Text & vbNewLine & TextBox2.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Текст1"
        TextBox2.Text = "Текст2"
    End Sub


Чтобы он заработал - создай форму и помести на форму 2 textbox'а, 1 rishtextbox и одну кнопку (Button). Нажимать на кнопку до полного просветления. :D

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 31.12.2010 (Пт) 0:58

Доброго времени суток !
Делал этот "проект" на vb6 все работало без проблем ... захотелось перейти на vb.net - не получилось ...поэтому спросил ...
В ответ получил обсуждение уровня моей компетенции ...( или не комп... ) ...
Это в Краснодар_ Обидеть и послать Легко ... ИЗВИНЯТЬСЯ ТРУДНО ...
Парни прошу закрыть этот вопрос ... ответа не получил ... буду разбираться сам потихоньку ... медленно и не спеша, по самую рукоять ...
Извиняюсь, что отвлек ... С Новым Годом и Удачи в новом году!

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 31.12.2010 (Пт) 8:52

Приветствую Всех!
Код krukovis84 делает тоже самое, что и мой (при нажатии кнопки информация обновляется, а нужно накапливать ...)
например: 1 Вася Петя
2 Маша Даша
3 Тетя Дядя
и т.д.
По русски вроде без ошибок, сам много раз перечитал...
кусок из vb6_txtSave.SelStart = Len(txtSave.Text)
_txtSave.SelText = (txt1.Text) + (txt2.Text) + vbCrLf$ работал.
Попробую поставить VB6 и посмотрю еще, а то я уже почти поверил, что код не рабочий.

krukovis84
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 108
Зарегистрирован: 04.08.2009 (Вт) 11:16
Откуда: Кочевник

Re: Строки в RichTextBox (программно)

Сообщение krukovis84 » 31.12.2010 (Пт) 10:02

mx_hack писал(а):Приветствую Всех!
Код krukovis84 делает тоже самое, что и мой (при нажатии кнопки информация обновляется, а нужно накапливать ...)
например: 1 Вася Петя
2 Маша Даша
3 Тетя Дядя
и т.д.
По русски вроде без ошибок, сам много раз перечитал...
кусок из vb6_txtSave.SelStart = Len(txtSave.Text)
_txtSave.SelText = (txt1.Text) + (txt2.Text) + vbCrLf$ работал.
Попробую поставить VB6 и посмотрю еще, а то я уже почти поверил, что код не рабочий.


Да, поставь VB6 и убедись на собственном опыте что код работать не может. По моему Viper достаточно подробно написал "почему" :lol: .

А если мой код поправить немного, то он и накапливать сможет :) .
Код: Выделить всё
    Private sn As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sn = sn + 1
        RichTextBox1.Text = RichTextBox1.Text & sn & " " & TextBox1.Text & " " & TextBox2.Text & vbNewLine
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Текст1"
        TextBox2.Text = "Текст2"
    End Sub

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 31.12.2010 (Пт) 12:07

Спасибо, теперь работает ...
Как всегда все оказалось просто ... только без строки st = count не считает количество нажатий - номера строк
А почему бредовый? И IDE не ругается ...
Код: Выделить всё
Private Sub cmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim st As Integer
count = count + 1
st = count ' без этой строки не считает количество нажатий - номера строк
txt3.Text = txt3.Text & "(" & st & ")" & txt1.Text & txt2.Text & vbNewLine
End Sub

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 01.01.2011 (Сб) 18:47

Поздравляю С Новым Годом!
Удачи и успехов по жизни.
krukovis84, если не сложно, подскажи как грамотно применить TextBox.SelectionStart.
Вопрос в том, чтобы отобразить мигающий курсор (каретку) в конце вводимой информации в тексбоксах?

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Re: Строки в RichTextBox (программно)

Сообщение Viper » 01.01.2011 (Сб) 22:40

Код: Выделить всё
txtBox.SelectionStart = txtBox.Length - 1
Весь мир матрица, а мы в нем потоки байтов!

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 09.01.2011 (Вс) 10:23

Всем привет!
Как грамотно применить txtBox.SelectionStart = txtBox.Length - 1
Вопрос в том, чтобы отобразить мигающий курсор (каретку) в конце вводимой информации в тексбоксах?
Информация в textbox вводится с кнопок... С клавиатуры курсор отображается нормально, а с кнопок пропадает...
В какую обработку его вставить... IDE говорит, что Length не является членом textBox

1Steps
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 505
Зарегистрирован: 20.12.2006 (Ср) 0:50
Откуда: New York

Re: Строки в RichTextBox (программно)

Сообщение 1Steps » 09.01.2011 (Вс) 15:15

Код: Выделить всё
txtBox.Focus
Удалена за ненадобностью.

mx_hack
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 28.12.2010 (Вт) 23:02

Re: Строки в RichTextBox (программно)

Сообщение mx_hack » 14.01.2011 (Пт) 20:40

Приветствую Всех!
Не работает... но все-равно спасибо...
Разбираюсь дальше...
Всем Удачи!


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 35

    TopList