Deskripsi Form Latihan 34A
Pada form
latihan 34A ada 3 object yang digunakan yaitu MenuStrip,
DataGriedView, dan ToolStrip.
Object MenuStrip
Terdapat 1
object MenuStrip pada form latihan 34A (Barang).
Object DataGriedView
Terdapat 1 Object datagridview yang berfungsi
untuk menampilkan data tabel.
Object ToolStrip
Ada
2 ToolStrip (data barang dan input barang)
Script Unique
Pada Latihan ini
tidak ada script yang baru, secara keseluruhan script telah ada pada
latihan-latihan sebelumnya.
Even
Click
Langkah-Langkah
Penyelesaian Form Latihan_34A_46110002
·
Buka folder project yang telah dibuat.
·
Klik kanan, view kode lalu masukkan rumus
Public Class Latihan_34A_46110002
Private Sub TSL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL1_46110002.Click
Latihan_34B_46110002.Show()
End Sub
Private Sub TSL2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_46110002.Click
If Latihan_34C_46110002.Visible = False Then
Latihan_34C_46110002.MdiParent = Me.MdiParent
Latihan_34C_46110002.Show()
Else
Latihan_34C_46110002.Activate()
End If
End Sub
Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang.Click
Latihan_34B_46110002.Show()
End Sub
Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBarang.Click
If Latihan_34C_46110002.Visible = False Then
Latihan_34C_46110002.MdiParent = Me
Latihan_34C_46110002.Show()
Else
Latihan_34C_46110002.Activate()
End If
End Sub
End Class
Public Class Latihan_34A_46110002
Private Sub TSL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL1_46110002.Click
Latihan_34B_46110002.Show()
End Sub
Private Sub TSL2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_46110002.Click
If Latihan_34C_46110002.Visible = False Then
Latihan_34C_46110002.MdiParent = Me.MdiParent
Latihan_34C_46110002.Show()
Else
Latihan_34C_46110002.Activate()
End If
End Sub
Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang.Click
Latihan_34B_46110002.Show()
End Sub
Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBarang.Click
If Latihan_34C_46110002.Visible = False Then
Latihan_34C_46110002.MdiParent = Me
Latihan_34C_46110002.Show()
Else
Latihan_34C_46110002.Activate()
End If
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 34
·
Klik star debugging, trus klik latihan 34
·
Lalu click “daftar barang” maka akan muncul
latihan 34B







0 komentar:
Posting Komentar