Private Sub p46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109001.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New Latihan_045_46109001 Latihan_053_46109001.honda.ReportSource = laporan If Latihan_053_46109001.Visible = False Then Latihan_053_46109001.Show() Latihan_053_46109001.Activate() End If End Sub End Class
Private Sub p_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109030.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New Latihan_045_46109030 Latihan_053_46109030.Honda.ReportSource = laporan If Latihan_053_46109030.Visible = False Then Latihan_053_46109030.Show() Latihan_053_46109030.Activate()
Private Sub LATIHAN054_46109021_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New latihan045_46109021 LATIHAN053_46109021.HONDA_46109021.ReportSource = laporan If LATIHAN053_46109021.Visible = False Then Else LATIHAN053_46109021.Activate();jika sudah muncul tapi dibelakang End If
Private Sub p_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109045.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New Latihan_045_46109045 Latihan_053_46109045.honda.ReportSource = laporan If Latihan_053_46109045.Visible = False Then Latihan_053_46109045.Show() Latihan_053_46109045.Activate() End If End Sub End Class
Private Sub p46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109017.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New Latihan_045_46109017 Latihan_053_46109017.honda.ReportSource = laporan If Latihan_053_46109017.Visible = False Then Latihan_053_46109017.Show() Latihan_053_46109017.Activate() End If End Sub End Class
Private Sub p_46109041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109041.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New Latihan_045_46109041 Latihan_053_46109041.honda.ReportSource = laporan If Latihan_053_46109041.Visible = False Then Latihan_053_46109041.Show() Latihan_053_46109041.Activate() End If End Sub End Class
Public Class LATIHAN_054_46109054 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi1_46109054.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New latihan045_46109054 Form53_46109054.HONDA.ReportSource = laporan If Form53_46109054.Visible = False Then Form53_46109054.Show() Else Form53_46109054.Activate() End If End Sub End Class
Public Class Latihan_054_46109001
BalasHapusPrivate Sub p46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109001.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_045_46109001
Latihan_053_46109001.honda.ReportSource = laporan
If Latihan_053_46109001.Visible = False Then
Latihan_053_46109001.Show()
Latihan_053_46109001.Activate()
End If
End Sub
End Class
Public Class LATIHAN_054_46109030
BalasHapusPrivate Sub p_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109030.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_045_46109030
Latihan_053_46109030.Honda.ReportSource = laporan
If Latihan_053_46109030.Visible = False Then
Latihan_053_46109030.Show()
Latihan_053_46109030.Activate()
End If
End Sub
End Class
Public Class LATIHAN054_46109021
BalasHapusPrivate Sub LATIHAN054_46109021_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New latihan045_46109021
LATIHAN053_46109021.HONDA_46109021.ReportSource = laporan
If LATIHAN053_46109021.Visible = False Then
Else
LATIHAN053_46109021.Activate();jika sudah muncul tapi dibelakang
End If
End Sub
End Class
Private Sub p_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109045.Click
BalasHapusDim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_045_46109045
Latihan_053_46109045.honda.ReportSource = laporan
If Latihan_053_46109045.Visible = False Then
Latihan_053_46109045.Show()
Latihan_053_46109045.Activate()
End If
End Sub
End Class
Public Class Latihan_054_46109017
BalasHapusPrivate Sub p46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109017.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_045_46109017
Latihan_053_46109017.honda.ReportSource = laporan
If Latihan_053_46109017.Visible = False Then
Latihan_053_46109017.Show()
Latihan_053_46109017.Activate()
End If
End Sub
End Class
Komentar ini telah dihapus oleh pengarang.
BalasHapusPublic Class Latihan_054_46109041
BalasHapusPrivate Sub p_46109041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109041.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_045_46109041
Latihan_053_46109041.honda.ReportSource = laporan
If Latihan_053_46109041.Visible = False Then
Latihan_053_46109041.Show()
Latihan_053_46109041.Activate()
End If
End Sub
End Class
Public Class LATIHAN_054_46109054
BalasHapusPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi1_46109054.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New latihan045_46109054
Form53_46109054.HONDA.ReportSource = laporan
If Form53_46109054.Visible = False Then
Form53_46109054.Show()
Else
Form53_46109054.Activate()
End If
End Sub
End Class
http://srikartikafanty.blogspot.com/2012/11/latihan5446110007.html
BalasHapushttp://www.wahyunirachman.blogspot.com/2012/11/latihan5446110020.html
BalasHapushttp://sulhihusni.blogspot.com/2012/12/latihan5446110004.html
BalasHapushttp://idhamsyaam.blogspot.com/2012/12/latihan5446110021.html
BalasHapushttp://restyaccounting.blogspot.com/2012/12/latihan5446110027.html
BalasHapushttp://cacalisa.blogspot.com/2012/12/latihan5446110038.html
BalasHapushttp://hanihasan07.blogspot.com/2012/12/latihan5446110044.html
BalasHapushttp://mulyawarman039.blogspot.com/2012/12/latihan5446110039.html
BalasHapushttp://dianmegariski.blogspot.com/2012/12/latihan-5446110023.html
BalasHapushttp://muthmil8.blogspot.com/2012/12/latihan5446110037.html
BalasHapushttp://masdarwati.blogspot.com/2013/01/latihan5446110024.html
BalasHapushttp://bahrizj.blogspot.com/2013/01/latihan5446110001.html
BalasHapushttp://ildayani.blogspot.com/2012/11/latihan5446110002.html
BalasHapushttp://amalmaulana92.blogspot.com/2013/01/latihan5446110003.html
BalasHapushttp://aardianzah2.blogspot.com/2013/01/latihan-54.html
BalasHapushttp://feibyfrycilia.blogspot.com/2013/01/latihan5446110055.html
BalasHapushttp://bothbon.blogspot.com/2013/01/latihan5446110043.html
BalasHapushttp://fitrianihamka.blogspot.com/2013/01/latihan5446110006.html
BalasHapushttp://rafidashaleh.blogspot.com/2013/01/latihan5446110041.html
BalasHapushttp://diyanahdina.blogspot.com/2013/01/latihan5446110045.html
BalasHapushttp://deodns.blogspot.com/#!/2013/01/latihan5446110040.html
BalasHapushttp://alfaega.blogspot.com/2013/01/latihan5446110022.html
BalasHapushttp://yuliaasrida427.blogspot.com/2013/01/latihan5446110009.html
BalasHapus