Прокручивание RichTextBox кнопками

@FaceHoof · Регистрация: 21.04.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте.
У меня есть richtextbox с длинным текстом. Мне необходимо сделать прокручивание содержимого с помощью отдельных кнопок.
Нагуглил и сделал так:

C#
1
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
//типы ScrollBar-ов
        private const int SB_HORZ = 0x0;
        private const int SB_VERT = 0x1;
        //WM - сообщения
        private const int WM_HSCROLL = 0x114;
        private const int WM_VSCROLL = 0x115;
        //Комманды для ScrollBar-а
        private const int SB_THUMBPOSITION = 4;
        //Получении позиции
        //Возвращает насколько я понял верхнюю видимую строку TextBox-а
        //nBar = тип ScrollBar
        [DllImport ( "user32.dll" )]
        private static extern int GetScrollPos ( IntPtr hWnd, int nBar );
        //Установка позиции бегунка на ScrollBar-е
        //nBar = тип ScrollBar
        //nPos = строка
        [DllImport ( "user32.dll" )]
        private static extern int SetScrollPos ( IntPtr hWnd, int nBar, int nPos, bool bRedraw );
        //PostMessage, необходима для установки позиции в TextBox-е
        [DllImport ( "user32.dll" )]
        private static extern bool PostMessageA ( IntPtr hWnd, int nBar, int wParam, int lParam );
 
 
private void SetScrol ( bool UpOrDown)
        {
            //Получаем актуальную позицию ScrollBar-а TextBox-а
            int originalLine = GetScrollPos ( richtbContent.Handle, SB_VERT );
            if ( UpOrDown )
                originalLine += 50;
            else
            {
                if ( originalLine - 50 > 0 )
                    originalLine -= 50;
                else
                    originalLine = 0;
            }
 
            //Ставим бегунок ScrollBar-a, будто верхняя видимая строка у нас восьмая
            SetScrollPos ( richtbContent.Handle, SB_VERT, originalLine, true );
            //Прокручиваем TextBox к восьмой строке
            PostMessageA ( richtbContent.Handle, WM_VSCROLL, SB_THUMBPOSITION + 0x10000 * originalLine, 0 );
        }

Работает, но если убрать у richtextbox отображение полос прокрутки, то прокрутка вниз работает далеко не до конца. Никаких исключений нет, просто при получении текущей позиции значение приходит одно и тоже, хотя было отправлено большее. Если полосу прокрутки вернуть, то всё работает как надо.
Конечно, можно вообще не получать позицию, а сделать её по умолчанию 0 и менять самому в зависимости от нажатых кнопок, но всё же хочется понять что идёт не так.

@zna926 · 09.08.2018, 13:25

Намного удобнее вести прокрутку скроллбаром, каждая строка ричбокса будет видна в текстбоксе

C#
1
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
Forms Code
{  
   private void Form1_Load(object sender, EventArgs e)
        {
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
           String s0 = Environment.NewLine;
            richTextBox1.Text += "AAAAAAAAAAAA1" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA2" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA3" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA4" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA5" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA6" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA7" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA8" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA9" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA10" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA11" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA12" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA13" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA14" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA15" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA16" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA17" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA18" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA19" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA20" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA21" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA22" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA23" + s0;
            richTextBox1.Text += "AAAAAAAAAAAA24" + s0;  
        }
 
        private void hScrollBar1_Scroll(object sender, ScrollEventArgs e)
        {
          textBox1.Text =   richTextBox1.Lines[hScrollBar1.Value];
          
        }
 
 
}

@FaceHoof · 10.08.2018, 09:06 **[ТС]**

zna926, спасибо, но это всё же не то, что надо. Пожалуй распишу изначальную задачу подробней:
В richtextbox выводится очень длинный текст, который при всём желании не выйдет уместить на один экран. Так что нужна возможность его прокручивать. Ситуация осложняется тем, что всё будет происходить на устройстве с сенсорным экраном посредственного качества и попадать даже по hScrollBar будет не очень просто. Поэтому и было решение использовать просто две здоровенный кнопки "вверх" и "вниз".

@zna926 · 10.08.2018, 15:40

Я проверял этот код специально на маленьком ричтекстбоксе, помещается всего 5-6 строчек. Но все строки нормально прокручиваются и все можно увидеть

@FaceHoof · 10.08.2018, 15:54 **[ТС]**

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

@Toros1992 · 10.08.2018, 16:21

C#
1
2
SendKeys.Send("^{DOWN}");
SendKeys.Send("^{UP}");

Если ричтекстбокс в фокусе, то он получит имитацию нажатия соответствующих стрелок.

@FaceHoof · 13.08.2018, 09:12 **[ТС]**

Toros1992, не то. Здесь происходит управление курсором внутри этот ричтекстбокса, а не сразу прокручивание. Да и с фокусом какие-то проблемы, его не удаётся нормально задавать принудительно после нажатия кнопки. А иногда получается... Не важно, всё равно работает совсем не так как надо(

C#
1
2
richTextBox1.Focus ( );
SendKeys.Send ( "^{UP}" );

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@FaceHoof 113 / 100 / 68 Регистрация: 21.04.2014 Сообщений: 1,420
	10.08.2018, 09:06 [ТС]
	zna926, спасибо, но это всё же не то, что надо. Пожалуй распишу изначальную задачу подробней: В richtextbox выводится очень длинный текст, который при всём желании не выйдет уместить на один экран. Так что нужна возможность его прокручивать. Ситуация осложняется тем, что всё будет происходить на устройстве с сенсорным экраном посредственного качества и попадать даже по hScrollBar будет не очень просто. Поэтому и было решение использовать просто две здоровенный кнопки "вверх" и "вниз". 0

@zna926 549 / 480 / 315 Регистрация: 24.09.2013 Сообщений: 3,345 Записей в блоге: 1
	10.08.2018, 15:40
	Я проверял этот код специально на маленьком ричтекстбоксе, помещается всего 5-6 строчек. Но все строки нормально прокручиваются и все можно увидеть 0

@FaceHoof 113 / 100 / 68 Регистрация: 21.04.2014 Сообщений: 1,420
	10.08.2018, 15:54 [ТС]
	Мы похоже не понимаем друг-друга где-то... В этом примере в текстбоксе появляются строки из ричтекстбокса по очереди при взаимодействии с новым скрол баром. В самом ричтекстбоксе ничего не изменяется и не прокручивается. Так вот, мне не нужно выводить отдельные строки куда-то, мне нужно пролистывать вниз и вверх огромный текст в ричтекстбоксе так, словно я это делаю колёсиком мышки. 0