frmtexteditor.vb

This is a Text Editor Created USing VB.net

Public Class frmTextEditor
    Dim edit As New clsEdit

#Region "Clipboard"

    Private Sub mnuCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCut.Click
        edit.Cut(rtfEditor)
    End Sub

    Private Sub mnuCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCopy.Click
        edit.Copy(rtfEditor)
    End Sub

    Private Sub mnuPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPaste.Click
        edit.Paste(rtfEditor)
    End Sub
#End Region

#Region "Font"

    Private Sub mnuFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFont.Click
        Dim fontWindows As New FontDialog
        With fontWindows
            .ShowDialog()
            rtfEditor.SelectionFont = .Font
        End With
    End Sub

    Private Sub mnuNormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNormal.Click
        edit.Huruf(rtfEditor, FontStyle.Regular)
    End Sub

    Private Sub mnuBold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBold.Click
        edit.Huruf(rtfEditor, FontStyle.Bold)
    End Sub

    Private Sub mnuItalic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuItalic.Click
        edit.Huruf(rtfEditor, FontStyle.Italic)
    End Sub

    Private Sub mnuUnderline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUnderline.Click
        edit.Huruf(rtfEditor, FontStyle.Underline)
    End Sub
#End Region

#Region "Enskriptor"

    Private Sub mnuEnskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEnskripsi.Click, mnuEnskriptor.Click
        Enskriptor(True)
    End Sub

    Private Sub mnuDeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDeskripsi.Click
        Enskriptor(False)
    End Sub

    Public Sub Enskriptor(ByVal isEnkrip As Boolean)
        If rtfEditor.SelectedText = "" Then Exit Sub
        Dim tmp As String

        If isEnkrip = True Then
            tmp = frmEnskripsi.Run(rtfEditor.SelectedText, True)
        Else
            tmp = frmEnskripsi.Run(rtfEditor.SelectedText, False)
        End If

        If tmp <> "" Then rtfEditor.SelectedText = tmp
        frmEnskripsi = Nothing
    End Sub
#End Region

#Region "Lain-lain"
    Private Sub rtfEditor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtfEditor.TextChanged
        tssHuruf.Text = "Banyak Kata = " & rtfEditor.TextLength
        tssBaris.Text = "Banyak Baris = " & rtfEditor.Lines.Length
    End Sub

    Private Sub mnuUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUndo.Click
        rtfEditor.Undo()
    End Sub

    Private Sub mnuRedo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRedo.Click
        rtfEditor.Redo()
    End Sub

    Private Sub mnuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelete.Click
        rtfEditor.SelectedText = ""
    End Sub

    Private Sub mnuSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSelect.Click
        rtfEditor.SelectAll()
    End Sub

    Private Sub mnuFindReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFindReplace.Click
        If rtfEditor.SelectedText.Length > 0 Then frmFindReplace.txtFind.Text = rtfEditor.SelectedText
        frmFindReplace.Show()
    End Sub

    Private Sub frmTextEditor_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        rtfEditor.Height = Me.Height - 50
    End Sub
#End Region

End Class