[Tugas Pemrograman Visual] Memasukkan Gambar Pada Form Project VB.Net

Postingan ini adalah tugas terakhir yang diberikan oleh dosen saya di akhir semester ini. Ingat ya, akhir semester lho bukan akhir dari segalanya *hmm. Langsung ikuti design form-nya gaes..........

 Berikut listing programnya :))))))))))))

Public Class Form1
    Sub BuatTabel()
        With LV
            .Columns.Add("Kode", 60, HorizontalAlignment.Center)
            .Columns.Add("Nama", 200, HorizontalAlignment.Left)
            .Columns.Add("Harga", 50, HorizontalAlignment.Right)
            .Columns.Add("Jumlah", 60, HorizontalAlignment.Right)
            .Columns.Add("Total Harga", 60, HorizontalAlignment.Right)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 3
            Jumlah.Items.Add(i)
        Next
        For i = 1 To 9
            Kode.Items.Add("P00" & i)
        Next
        Call BuatTabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "P001"
                Nama.Text = "Televisi"
                Harga.Text = 2900000
            Case "P002"
                Nama.Text = "DVD Sony"
                Harga.Text = 900000
            Case "P002"
                Nama.Text = "Notebook"
                Harga.Text = 4900000
            Case "P003"
                Nama.Text = "CD RW"
                Harga.Text = 290000
            Case "P007"
                Nama.Text = "CD BLANK"
                Harga.Text = 29000
            Case Else
                Nama.Text = ""
                Harga.Text = 0
        End Select
        Try
            gambar.Image = Image.FromFile("D:" & kode.Text & ".jpg")
        Catch err As Exception
            Gambar.Image = Nothing
        End Try
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        totharga.Text = harga.Text * jumlah.Text
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        kode.Text = ""
        nama.Text = ""
        harga.Text = ""
        totharga.Text = ""
        jumlah.Text = ""
    End Sub

    Private Sub isi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isi.Click
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(totharga.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub Hapusbrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusbrg.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class

Hasilnya adalah seperti gambar yang ada di bawah ini: