Belajar Logika dan Pemrograman

Public Class MiniWorPad
Dim Frm As Form
Dim Tmp As System.IO.TextReader
Private Sub MiniWordPad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BkDlg.Title = "Baca File Teks"
BkDlg.Filter = "File Teks.RTF |*.RTF"
SmpnDlg.Title = "Simpan File Teks"
SmpnDlg.Filter = "File Teks.RTF |*.RTF "
TlsnDlg.FontMustExist = True
TlsnDlg.ShowApply = True
TlsnDlg.ShowEffects = True
WrnDlg.FullOpen = True
Me.IsMdiContainer = True
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
BkDlg.ShowDialog()
On Error GoTo Batal
Tmp = New System.IO.StreamReader(BkDlg.FileName)
RTB.Text = Tmp.ReadToEnd
Tmp.Close()
Exit Sub
Batal:
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
SmpnDlg.FileName = ""
SmpnDlg.ShowDialog()
On Error GoTo Batal
Dim Tmp As System.IO.TextWriter
Tmp = New System.IO.StreamWriter(SmpnDlg.FileName)
Tmp.Write(RTB.Text)
Tmp.Close()
Exit Sub
Batal:
End Sub
Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
TlsnDlg.ShowDialog()
RTB.Font = TlsnDlg.Font
End Sub
Private Sub FontDlg_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TlsnDlg.Apply
RTB.Font = TlsnDlg.Font
End Sub

Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
WrnDlg.ShowDialog()
RTB.ForeColor = WrnDlg.Color
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
RTB.Clear()
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RTB.Cut()
End Sub
Private Sub BulletToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BulletToolStripMenuItem.Click
If RTB.SelectionBullet = False Then
RTB.SelectionBullet = True
ElseIf RTB.SelectionBullet = True Then
RTB.SelectionBullet = False
End If
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RTB.Undo()
End Sub

Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
RTB.Redo()
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RTB.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RTB.Paste()
End Sub

End Class

Download...