BREAKING NEWS

Lokomedia

Tips dan Trik

Template Balitbang

Tuesday, November 27, 2012

Memanfaatkan Array 1 Dimensi dan Array Multi Dimensi Pada VB.Net 2010



Khem.... hehehe

Kali ini IT Sasak akan berbagi sedikit pengetahuan tentang VB.Net...

Membuat aplikasi sederhana dengan memanfaatkan Array 1 Dimensi dan Multi Dimensi... ^_^


Berikut Source Codenya:
Ini source untuk Form Loadnya:

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Arr(4, 1) As String

        Arr(0, 0) = "Kode Barang"
        Arr(0, 1) = "Nama Barang"
        Arr(1, 0) = "Jenis"
        Arr(1, 1) = "Satuan"
        Arr(2, 0) = "Sabun Mandi"
        Arr(2, 1) = "Pasta Gigi"
        Arr(3, 0) = "Pcs"
        Arr(3, 1) = "Box"
        Arr(4, 0) = "Lusin"
        Arr(4, 1) = "Kodi"

        ListView1.GridLines = True
        ListView1.View = View.Details

        For Baris = 0 To 1
            For Kolom = 0 To 1
                ListView1.Columns.Add(Arr(Baris, Kolom), 100)
            Next Kolom
        Next Baris
        For Baris = 2 To 2
            For Kolom = 0 To 1
                cmbjenis.Items.Add(Arr(Baris, Kolom))
            Next Kolom
        Next Baris

        For Baris = 3 To 4
            For Kolom = 0 To 1
                cmbsatuan.Items.Add(Arr(Baris, Kolom))
            Next Kolom
        Next Baris
    End Sub

Sedangkan untuk source simpan (Button Simpannya):

Private Sub btnsimpan_Click(sender As System.Object, e As System.EventArgs) Handles btnsimpan.Click
        Dim Arr(4) As String

        Arr(1) = txtkode.Text
        Arr(2) = txtnama.Text
        Arr(3) = cmbjenis.Text
        Arr(4) = cmbsatuan.Text

        Dim listitem As ListViewItem
        listitem = New ListViewItem

        listitem = ListView1.Items.Add(Arr(1))
        listitem.SubItems.Add(Arr(2))
        listitem.SubItems.Add(Arr(3))
        listitem.SubItems.Add(Arr(4))

        txtkode.Text = txtkode.Text + 1
        txtnama.Text = ""
        cmbsatuan.Text = ""
        txtnama.Focus()




    End Sub

2 comments :

  1. Keren kaka.. :D
    makasi Infonya..

    ReplyDelete
  2. kak,,
    Kenapa di listviewnya gak bisa.
    ada masalah disitu..
    aplikasinya gk bisa jalan...mohon penjelasannya.
    thannks

    ReplyDelete

Peraturan dan Tata Cara Berkomentar di IT Sasak


1) Berkomentarlah Secara Sopan dan Tidak Melakukan Spaming

2) Berkomentar Sesuai Dengan Tema Artikel

3) Dilarang Menyertakan Link dalam Komentar

4) Beri Nama Jelas (jangan menggunakan nama Anonim)

 
Copyright © 2011 IT Sasak
Powered by Blogger