Membuat Text Editor dengan Visual Basic .Net

Pada artikel ini, saya akan membagi pengetahuan saya tentang cara membuat text edior yang sederhana menggunakan Visual Basic .Net. Aplikasi yang akan kita buat ini adalah aplikasi text editor yang mirip dengan NotePad. Bedanya aplikasi ini dibandingkan dengan NotePad, kita hanya akan membuat Aplikasi yang hanya bisa membaca isi file text dan membuat file text. Aplikasi ini akan menghasilkan file dengan extensi (*.txt, *.html, *.htm, *.php, *.*). Dari ekstensi tadi, anda juga bisa menambahkan ekstensi file lainnya yang berupa file sejnis dengan file text (seperti java, bat, ini, inf, rtf). Perlu diingat bahwa Aplikasi ini hanya membaca File2 text yang bisa di buat pada aplikasi NotePad, tidak bisa membaca File2 text yang di buat pada Aplikasi Office atau sejenisnya,

-> Buka Visual Basic .Net

-> Buat project Baru dengan Nama Text Editor

-> Setelah melengkapi informasi yang dibutuhkan dalam langkah awal pembuatan project, akan muncul area kerja Visual Basic .Net..

->Dari toolbox, tambahkan objek RichTextBox dan ContextMenuStrip ke dalam form

-> Atur nilai properties pada masing2 objek :

     Form1

     - Caption : Text Editor

     RichTextBox

     - (Name) : Rtf_Text

     - Dock    : Fill

     - ContextMenuStrip  : ContextMenuStrip1

-> Pilih ContextMenuStrip yang telah ditambahkan ke dalam form, kemudian pada properties Items klik tombol "...", kemudian akan muncul jendela 'Item Collections Editor'.

-> Klik tombol add 2x untuk menambah 2 item menu pada Context Menu..

-> Dari gambar diatas, pilih ToolStripMenuItem1, ubah nilai properties (Name) : MnSimpan, Text : Simpan, Klik tombol panah kecil pada properties ShortcutKey(Centeng Ctrl, kemudian pilih S pada plihan key

-> Pilih ToolStripMenuItem2, ubah nilai properties (Name) : MnBuka, Text : Buka, Klik tombol panah kecil pada properties ShortcutKey(Centeng Ctrl, kemudian pilih O pada plihan key

-> Jika sudah, klik tombol OK

-> Pada area desain Form, pilih ContextMenuStrip1, desain formakan tampak seperti gambar dibawah :

-> Klik 2x pada menu Buka, maka akan muncul area untuk penulisan listing kode. kemudian ketikkan kode dibawah di dalam prosedur MnBuka_Click

      Dim Buka_File As New OpenFileDialog

   Buka_File.Title = "Buka file"

   Buka_File.InitialDirectory = "D:\"

   Buka_File.Filter = "Text Files|*.txt|HTML Files|*.html|HTM Files|*.htm|Php Files|*.php|All Files|*.*"

   Buka_File.FileName = ""

   If Buka_File.ShowDialog = Windows.Forms.DialogResult.OK Then

        Dim Nama_File As String = Buka_File.FileName

        Rtf_Text.Text = My.Computer.FileSystem.ReadAllText(Nama_File)

   End If

-> Kembali ke area desain Form, pilih ContextMenuStrip1, kemudian klik 2x pada MnSimpan untuk masuk pada area Coding program dan ketikkan listing di bawah dalam prosedur MnSimpan_Click

        Dim Simpan_File As New SaveFileDialog

     Simpan_File.Title = "Simpan file"

     Simpan_File.InitialDirectory = "D:\"

     Simpan_File.Filter = "Text Files|*.txt|HTML Files|*.html|HTM Files|*.htm|Php Files|*.php|All Files|*.*"

     Simpan_File.FileName = ""

     If Simpan_File.ShowDialog = Windows.Forms.DialogResult.OK Then

        Dim Nama_File As String = Simpan_File.FileName

        My.Computer.FileSystem.WriteAllText(Nama_File, Rtf_Text.Text, True)

     End If

-> Jika sudah, jalankan program dengan menekan tombol F5 pada keyboard.

Untuk membuat file baru, Ketikkan text pada aplikasi, kemudian klik kanan dan pilih menu Simpan (Ctrl +S), akan muncul jendela Simpan File, pilih tempat penyimpanan file, masukkan nama file, pilih format file kemudian klik Save

Klik kanan pada aplikasi kemudian pilih menu Buka (Ctrl + O) untuk membuka file yang akan akan dibaca isi filenya.

Semoga bisa membantu...

Download file project : Text Editor.rar