mainmenu.vb

This is a Text Editor Created USing VB.net

Public Class MainMenu
    Dim edit As New clsEdit

#Region "Project"
    Private Sub Browser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbBrowser.Click, mnuBrowser.Click
        If Me.ActiveMdiChild.Name = frmBrowser.Name Then Exit Sub
        frmTextEditor.Close()
        frmBrowser.MdiParent = Me
        frmBrowser.WindowState = FormWindowState.Maximized
        frmBrowser.Show()
        EnabledKontrol(False)
    End Sub

    Private Sub TeksEditor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbTeksEditor.Click, mnuTeksEditor.Click
        If Me.ActiveMdiChild.Name = frmTextEditor.Name Then Exit Sub
        frmBrowser.Close()
        frmTextEditor.MdiParent = Me
        frmTextEditor.WindowState = FormWindowState.Maximized
        frmTextEditor.Show()
        EnabledKontrol(True)
    End Sub

    Private Sub HtmlEditor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbHtmlEditor.Click, mnuHtmlEditor.Click
        frmTextEditor.rtfEditor.Text = frmBrowser.Web.DocumentText
        TeksEditor_Click(sender, e)
    End Sub

    Private Sub EnabledKontrol(ByVal isTextEditor As Boolean)
        If isTextEditor = True Then
            tbbBack.Enabled = False
            tbbForward.Enabled = False
            tbbRefresh.Enabled = False
            tbbHome.Enabled = False
            tbbStop.Enabled = False

            tbbNormal.Enabled = True
            tbbBold.Enabled = True
            tbbItalic.Enabled = True
            tbbUnderline.Enabled = True
            tbbLeft.Enabled = True
            tbbCenter.Enabled = True
            tbbRight.Enabled = True
            tbbCut.Enabled = True
            tbbCopy.Enabled = True
            tbbPaste.Enabled = True
            tbbEnskripsi.Enabled = True
            mnuEdit.Enabled = True
            mnuFormat.Enabled = True
            mnuEnskripsi.Enabled = True
            mnuDeskripsi.Enabled = True
        Else
            tbbBack.Enabled = True
            tbbForward.Enabled = True
            tbbRefresh.Enabled = True
            tbbHome.Enabled = True
            tbbStop.Enabled = True

            tbbNormal.Enabled = False
            tbbBold.Enabled = False
            tbbItalic.Enabled = False
            tbbUnderline.Enabled = False
            tbbLeft.Enabled = False
            tbbCenter.Enabled = False
            tbbRight.Enabled = False
            tbbCut.Enabled = False
            tbbCopy.Enabled = False
            tbbPaste.Enabled = False
            tbbEnskripsi.Enabled = False
            mnuEdit.Enabled = False
            mnuFormat.Enabled = False
            mnuEnskripsi.Enabled = False
            mnuDeskripsi.Enabled = False
        End If
    End Sub
#End Region

#Region "File"

    Private Sub New_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbNew.Click, mnuNew.Click
        If Me.ActiveMdiChild.Name = frmTextEditor.Name Then frmTextEditor.rtfEditor.Text = ""
    End Sub

    Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbOpen.Click, mnuOpen.Click
        On Error Resume Next
        Dim openWindow As New OpenFileDialog
        With openWindow
            If Me.ActiveMdiChild.Name = frmTextEditor.Name Then
                .ShowDialog()
                frmTextEditor.rtfEditor.LoadFile(.FileName, RichTextBoxStreamType.PlainText)
            Else
                .Filter = "File htm (*.htm)|*.htm| File html (*.html)|*.html"
                .ShowDialog()
                frmBrowser.Web.Navigate(.FileName)
            End If
            txtUrl.Text = .FileName
        End With
    End Sub

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbSave.Click, mnuSave.Click
        Dim saveWindow As New SaveFileDialog
        With saveWindow
            .ShowDialog()
            If Me.ActiveMdiChild.Name = frmTextEditor.Name Then
                frmTextEditor.rtfEditor.SaveFile(.FileName, RichTextBoxStreamType.RichText)
            Else
                frmBrowser.Web.Document.ExecCommand("save", True, Nothing)
            End If
        End With
    End Sub

    Private Sub Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        End
    End Sub

#End Region

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

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

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

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

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

