clsedit.vb

来自「This is a Text Editor Created USing VB.n」· VB 代码 · 共 34 行

Public Class clsEdit

    Public Sub Huruf(ByVal namaRTF As RichTextBox, ByVal kelompok As FontStyle)
        If namaRTF.SelectedText.Length <> 0 Then
            namaRTF.SelectionFont = New Font(namaRTF.SelectionFont.Name, namaRTF.SelectionFont.Size, kelompok)
        Else
            namaRTF.Font = New Font(namaRTF.SelectionFont.Name, namaRTF.SelectionFont.Size, kelompok)
        End If
    End Sub

    Public Sub Perataan(ByVal namaRTF As RichTextBox, ByVal rata As HorizontalAlignment)
        With namaRTF
            If .SelectedText.Length = 0 Then .SelectAll()
            .SelectionAlignment = rata
        End With
    End Sub

    Public Sub Copy(ByVal namaRTF As RichTextBox)
        If namaRTF.SelectedText.Length > 0 Then Clipboard.SetText(namaRTF.SelectedText)
    End Sub

    Public Sub Cut(ByVal namaRTF As RichTextBox)
        If namaRTF.SelectedText.Length > 0 Then
            Clipboard.SetText(namaRTF.SelectedText)
            namaRTF.SelectedText = ""
        End If
    End Sub

    Public Sub Paste(ByVal namaRTF As RichTextBox)
        namaRTF.SelectedText = Clipboard.GetText
    End Sub

End Class