Contoh Aplikasi Data Karyawan Menggunakan Array Dengan VB.Net 2010

Form Data karyawan VB.Net 2010

Source Code data aplikasi data karyawan menggunakan VB.Net 2010

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim arr(4, 1) As String

arr(0, 0) = "ID"

arr(0, 1) = "NAMA"

arr(1, 0) = "JENIS KELAMIN"

arr(1, 1) = "JABATAN"

arr(2, 0) = "ALAMAT"

arr(2, 1) = "TTL"

arr(3, 0) = "TELP/HP"

arr(3, 1) = "EMAIL"

arr(4, 0) = "Laki-laki"

arr(4, 1) = "Perempuan"

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 = 4 To 4

For kolom = 0 To 1

cmbJK.Items.Add(arr(baris, kolom))

Next kolom

Next baris

ListView1.Columns.Add("ALAMAT", 125)

ListView1.Columns.Add("TTL", 105)

ListView1.Columns.Add("TELP/HP", 105)

ListView1.Columns.Add("EMAIL", 110)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim arr(7) As String

arr(0) = txtID.Text

arr(1) = txtnama.Text

arr(2) = cmbJK.Text

arr(3) = txtjabat.Text

arr(4) = txtalamat.Text

arr(5) = txttgllahir.Text

arr(6) = txttelp.Text

arr(7) = txtemail.Text

Dim listitem As ListViewItem

listitem = New ListViewItem

listitem = ListView1.Items.Add(arr(0))

listitem.SubItems.Add(arr(1))

listitem.SubItems.Add(arr(2))

listitem.SubItems.Add(arr(3))

listitem.SubItems.Add(arr(4))

listitem.SubItems.Add(arr(5))

listitem.SubItems.Add(arr(6))

listitem.SubItems.Add(arr(7))

txtnama.Text = ""

cmbJK.Text = ""

txtjabat.Text = ""

txtalamat.Text = ""

txttgllahir.Text = ""

txttelp.Text = ""

txtemail.Text = ""

txtID.Focus()

txtID.Clear()

End Sub

End Class

Contoh Aplikasi Data Karyawan Menggunakan Array Dengan VB.Net 2010

Artikel Menarik Lainnya

2 komentar