Межстрочный интервал - VB
Формулировка задачи:
Как увеличить межстрочный интервал в текстовом поле? Я пробовал изменение шрифта, но это не подходит, так как хотелось бы использовать разные шрифты.
Решение задачи: «Межстрочный интервал»
textual
Листинг программы
Private Sub Command1_Click(Index As Integer) With Me Select Case Index 'Устанавливаем цвет текста Case Is = (0) .RichTextBox1.SelColor = (vbRed) 'Цвет красный .RichTextBox1.SetFocus 'Возвращаем фокус Case Is = (1) .RichTextBox1.SelColor = (vbBlue) 'Цвет синий .RichTextBox1.SetFocus 'Возвращаем фокус Case Is = (2) .RichTextBox1.SelColor = (vbGreen) 'Цвет зелёный .RichTextBox1.SetFocus 'Возвращаем фокус 'Устанавливаем жирный, подчёркнутый, наклонный Case Is = (3) .RichTextBox1.SelBold = Not .RichTextBox1.SelBold 'Устанавливаем и убираем жирный шрифт .RichTextBox1.SetFocus 'Возвращаем фокус Case Is = (4) .RichTextBox1.SelUnderline = Not .RichTextBox1.SelUnderline 'Устанавливаем и убираем подчёркивание .RichTextBox1.SetFocus 'Возвращаем фокус Case Is = (5) .RichTextBox1.SelItalic = Not .RichTextBox1.SelItalic 'Устанавливаем и убираем наклон .RichTextBox1.SetFocus 'Возвращаем фокус 'Устанавливаем размер шрифта Case Is = (6) .RichTextBox1.SelFontSize = ("24") 'Устанавливаем размер шрифта .RichTextBox1.SetFocus 'Возвращаем фокус 'Сохраняем файл с расширением RTF Case Is = (7) Dim strPathFile As String, f As Long f = FreeFile strPathFile = (App.Path & "\1.rtf") Open (strPathFile) For Output As #f Print #f, Me.RichTextBox1.TextRTF Close #f End Select End With End Sub Private Sub Form_Load() With Me .Command1(0).Caption = ("Красный") .Command1(1).Caption = ("Синий") .Command1(2).Caption = ("Зелёный") .Command1(3).Caption = ("Жирный") .Command1(4).Caption = ("Подчеркнутый") .Command1(5).Caption = ("Наклон") .Command1(6).Caption = ("Размер") .Command1(7).Caption = ("Сохранить") End With End Sub