Minggu, 14 Oktober 2012
di
07.19
|
Form Latihan_34a_36110037
terdapat dua object yaitu MenuStrip, dan ToolStrip.
Object Menu Strip
Terdapat sebuah object Menu Strip yang mempunyai ToolStripMenuItem.
Object Tool Strip
Terdapat sebuah object Tool Strip yang mempunyai 2 ToolStripLabel dan 2 ToolStripButton.
Terdapat sebuah object Menu Strip yang mempunyai ToolStripMenuItem.
Object Tool Strip
Terdapat sebuah object Tool Strip yang mempunyai 2 ToolStripLabel dan 2 ToolStripButton.
Script Unique
Saat mengklik ToolStripMenuItem “Daftar Barang” atau
ToolstripLabel “Daftar Barang” atau TollStripButton “buton1”.
If
Latihan_34b_36110037.Visible = False Then
Latihan_34b_36110037.MdiParent = Me
Latihan_34b_36110037.Show()
Else
Latihan_34b_36110037.Activate()
End If
Saat mengklik ToolStripMenuItem “Input Barang” atau
ToolstripLabel “Input Barang” atau TollStripButton “buton2”.
If
Latihan_34c_36110037.Visible = False Then
Latihan_34c_36110037.MdiParent = Me
Latihan_34c_36110037.Show()
Else
Latihan_34c_36110037.Activate()
End If
Event
ButtonclickProperty
Property Form:
FormBorderStyle : FixedDialog
AutoScaleMode : Font
StartPosition : CentreParent
IsMdiContainer : True
MaximizeBox : False
MinimizeBox : False
ShowInTaksbar : False
Prosedur Penyelesaian
1. buka project yang telah dibuat.2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form seperti di bawah ini dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_34a_36110037
Private Sub DAFTARBARANGToolStripMenuItem_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
If Latihan_34b_36110037.Visible = False Then
Latihan_34b_36110037.MdiParent = Me
Latihan_34b_36110037.Show()
Else
Latihan_34b_36110037.Activate()
End If
End Sub
Private Sub INPUTBARANGToolStripMenuItem_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
If Latihan_34c_36110037.Visible = False Then
Latihan_34c_36110037.MdiParent = Me
Latihan_34c_36110037.Show()
Else
Latihan_34c_36110037.Activate()
End If
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
If Latihan_34b_36110037.Visible = False Then
Latihan_34b_36110037.MdiParent = Me
Latihan_34b_36110037.Show()
Else
Latihan_34b_36110037.Activate()
End If
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
If Latihan_34c_36110037.Visible = False Then
Latihan_34c_36110037.MdiParent = Me
Latihan_34c_36110037.Show()
Else
Latihan_34c_36110037.Activate()
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If Latihan_34b_36110037.Visible = False Then
Latihan_34b_36110037.MdiParent = Me
Latihan_34b_36110037.Show()
Else
Latihan_34b_36110037.Activate()
End If
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
If Latihan_34c_36110037.Visible = False Then
Latihan_34c_36110037.MdiParent = Me
Latihan_34c_36110037.Show()
Else
Latihan_34c_36110037.Activate()
End If
End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar