Pages

Rabu, 30 Maret 2011

Cara membuat program vb.net semi data base

Cara membuat program vb.net semi data base

1.buat design nya seperti gambar berikut















2. buat scribnya sebagai berikut :
Public Class Form1
'membuat variable array
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
'memasukan nilai ke variable array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)
'untuk memasukkan ke listview dari variable
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub

'setting colom listview
Sub setlistview()
ListView1.View = View.Details
'untuk menentukan kolom/nama kolom pada listbox
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("alamat", 100, HorizontalAlignment.Left)
End Sub

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

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'ganti properti kiri listview1 kanan itemselectionchanged
'mangambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub
End Class

Hasilnya sebagai berikut :

1 komentar: