Межстрочный интервал - VB

Формулировка задачи:

Как увеличить межстрочный интервал в текстовом поле? Я пробовал изменение шрифта, но это не подходит, так как хотелось бы использовать разные шрифты.

Код к задаче: «Межстрочный интервал - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.091 из 5


СДЕЛАЙТЕ РЕПОСТ