Minggu, 29 Januari 2012

Jawaban No 2 (DANIEL)

KASUS : KLIK DISINI 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buatTable()
    End Sub
    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Call addjurusan()
        Call addjenjang()
        Call addtahun()

    End Sub
    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged
        Call addnhuruf()
    End Sub
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call isiTable()
        Call bersih()
    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
        Call bersih()
    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        On Error Resume Next
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub