Menu Strip, Tool Strip, Status Strip & List View

Desain Awal Form 2 "Main Form"



Coding Form-2
LBL_TANGGAL.Text = DateValue(Now())
'Properties
- background image diganti gambar contoh 'bebek'
- windowState = maximized


Coding Menu Strip Barang (Ctrl+B)

        form1.StartPosition = FormStartPosition.CenterScreen
        form1.Show()
'Properties :
- image bisa diganti
- shorcutKeys, contoh = ctrl-B

Coding ToolStripButton

  form1.StartPosition = FormStartPosition.CenterScreen
        form1.Show()
'menampilkan form barang (form-1)



Status Strip
' Status Bar di bawah Form
contoh : tanggal codingnya di tulis diform

-------------------------

Desain Awal Form-2

Combon Box Task
'edit items

-DEPAN
-BELAKANG
-CENTER

Coding Button Tambah
Dim Daftar As ListViewItem
        If TXT_KODE.Text = "" Or TXT_NAMA.Text = "" Or TXT_JUMLAH.Text = "" Or CBX_GUDANG.Text = "" Then
            MsgBox("Data Harus Diisi Dengan Lengkap")
        Else
            Daftar = ListView1.Items.Add(TXT_KODE.Text)
            Daftar.SubItems.Add(TXT_NAMA.Text)
            Daftar.SubItems.Add(TXT_JUMLAH.Text)
            Daftar.SubItems.Add(CBX_GUDANG.Text)


Coding Button Baru

TXT_KODE.Text = ""
        TXT_JUMLAH.Text = ""
        TXT_NAMA.Text = ""
        CBX_GUDANG.Text = ""


Coding Button Hapus

If ListView1.SelectedItems.Count <> 0 Then
            ListView1.Items.Remove(ListView1.SelectedItems(0))
        Else
            MsgBox("Anda Belum Memilih Item")
        End If

'List View
klik kanan Edit


F5 Preview

SEMOGA BERMANFAAT

---