Biodata Mahasiswa

Dalam Program ini kita akan menampilkan biodata mahasiswa yang teresume oleh user ke listbox...

mari kita lihat coding e dlo yah :) sperti biasanya...

Public Class Form1

    Private Sub PanelEx1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelEx1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StyleManager1.ManagerStyle = DevComponents.DotNetBar.eStyle.Office2007Blue
        Dim i As Integer
        Dim j As Integer
        Dim g As Integer

        For i = 1 To 31
            ComboBox_Tgl.Items.Add(i)
        Next
        For j = 1 To 12
            ComboBox_bln.Items.Add(j)
        Next
        For g = 1990 To 2000
            ComboBox_thn.Items.Add(g)
        Next

      
    End Sub

    Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

    End Sub

    Private Sub Button_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Proses.Click
        ListView_Resume.Items.Add("Nama Lengkap               : " & TextBox__nama.Text & " " & TextBox_belakang.Text)
        ListView_Resume.Items.Add("TTL                                 : " & TextBox_TTL.Text & " " & ComboBox_Tgl.Text & " - " & ComboBox_bln.Text & " - " & ComboBox_thn.Text)
        If RadioButton_LK.Checked Then
            ListView_Resume.Items.Add("Jenis Kelamin                  : " & RadioButton_LK.Text)
        End If
        If RadioButton_PR.Checked Then
            ListView_Resume.Items.Add("Jenis Kelamin                  : " & RadioButton_PR.Text)
        End If
        ListView_Resume.Items.Add("Alamat                             : " & TextBox_alamat.Text)
        ListView_Resume.Items.Add("Bahasa yang di Kuasai    :")
        If CheckBox_basic.Checked Then
            ListView_Resume.Items.Add(CheckBox_basic.Text)
        End If
        If CheckBox_C.Checked Then
            ListView_Resume.Items.Add(CheckBox_C.Text)
        End If
        If CheckBox_CC.Checked Then
            ListView_Resume.Items.Add(CheckBox_CC.Text)
        End IfA
            If CheckBox_Java.Checked Then
                ListView_Resume.Items.Add(CheckBox_Java.Text)
            End If
            If CheckBox_PHP.Checked Then
                ListView_Resume.Items.Add(CheckBox_PHP.Text)
            End If
    End Sub
End Class

dan Tampilannya adalah :)))