Membuat MenuStrip, ContextMenuStrip & RichTextBox di Visual Basic

 

Menu Strip

Menu strip adalah salah satu penyajian menu perintah yang sering dipakai oleh programer. Ada 3 komponen dari suatu menu strip yaitu :

1. Images / gambar dari menu

2. Access keys / tombol keyboard untuk mengaktifkan suatu menu. Contohnya kombinasi Alt dan F untuk mengaktifkan menu File di Ms. Word.

3. Shortcut keys / jalan pintas dengan menggunakan kombinasi tombol keyboard untuk mengaktifkan suatu perintah yang sering digunakan.

RichTextBox

RichTextBox adalah control seperti textbox dengan kemampuan menampilkan text dengan rich text format (RTF)

Langkah langkah Membuat MenuStrip dan RichTextBox

Pada form 1, buatlah design awal seperti dibawah ini.  Ubah namanya melalui Properties

Pada form 2, buatlah design seperti dibawah

Edit item pada combo box, dengan cara klik kanan di mouse

Pada combo box 1 / kelas, beri item seperti ini

Pada combo box 2 / semester, beri item seperti dibawah

Pada form ke 3, buat seperti ini

Selanjutnya kita akan memasukan program nya.

Untuk form 1 : Double klik di input data, lalu masukkan 

Me.Hide()

Form2.Show()

Pada Cetak Data, masukkan kode berikut

Me.Hide()
  Form3.Show()  

Untuk form 2 : Pada ComboBox1SelectedIndex

                                Case 0

                                        Label1.Font = New Font("TI 1",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 1

                                        Label1.Font = New Font("TI 2",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 2

                                        Label1.Font = New Font("TI 3",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 3

                                        Label1.Font = New Font("TI 4",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 4

                                        Label1.Font = New Font("TI 5",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                End Select

Pada ComboBox2, beri kode berikut

                                

                                Select Case ComboBox2.SelectedIndex

                                Case 0

                                        Label1.Font = New Font("1",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 1

                                        Label1.Font = New Font("2",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 2

                                        Label1.Font = New Font("3",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 3

                                        Label1.Font = New Font("4",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 4

                                        Label1.Font = New Font("5",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 5

                                        Label1.Font = New Font("6",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 6

                                        Label1.Font = New Font("7",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                Case 7

                                        Label1.Font = New Font("8",

                                        Label1.Font.Size, Label1.Font.Style Xor

                                        FontStyle.Regular)

                                End Select

Pada Button, beri kode berikut

Form3.Label1.Text = RichTextBox1.Text

Form3.Label2.Text = RichTextBox2.Text

Form3.Label3.Text = ComboBox1.Text 

Form3.Label4.Text = ComboBox2.Text

                                                        Dim pilih

                                                       pilih = MsgBox("Apa Anda Yakin Ingin Simpan Data",                                                                                       MessageBoxButtons.YesNo, "Pilih")

                                                       If pilih = Windows.Forms.DialogResult.Yes Then

                                                       Me.Close()

                                                       Form1.Show()

                                                       ElseIf pilih = Windows.Forms.DialogResult.No Then

                                                       Dim x

                                                       x = MsgBox("Periksa Data Anda kembali", MessageBoxIcon.Asterisk,                                                              "Info!")

                                                       If x = Windows.Forms.DialogResult.Yes Then

                                                       End If

                                                       End If

Jalankan projek tersebut dan hasilnya akan seperti ini  :

Tampilan awal

Tampian Menu