Deskripsi form Latihan_34a_46110003
Dalam form Latihan_34a_46110003 terdapat tiga object yaitu DataGriedView, Menustrip dan Toolstrip
Dalam form Latihan_34a_46110003 terdapat tiga object yaitu DataGriedView, Menustrip dan Toolstrip
Object
datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Object Menustrip :
MenuStrip merupakan komponen yang berfungsi untuk membuat menu pilihan
Object Toolstrip :
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Script Unique :
Dalam form ini tidak terdapat script unique
Even :
Click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_34a_46110003
Private Sub TSLdaftar46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
TSLdaftar46110003.Click
Latihan_34b_46110003.Show()
End Sub
Private Sub TSLinput46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
TSLinput46110003.Click
If
Latihan_34c_46110003.Visible = False Then
Latihan_34c_46110003.MdiParent = Me.MdiParent
Latihan_34c_46110003.Show()
Else
Latihan_34c_46110003.Activate()
End If
End Sub
Private Sub daftar46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles daftar46110003.Click
Latihan_34b_46110003.Show()
End Sub
Private Sub input46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles input46110003.Click
If
Latihan_34c_46110003.Visible = False Then
Latihan_34c_46110003.MdiParent = Me.MdiParent
Latihan_34c_46110003.Show()
Else
Latihan_34c_46110003.Activate()
End If
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar