How to make Notepad di VB.Net

Salam sejahtera semua
kali ini saya akan berbagi ilmu pada anda yaitu Cara Membuat Notepad Di VB 2008.

Okeh langsung ajah ...
pertama komponent yang harus kita masukan adalah:

1.ColorDialog
2.OpenFileDialog
3.SaveFileDialog
4.StatusStrip
5.MenuStrip
6.RichTextBox
Masukan komponet di atas tadi satuper satu

Untuk membuat menu File,Edit dan sebagainya di MenuStrip..pertama kita klik 1x di MenuStrip lalu akan ada tanda arah.....
kmudian klik....pilih Insert Standartd Item
di setiap sub menu sudah ada menu2 kita tinggal memasukan code saja.....,tapi sekiranya menu yang tidak dibutuhkan hadus saja atau bisa anda kembangkan codenya, karna sy tik memberi code yang lain. hanya inti saja...selebihnya silahkan anda kembangkan.................

Untuk menu New
RichTextBox1.Clear()

Untuk menu Save
        SaveFileDialog1.Filter = "TextDocuments |*.txt |All Files|*.*"
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> "" Then
            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, RichTextBox1.Text)
            FileClose(1)
        End If

Untuk menu Open
        Dim AllText As String = "", Lineoftext As String = ""
        OpenFileDialog1.Filter = "All Files |*.*"
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName <> "" Then

        End If
        Try
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            Do Until EOF(1)
                Lineoftext = LineInput(1)
                AllText = AllText & Lineoftext & vbCrLf
            Loop
            RichTextBox1.Text = AllText
        Catch
        Finally
            FileClose(1)
        End Try

Untuk menu Print
        Dim AB As New PrintDialog
        Try
            AB.ShowDialog()
            RichTextBox1.Text = AB.PrintToFile
        Catch ex As Exception
            'Again, do nothing on exception ,hanya info
        End Try



Untuk menu Font
     Dim FS As New FontDialog
        Try
            FS.ShowDialog()
            RichTextBox1.Font = FS.Font
        Catch ex As Exception
            'Do nothing on exeption,hanya info
        End Try

Untuk menu Color
       Dim FC As New ColorDialog
        Try
            FC.ShowDialog()
            RichTextBox1.ForeColor = FC.Color
        Catch ex As Exception
            'Again, do nothing on exception
        End Try

Untuk menu Find
        Dim a As String
        Dim b As String
        a = InputBox("Masukan Teks Yang Ingin Ditemukan")
        b = InStr(RichTextBox1.Text, a)
        If b Then
            RichTextBox1.Focus()
            RichTextBox1.SelectionStart = b - 1
            RichTextBox1.SelectionLength = Len(a)
        Else : MsgBox("Tidak ada teks.")
        End If


Dan untuk menampilkan tanggal di status strip masukan 2 label
Codenya ini. sebelumnya sobat masukan dulu menu Time di submenu Edit

ToolStripStatusLabel1.Text = TimeOfDay
ToolStripStatusLabel2.Text = DateString

Untuk menu Edit Seperti copy,paste,cut,undo,redo,select all
Ini code untuk copy
RichTextBox1.Copy()

Nah tulisan warna merah bisa anda ganti sesuai menunya.paste/cut/undo/redo/select all.

Setelah jadi simpan pekerjaan anda dan jalankan.
Sekian saja dari dulu


Semoga Bermanfaat