Menampilkan Data Mahasiswa dlm List view

Berikut adalah Coding untuk menampilkan Data Mahasiswa pada Form Data Mahasiswa
yang semula tampil di ListBox, diganti menjadi ListView.

Setelah Form dibuat maka berikut adalah codingnya :

Public Class Form1

'Membuat Variable Array
Dim Listtxt(3) As String
Dim Listitem As ListViewItem


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

'Memasukan nilai ke variable Array
Listtxt(0)=Trim(TextBox1.Text)
Listtxt(1)=Trim(TextBox2.Text)
Listtxt(2)=Trim(TextBox3.Text)

'Untuk Memasukkan ke ListView dari Variable

ListItem = New ListViewItem (Listtxt)
ListView1.Items.Add (Listitem)

End Sub

'Setting kolom List View

Sub setlistview()
ListView1.View = View.Details

'untuk Menentukan kolom

ListView1.Colums.Add ("NPM",100,Horizontal........Centre)
ListView2.Colums.Add ("Nama",200,Horizontal........Left)
ListView3.Colums.Add ("Alamat",400,Horizontal........Left)

End Sub

Private Sub ListView1.Item Selection........ListView1.ItemSelectionChanged
'Untuk mengambil data dari ListView yang di sorot ke TextBox

Textbox4.Text = e.Item.Text

End Sub

Maka dengan memasukkan coding diatas, tampilan data mahasiswa akan masuk ke ListView...

Form Data Mahasiswa

Berikut adalah coding untuk pembuatan Form Data Mahasiswa :

Public Class Form1

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


End Sub
Sub isicombo()
ComboBox1.Items.Add("06 teknik informatika")
ComboBox1.Items.Add("07 sistem informasi")
ComboBox1.Items.Add("26 management informasi")
ComboBox1.Items.Add("67 komputer akutansi")
ComboBox1.Items.Add("05 teknik komputer")
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 teknik 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()
ListBox1.Items.Add(Trim(TextBox1.Text) + "" + Trim(TextBox2.Text) + "" + (TextBox3.Text) + "" + Trim(TextBox4.Text))

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() 'menutup sendiri'
Else
Call bersih()
Call normal()
End If
End Sub

sub normal()
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
Button1.Enabled = False
Button3.Enabled = False
Button3.Text = "Batal"
TextBox1.Text = Focus()
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"
Call bersih()
End If

End Sub

End Class

Puzzle

Public Class Form1

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

Handles Button1.Click

If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text

Else If

Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text

End If

End Sub

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

Handles Button2.Click

If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text

Else If

Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text

Else If

Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text


End If

End Sub

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

Handles Button3.Click

If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text

Else If

Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text

End If

End Sub

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

Handles Button4.Click

If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text

Else If

Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text

Else If

Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text


End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button5.Click

If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text

Else If

Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text

Else If

Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text

Else If

Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text

End If

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button6.Click

If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text

Else If

Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text

Else If

Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text

End If

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button7.Click

If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text

Else If

Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text

End If

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button8.Click

If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text

Else If

Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text

Else If

Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text

End If

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button9.Click

If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text

Else If

Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text

End If

End Sub