contoh program VB.Net

Source Program :

Public Class Form1

'variabel general

Dim isitext(4) As String 'array

Dim mlist As ListViewItem

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call BERSIH()

Call isi_combo()

Call set_tampilan()

End Sub

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

End Sub

Sub BERSIH()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

ComboBox1.Text = "06 Teknik Informatika"

End Sub

Sub isi_combo()

ComboBox1.Items.Add("06 Teknik Informatika")

ComboBox1.Items.Add("07 Sistem Informasi")

ComboBox1.Items.Add("67 Komputer Akutansi")

ComboBox1.Items.Add("05 Teknik Komputer")

ComboBox1.Items.Add("26 Manajemen Informatika")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "TAMBAH" Then

Button1.Text = "SIMPAN"

Button2.Enabled = False

Button3.Enabled = False

Button4.Text = "BATAL"

TextBox1.Focus()

Else

isitext(0) = Trim(TextBox1.Text)

isitext(1) = Trim(TextBox2.Text)

isitext(2) = Trim(TextBox3.Text)

isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2) 'mengambil fasilitas microsoft vb

mlist = New ListViewItem(isitext)

ListView1.Items.Add(mlist)

Call BERSIH()

TextBox1.Focus()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "UBAH" Then

Button2.Text = "SIMPAN"

Button1.Enabled = False

Button3.Enabled = False

Button4.Text = "BATAL"

TextBox1.Focus()

Else

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Button3.Text = "HAPUS" Then

Button3.Text = "OK"

Button1.Enabled = False

Button2.Enabled = False

Button4.Text = "BATAL"

TextBox1.Focus()

Else

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Button4.Text = "KELUAR" Then

Me.Close()

Else

Call BERSIH()

Call normal()

End If

End Sub

Sub normal()

Button1.Text = "TAMBAH"

Button1.Enabled = True

Button2.Text = "UBAH"

Button2.Enabled = True

Button3.Text = "HAPUS"

Button3.Enabled = True

Button4.Text = "KELUAR"

End Sub

Sub set_tampilan()

ListView1.View = View.Details 'fungsinya untuk membuat sebuah tampilan

'(NAMA COLOUM, SIZE ,POSISI TULISAN)

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("ALAMAT", 250, HorizontalAlignment.Center)

ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

End Class