Belajar Visual Basic Pertemuan 4 dan 5 ; Database NPM

PERTEMUAN  5

Agenda  :    Database   dalam   Visual basic  ,NPM

Mari kita belajar mengenai Visual Basic  source code  diabawah ini:

Public Class Form3

    'Membuat Variable aray'

    Dim Listtxt(3) As String

    Dim listitem As ListViewItem

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

        'Masukan nilai ke variablle aray'

        Listtxt(0) = Trim(TextBox1.Text)

        Listtxt(1) = Trim(TextBox2.Text)

        Listtxt(2) = Trim(TextBox3.Text)

        'untuk memasukan listview dari variable array'

        listitem = New ListViewItem(Listtxt)

        ListView1.Items.Add(listitem)

    End Sub

    'setting kolom listview'

    Sub setlistview()

        ListView1.View = View.Details

        'Untuk menentukan kolom'

        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NPM", 200, HorizontalAlignment.Left)

        ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

    End Sub

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

        Call setlistview()

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        'mengambil nilai dari listview'

        TextBox4.Text = e.Item.Text

    End Sub

End Class

Hasilnya  dalam Form

Setelah Dilakukan pengisian Form:

Contoh :

NPM : 43A87006090103

Nama: Dwi Utomo

Alamat::Tambun

Outputnya seperti diabawah ini: