Абзац и отступ

29.03.2007, 08:52. **Показов** 6357. **Ответов** 5

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

Пожалуйста подскажите как можно делать только первую строку абзаца отступ в право и как можно считать сколько абзаца в RichBox-е. Заранее спасибо

Vova

@zans · 29.03.2007, 14:55

Вот рабочий пример работы с абзацами. Рекомендую для большей функциональности посмотреть API RichTextBox, там структура
PARAFORMAT2 имеет множество полезных параметров (как в Word).

Visual Basic
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
Private Sub Command1_Click()
 ' Установить слева отступ всего абзаца
 RichTextBox1.SelIndent = 2
End Sub
 
Private Sub Command2_Click()
' Установить отступ всего абзаца кроме первой строки
RichTextBox1.SelHangingIndent = 1
End Sub
 
Private Sub Command3_Click()
' Установить отступ справа
RichTextBox1.SelRightIndent = 1
End Sub
 
Private Sub Command4_Click()
' Подсчитать количество абзацев
Dim i, k As Integer
 i = 0: k = 0
  Do
   k = InStr(k + 1, RichTextBox1.Text, vbCrLf, vbTextCompare)
   i = i + 1
  Loop While (k <> 0)
 MsgBox i
End Sub
 
Private Sub Command5_Click()
' Установить красную строку, через табуляцию (Ctrl+Tab)
RichTextBox1.SelTabCount = 1
RichTextBox1.SelTabs(0) = 1
End Sub
 
Private Sub Form_Load()
 ' В сантиметрах
 Me.ScaleMode = 7
 With RichTextBox1
  .Text = 'Первый абзац текста. Не очень длинный но полезный для примера.'
  .Text = .Text & vbCrLf & 'Второй абзац текста. Элемент по размерам в примере маленький.'
 End With
End Sub

30.03.2007, 05:36

Спасибо вам, и еще один вопрос где можно найти и узнать побольше информацию о функциональный возможностях API RichTextBox (PARAFORMAT2). Еше раз спасибо

@zans · 01.04.2007, 05:02

Дополнительная информация в Win32 SDK или MSDN. MSDN распространяется отдельно от VB на 3-х компакт-дисках. Там есть раздел посвященный Rich в нем и описание структур и сообщений.

01.04.2007, 17:20

Или используй онлайн-версию

http://msdn.microsoft.com/library/devprods/vs6/vbasic/rtfbox98/vbobjrichedit.htm

@Ierihon · 07.12.2018, 14:51

Не подскажите, что то подобное для TextBox существует?
RichTextBox1.SelIndent = 2

Не могу отступ от края сделать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Vovan

	Абзац и отступ 29.03.2007, 08:52. Показов 6357. Ответов 5 Метки нет (Все метки) Пожалуйста подскажите как можно делать только первую строку абзаца отступ в право и как можно считать сколько абзаца в RichBox-е. Заранее спасибо Vova

Vovan
	30.03.2007, 05:36
	Спасибо вам, и еще один вопрос где можно найти и узнать побольше информацию о функциональный возможностях API RichTextBox (PARAFORMAT2). Еше раз спасибо

@zans 0 / 0 / 1 Регистрация: 21.02.2007 Сообщений: 126
	01.04.2007, 05:02
	Дополнительная информация в Win32 SDK или MSDN. MSDN распространяется отдельно от VB на 3-х компакт-дисках. Там есть раздел посвященный Rich в нем и описание структур и сообщений. 0

asd
	01.04.2007, 17:20
	Или используй онлайн-версию http://msdn.microsoft.com/library/devprods/vs6/vbasic/rtfbox98/vbobjrichedit.htm

@Ierihon 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 32
	07.12.2018, 14:51
	Не подскажите, что то подобное для TextBox существует? RichTextBox1.SelIndent = 2 Не могу отступ от края сделать. 0