Mencontreng Menu

Berikut ini contoh-contoh bagaimana cara men-contreng / centang / check sebuah Menu.

1. Mencontreng 1 menu.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Posisi
Contoh	mnuContoh	Contoh
Tes	mnuTes	**** Tes

Di bagian 'mnuTes_Click' ketikkan :

mnuTes.Checked = Not mnuTes.Checked
  
If mnuTes.Checked = True Then
' jika menu tercontreng
Else
' jika tidak
End If

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan 1 MenuDropDown (Name = mnuTes). Lalu Di bagian 'mnuTes_Click' ketikkan :

mnuTes.Checked = Not mnuTes.Checked
  
If mnuTes.Checked = True Then
' jika menu tercontreng
Else
' jika tidak
End If

2. Mencontreng 2 menu sebagai pilihan.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Posisi
Contoh	mnuContoh	Contoh
Pilihan Pertama	mnuPilihan1	**** Pilihan Pertama
Pilihan Kedua	mnuPilihan2	**** Pilihan Kedua

Di bagian 'Form_Load' ketikkan :

 mnuPilihan1_Click 'default menu yang tercontreng

Di bagian 'mnuPilihan1_Click' ketikkan :

mnuPilihan1.Checked = True
mnuPilihan2.Checked = False
'kode jika pilihan 1 tercontreng

Di bagian 'mnuPilihan2_Click' ketikkan :

mnuPilihan1.Checked = False
mnuPilihan2.Checked = True
'kode jika pilihan 2 tercontreng

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan 2 MenuDropDown dengan rincian :

Text	Name
Pilihan Pertama	mnuPilihan1
Pilihan Kedua	mnuPilihan2

Di bagian 'Form1_Load' ketikkan :

mnuPilihan1.PerformClick() 'default menu yang tercontreng

Di bagian 'mnuPilihan1_Click' ketikkan :

mnuPilihan1.Checked = True
mnuPilihan2.Checked = False
'kode jika pilihan 1 tercontreng

Di bagian 'mnuPilihan2_Click' ketikkan :

mnuPilihan1.Checked = False
mnuPilihan2.Checked = True
'kode jika pilihan 2 tercontreng

3. Mencontreng banyak menu sebagai pilihan dengan tekhnik array.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Index	Posisi
Contoh	mnuContoh		Contoh
Pilihan ke 1	mnuPilihan	0	**** Pilihan ke 1
Pilihan ke 2	mnuPilihan	1	**** Pilihan ke 2
Pilihan ke 3	mnuPilihan	2	**** Pilihan ke 3
Pilihan ke 4	mnuPilihan	3	**** Pilihan ke 4
Pilihan ke 5	mnuPilihan	4	**** Pilihan ke 5

Di bagian 'Form_Load' ketikkan :

mnuPilihan_Click (0) 'default menu yang tercontreng

Di bagian 'mnuPilihan_Click' ketikkan :

Dim i As Integer
For i = 0 To mnuPilihan.Count - 1
mnuPilihan(i).Checked = (i = Index)
Next

MsgBox mnuPilihan(Index).Caption 'menampilkan teks pilihan

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan beberapa MenuDropDown dengan rincian :

Text	Name
Pilihan ke 1	mnuPil1
Pilihan ke 2	mnuPil2
Pilihan ke 3	mnuPil3
Pilihan ke 4	mnuPil4
Pilihan ke 5	mnuPil5

Di bagian 'Form1_Load' ketikkan :

mnuPil1.PerformClick() 'default menu yang tercontreng

Tambahkan prosedur berikut sebagai pengganti handle click-nya.

Private Sub Pilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPil1.Click, mnuPil2.Click, mnuPil3.Click, mnuPil4.Click, mnuPil5.Click
For Each c As ToolStripMenuItem In mnuContoh.DropDownItems
c.Checked = (c.GetHashCode = sender.GetHashCode)
Next

MsgBox(CType(sender.Text, String)) 'menampilkan teks pilihan
End Sub