Langsung ke konten utama

Postingan

Menampilkan postingan dari Desember, 2013

listview kuis

               Public Class Form1     Sub BuatTabel()         LV.columns.Add( "Npm" , 80, HorizontalAlignment.Center)         LV.columns.Add( "Nama" , 180, HorizontalAlignment.Left)         LV.View = View.Details         LV.GridLines = True         LV.FullRowselect = True     End Sub     Sub IsiTabel()         Dim Lst As New ListViewItem         Lst.Text = Npm.Text         Lst.SubItems.Add(Nama.Text)         LV.Items.Add(Lst)     End Sub     Private Sub Form1_Load( ByVal sender As System.Object, ByVal...