#Region "Format"

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

    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()
            frmTextEditor.rtfEditor.SelectionFont = .Font
        End With
    End Sub

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

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

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

    Private Sub Underline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUnderline.Click, tbbUnderline.Click
        edit.Huruf(frmTextEditor.rtfEditor, FontStyle.Underline)
    End Sub

    Private Sub Left_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLeft.Click, tbbLeft.Click
        edit.Perataan(frmTextEditor.rtfEditor, HorizontalAlignment.Left)
    End Sub

    Private Sub Center_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCenter.Click, tbbCenter.Click
        edit.Perataan(frmTextEditor.rtfEditor, HorizontalAlignment.Center)
    End Sub

    Private Sub Right_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRight.Click, tbbRight.Click
        edit.Perataan(frmTextEditor.rtfEditor, HorizontalAlignment.Right)
    End Sub
#End Region

#Region "Tools"
    Private Sub Enskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEnskripsi.Click, tbbEnskripsi.Click
        frmTextEditor.Enskriptor(True)
        frmEnskripsi = Nothing
    End Sub

    Private Sub Deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDeskripsi.Click
        frmTextEditor.Enskriptor(False)
        frmEnskripsi = Nothing
    End Sub

    Private Sub CaptureScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCaptureScreen.Click, tbbCaptureScreen.Click
        frmCapture.Show()
    End Sub
#End Region

#Region "Browser"

    Private Sub tbbBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbBack.Click
        frmBrowser.Web.GoBack()
        LokasiUrl()
    End Sub

    Private Sub tbbForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbForward.Click
        frmBrowser.Web.GoForward()
       LokasiUrl()
    End Sub

    Private Sub tbbHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbHome.Click
        frmBrowser.Web.GoHome()
        LokasiUrl()
    End Sub

    Private Sub tbbRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbRefresh.Click
        frmBrowser.Web.Refresh()
    End Sub

    Private Sub tbbStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbStop.Click
        frmBrowser.Web.Stop()
    End Sub

    Private Sub LokasiUrl()
        If frmBrowser.Web.Document.Url.IsFile = True Then
            txtUrl.Text = frmBrowser.Web.Document.Url.LocalPath
        Else
            txtUrl.Text = frmBrowser.Web.Document.Url.Host
        End If
    End Sub

#End Region

#Region "Lain-lain"

    Private Sub MainMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        frmTextEditor.MdiParent = Me
        frmTextEditor.WindowState = FormWindowState.Maximized
        frmTextEditor.Show()
        EnabledKontrol(True)
    End Sub

    Private Sub MainMenu_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        chkTopMost.Left = Me.Width - chkTopMost.Width - 10
        txtUrl.Width = Me.Width - lblUrl.Width - btnGO.Width - 50
    End Sub

    Private Sub btnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGO.Click
        If txtUrl.Text = "" Then
            Open_Click(sender, e)
        Else
            urlAlamatFile()
        End If
    End Sub

    Private Sub chkTopMost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTopMost.CheckedChanged
        If chkTopMost.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub

    Private Sub txtUrl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyDown
        If e.KeyCode = Keys.Enter Then urlAlamatFile()
    End Sub

    Private Sub urlAlamatFile()
        Try
            If Me.ActiveMdiChild.Name = frmTextEditor.Name Then
                frmTextEditor.rtfEditor.LoadFile(txtUrl.Text, RichTextBoxStreamType.PlainText)
            Else
                frmBrowser.Web.Navigate(txtUrl.Text)
            End If
        Catch ex As Exception
            MsgBox("Alamat web yang dimasukkan salah", MsgBoxStyle.Critical, "Error")
            txtUrl.Focus()
            txtUrl.SelectAll()
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        With Date.Now
            Dim hari As String
            Select Case .DayOfWeek
                Case 0 : hari = "Minggu"
                Case 1 : hari = "Senin"
                Case 2 : hari = "Selasa"
                Case 3 : hari = "Rabu"
                Case 4 : hari = "Kamis"
                Case 5 : hari = "Jumat"
                Case Else : hari = "Sabtu"
            End Select
            tbbTimer.Text = hari & ", " & .Day & ":" & .Month & ":" & .Year & ", " & .Hour & ":" & .Minute & ":" & .Second
        End With
    End Sub

#End Region

End Class