Belajar Input Teks
March 24, 2008
Belajar Input Teks di List
Private Sub cmdHapus_Click()
LstList.RemoveItem (LstList.ListIndex) ‘ membuat suatu list Item
LstList.RemoveItem (LstList.ListIndex) ‘ membuat suatu list Item
End Sub
Private Sub cmdHapusSemua_Click() ‘hapus semua item di list
LstList.Clear
End Sub
Private Sub cmdInput_Click()
LstList.AddItem txtInput.Text ‘tombol penambahan list
txtInput.Text = “” ‘ masukkan nama list yg ingin ditambahkan
End Sub
Private Sub cmdKeluar_Click() ‘ keluar program
End
End Sub
source:http://programmervb.blog.com
