Установка каретки в RichTextBox

@Catstail · Регистрация: 12.02.2012

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

Хочу установить нестандартную каретку в RichTextBox (стандартная - тонкий вертикальный штрих - очень неудобна). Как это сделать?

@Argus19 · 28.06.2020, 16:42

Эти функции не помогут? :

Visual Basic
1
2
3
4
Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpMyFileName As String) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long

@Catstail · 28.06.2020, 17:47 **[ТС]**

Это установка курсора мыши.

@Argus19 · 28.06.2020, 19:55

Catstail, нашёл кое-что. Сделал проект. Непонятно, почему не отображается картинка. Пустой курсор отображается. Надеюсь, с вашим опытом разобраться не составит труда.

@locm · 28.06.2020, 20:05

Argus19, причем здесь курсор?
Каретка это "такая штука, мигающая в редакторе". Создается функцией CreateCaret.

@Argus19 · 28.06.2020, 20:12

locm, я разобрался. В проекте изображение, которое по идее, должно отображаться. Если вторым параметром передаётся ноль

Visual Basic
1
CreateCaret(foc, 0, 30, 30)

то появляется чёрный квадрат размером 30Х30.
Если же передать описатель растра, содержащегося в PictureBox, то ничего не появляется. Подозреваю, что загружаю в PictureBox что-то не то

Мне уже самому интересно, что не так.

@Catstail · 28.06.2020, 20:46 **[ТС]**

Argus19, это с сайта "Русский проект"? Да, я в курсе. Управление кареткой - проблема...

@Argus19 · 28.06.2020, 21:18

Сообщение от Catstail

это с сайта "Русский проект"?

Да.
Что именно надо загрузить в PictureBox?
Если приводятся примеры, то автоматически подразумевается, что они рабочие, тем более есть ещё на "studassistent"

и код, приведённый там - ответ на вопрос, т.е. должен работать.

@Argus19 · 28.06.2020, 21:34

Всё. Порешал!

@Argus19 · 29.06.2020, 00:17

Добавил функцию изменения частоты мерцания каретки:

@Argus19 · 30.06.2020, 21:13

Сделал научное открытие! Чтобы цвет каретки был красным, она должна быть зелёной!

Смастерил .ico кареток 8-ми цветов с возможностью их перебора:

@vedunasv · 30.06.2020, 22:03

Это не окрытие, это Чудо.

Добавлено через 43 секунды
Argus19 - Чудесник.
А учёных у нас - пруд пруди...

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Catstail Супер-модератор 38200 / 21132 / 4310 Регистрация: 12.02.2012 Сообщений: 34,739 Записей в блоге: 14

	Установка каретки в RichTextBox 28.06.2020, 15:44. Показов 928. Ответов 11 Метки caret, rtf, vb6 (Все метки) Хочу установить нестандартную каретку в RichTextBox (стандартная - тонкий вертикальный штрих - очень неудобна). Как это сделать? 0

@Catstail Супер-модератор 38200 / 21132 / 4310 Регистрация: 12.02.2012 Сообщений: 34,739 Записей в блоге: 14
	28.06.2020, 17:47 [ТС]
	Это установка курсора мыши. 0

@locm 6846 / 3270 / 338 Регистрация: 28.10.2011 Сообщений: 12,779 Записей в блоге: 7
	28.06.2020, 20:05
	Argus19, причем здесь курсор? Каретка это "такая штука, мигающая в редакторе". Создается функцией CreateCaret. 0

@Catstail Супер-модератор 38200 / 21132 / 4310 Регистрация: 12.02.2012 Сообщений: 34,739 Записей в блоге: 14
	28.06.2020, 20:46 [ТС]
	Argus19, это с сайта "Русский проект"? Да, я в курсе. Управление кареткой - проблема... 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	30.06.2020, 22:03
	Это не окрытие, это Чудо. Добавлено через 43 секунды Argus19 - Чудесник. А учёных у нас - пруд пруди... 0