MenuStrip, ContextMenuStrip dan RichTextBox

 MenuStrip

adalah merupakan objek kontrol yang berfungsi untuk membuat pilihan menu dropdown, dan juga salah satu penyajian menu perintah yang sering dipakai oleh programer.

ContexMenuStrip

adalah merupakan objek control yang berfungsi untuk membuat menu pilihan yang akan tampil pada saat tombol kanan mouse di klik.

RichTextBox

adalah merupakan objeck control yang fungsinya hampir sama seperti textbox hanya sajaobjeck control ini lebih banyak menampung. karakter dan bisa manipulasi karakter seperti menggaris bawahi

Pertama tambahkan menuStrip seperti gambar dibawah dan atur propetiesnya untuk Form1 name form1 textnya Notepad, start position CenterScreen. Selanjut kita klik dan drag menuStrip yang ada di toolbox dan kita isi seperti gambar diatas ada File, Baru, Buka, Simpan. Setelah itu buat RichTexBox kita drag di toolbox dilebarin sesuai background kita atur di propetiesnya name menjadi RchTeks dan atur ContextMenuStrip1. Terakhir kita buat ContextMenuStrip kita isi seperti menuStrip isi Reguler, Bold

Setelah sudah selesai semua, buat program seperti dibawah ini :

Double click pada menuStrip Baru dan double click Buka, dan double click Simpan

Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click

        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog

        kotak_dialog.Filter = "File Text (*.txt) | *.txt"

        kotak_dialog.ShowDialog()

        Dim fileText As String  =My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)

        RchTeks.Text = fileText

End Sub

Double click pada contextmenustrip pada Reguler dan Bold

Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click

        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog

        kotak_dialog.Filter = "File Text (*.txt) | *.txt"

        kotak_dialog.ShowDialog()

        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)

End Sub

Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di

toolbar, atau melalui menu Debug > Start Debuging. Hasilnya seperti gambar diatas.

• Latihan Praktikum 

Pertama kita buat form1 lalu buat menuStrip kita isi Pilih, Input data, Cetak data, Keluar dan buat Label1 ganti textnya menjadi "Pertemuan 4" seperti pada gambar,

Double click pada Input data, Cetak data, Keluar lalu isi program seperti berikut,

Selanjutnya kita buat form2 buat Label1 untuk Nrp dan menggunakan textBox, Label2 untuk Nama menggunakan TextBox, Label3 untuk Kelas menggunakan ComboBox, Label4 untuk Semester menggunakan ComboBox, Label5 untuk Alamat menggunakan TextBox dan untuk Simpan pakai Button. Ubah di propetiesnya untuk menggunakan TextBox Txt_nrp, Txt_nama dan untuk menggunakan comboBox Cmb_kelas, Cmb_semester, Txt_alamat.

kemudian Double click pada bagian Button dan isikan program sebagai berikut,

Buat form3 sama seperti form2 untuk cara buatnya dan ubahlah buttonnya menjadi "kembali"

dan Double click pada bagian "Button kembali" dan isikan program sebagai berikut,

Selanjutnya terakhir buat form4 kita tambahkan Label1 lalu ganti teksnya menjadi "Data Berhasil Disimpan" dan buat Button dengan text "Kembali"

Lalu Double click pada bagian "Button kembali" dan isikan program sebagai berikut,

Setelah semua selesai jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging ditoolbar, atau melalui menu Debug > Start Debuging dan Hasilnya seperti ini,

Dan setelah semuanya selesai lalu Simpan aplikasi anda, sekian dan terima kasih.