CONTOH PENGGUNAAN MENUSTRIP CONTEXTMENUSTRIP DAN RICHTEXTBOX PADA VB.NET 2008

1. Buat project baru
2. Buat desain tampilan seperti gambar dibawah ini :

3. Tambahkan menuStrip seperti pada form di atas

4. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text Start Position	Form1 NotePad CenterScreen
MenuStrip1	name	MenuStrip1
RichTextBox1	Name ContextMenuStrip	RchTeks ContextMenuStrip1
ContextMenuStrip1	Name	ContextMenuStrip1

5.  Klik ganda pada menu buka, ketikkan kode program berikut ini :

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

6.  Klik ganda pada menu simpan, ketikkan kode program berikut ini :

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

7.  Klik ganda pada menu Baru, ketikkan kode program berikut ini :

Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click

        RchTeks.Text = ""

End Sub

8.  Klik ganda pada menu ContextMenuStrip  dengan menu regular, kemudian ketik kode program berikut

    ini :

Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click

        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Regular)

End Sub

9. Klik ganda pada menu ContextMenuStrip dengan menu Bold, kemudian ketik kode program berikut

    ini 

Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click

        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Bold)

End Sub

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

      toolbar, atau melalui menu Debug > Start Debuging.

11. Simpan aplikasi anda.

Hasilnya dapat dilihat seperti pada gambar dibawah ini :

Untuk mendownload projectnya klik disini