Kali ini kita akan bahas artikel tentang Membuat nomor urut otomatis ListView di VB.Net.
berikut listing programnya
berikut hasil runingnya
berikut listing programnya
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Class Form1 | |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | |
Dim lvl As New ListViewItem | |
lvl.Text = ListView1.Items.Count + 1 | |
lvl.SubItems.Add(TextBox1.Text) | |
ListView1.Items.Add(lvl) | |
lvl = Nothing | |
TextBox1.Text = "" | |
End Sub | |
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged | |
If ListView1.SelectedItems.Count > 0 Then | |
TextBox1.Text = ListView1.SelectedItems(0).SubItems(1).Text | |
End If | |
End Sub | |
End Class |
Comments
Post a Comment