Вставка текста в RichTextBox в заданную позицию - Visual Basic .NET

  1. Всем доброго времени суток! В ричтекстбоксе находиться текст. Нужно вставить свой текст из буфера в указанное место, в середину..... Как это сделать? Вопрос кажется простым, но в сети не нашел ответа. Спасибо за помощь.


textual

Код:

RichTextBox1.Select(RichTextBox1.Text.Length / 2, 1)
RichTextBox1.Paste()


Похожие ответы
  1. Здравствуйте,у меня такая проблема в vb 2010 есть 2е текстовые формы и кнопка,надо чтоб текст по нажатию кнопки вписанный в первую текстовые форму вводился во 2ю,проблема втом чтобы текст имеющийся во 2й текстовые форме остался. Помогите чего то втупил

  1. В Visual Basic 2010 создаю текстовый редактор. Не выходит с "Правкой". Скину то, что есть, помогите кто может с "Копировать", "Вставить", "Вырезать", "Удалить" и Выравниванием по центру, слева, справа. Заранее спасибо!vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 Public Class Form1       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         TextBox1.multiline = True         TextBox1.Clear()         Me.Text = "Простой текстовый редактор"         OpenFileDialog1.FileName = Nothing         OpenFileDialog1.Filter = "Текстовые файлы (*.txt) |'.txt|A11 files (*.*)|*.*"         SaveFileDialog1.Filter = "Текстовые файлы (f.txt) |*.txt|A11 files (*.*)|*.*"     End Sub     Private Sub ФайлToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФайлToolStripMenuItem.Click         OpenFileDialog1.ShowDialog()         If OpenFileDialog1.FileName = Nothing Then Exit Sub         Try             Dim Читатель As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.GetEncoding(1251))             Читатель.Close()         Catch Exc As System.IO.FileNotFoundException             MessageBox.Show("Нет такого файла", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)         Catch Exc As Exception             MessageBox.Show(Exc.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)           End Try     End Sub     Private Sub СохранитьКакToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьКакToolStripMenuItem.Click         SaveFileDialog1.FileName = SaveFileDialog1.FileName         If SaveFileDialog1.ShowDialog = DialogResult.OK Then Запись()     End Sub     Sub Запись()         Try             Dim Писатель As New IO.StreamWriter(SaveFileDialog1.FileName, False, System.Text.Encoding.GetEncoding(1251))             Писатель.Write(TextBox1.Text)             Писатель.Close()             TextBox1.Modified = False         Catch Exc As Exception             MessageBox.Show(Exc.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)         End Try     End Sub     Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click         Me.Close()     End Sub     Private Sub Form1_Closeing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing         If TextBox1.Modified - False Then Exit Sub         Dim MBox As DialogResult         MessageBox.Show("Текст был изменен." & vbCrLf & "Сохранить изменения?", "Простой редактор", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation)         If MBox = DialogResult.No Then Exit Sub         If MBox = DialogResult.Cancel Then e.Cancel = True         If MBox = DialogResult.Yes Then             If SaveFileDialog1.ShowDialog = DialogResult.OK Then                 Запись() : Exit Sub             Else                 e.Cancel = True             End If         End If     End Sub         Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click         Clipboard.Clear()         Clipboard.SetText(RichTextBox1.SelectedText)         RichTextBox1.SelectedText = Clipboard.GetText()     End Sub       Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click         FontDialog1.ShowColor = True         FontDialog1.ShowDialog()         RichTextBox1.SelectionFont = FontDialog1.Font         RichTextBox1.SelectionColor = FontDialog1.Color     End Sub       Private Function FontDialog1() As Object         Throw New NotImplementedException     End Function

  1. Доброго времени суток! Помогите нужен код для того чтобы узнать количество частей в тексте. Например, есть текст "453, 63563,4534, 43653, 435" как узнать количество запятых? также и в массиве "453; 63563;4534; 43653; 435" как узнать количество ; ? Можно это както совместить с функцией Split?

  1. Если пользователь нажимал на checkbox, программа добавляла определенный текст в textbox. И если отменил выбор, именно тот текст который добавился стирался. После всего этого пользователю можно будет сохранить этот текст методом savedialog. Вроде просто, но как со стирание разобраться не знаю.

  1. Доброго времени суток. Возможно ли реализовать следующие есть TextBox и внем значение 555555555555555555555555555555555 Можно ли символы указаные зеленым цветом, сделать скрытными, чтобы была как пробелы?

  1. Всем доброго времени суток! Не знаю, как решить проблему. На форме Listview с несколькими колонками. НУЖНО в первую колонку поместить картинку из файла или иконку, а в остальные - текст. Пока у меня получается так (см. миниатюру 1), а нужно чтобы было как на 2-й миниатюре. Вот кодvb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Public Class Form1       Dim listviewitem As ListViewItem     'Create a new ImageList with the size you want the icons to be     Private ImgList As New ImageList With {.ImageSize = New Size(24, 24)}       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         ListView1.View = View.Details         ListView1.FullRowSelect = True         ListView1.SmallImageList = ImgList               With ListView1.Columns             .Add("Icon", 60, HorizontalAlignment.Center)             .Add("   Имя События.", 150, HorizontalAlignment.Left)             .Add("Дата события", 200, HorizontalAlignment.Center)             .Add("Дата напоминания", 200, HorizontalAlignment.Center)           End With            End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           ImgList.Images.Add(My.Resources.Books)         ImgList.Images.Add(My.Resources.Chrome)         ImgList.Images.Add(My.Resources.Dreamviewer)         Dim lvi As New ListViewItem("", ImgList.Images.Count - 1) 'set the icon for the ListViewItem with an empty string for its Text           ListViewItem = New ListViewItem()         listviewitem.SubItems.Add(InputBox("Вписать новое событие", "Добавление события.", ""))         listviewitem.SubItems.Add(DateTimePicker1.Value)         listviewitem.SubItems.Add(DateTimePicker2.Value)         Me.ListView1.Items.Add(listviewitem)              For i = 0 To ImgList.Images.Count - 1                     ListView1.Items.Add("", i)         Next        End Sub End ClassСпасибо за помощь и понимание.

  1. Подскажите пожалуйста какое свойство текстового поля назначает текст подсказки до внесения данных? Как это можно реализовать в Visual Studio. Смысл - например в текстбоксе поиск затененная надпись "введите фамилию".

  1. К примеру есть массивvb.net1  Dim d As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9}Как мне "положить" в него ещё одно число? к Примеру 3, между 6 и 7? Чтобы вышло {1, 2, 3, 4, 5, 6, 3, 7, 8, 9} А так же как его оттуда удалить потом? Просто до этого пользовался конструкциями типа list(of) Но в данный момент нужен именно массив

  1. Здравствуйте, уважаемые коллеги! Имеется RichTextBox, в котором происходит колдовство над текстом. Далее текст отправляется в таблицу SQLite. Разумеется, что при чтении из таблицы форматирование (размер шрифта и т.п.) не сохраняется, а очень хочется. Быть может, у кого-то был опыт решения данного вопроса или хотя бы есть идеи, как это организовать наилучшим образом?

  1. Из символов одного текста с помощью строковых функций о операций конкатенация получить другой текст. Из «индивидуальность» получить «диво» и «лавина» Преобразовать текст: Из теста «каков поп, таков и приход» получить текст «каков приход, таков и поп»