Latihan_54_36110052
A.
Object-object
dalam Latihan_54_36110052
1.
Object
label
Terdapat 1 object label yang bertuliskan DAFTARBARANG
(LATIHAN 45)
2.
Object
button
Terdapat 1 object button yang bertuliskan preview
B. Script Unique
Untuk
script, silahkan lihat selengkapnya pada Langkah-langkah
kerja latihan_54_36110052
B. Even
PREVIEW_36110052_Click
Langkah-langkah
kerja latihan_54_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_54_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties
4. Buat
form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public Class
LATIHAN_54_36110052
Private Sub
PREVIEW_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PREVIEW_36110052.Click
Dim Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Laporan = New LATIHAN_45_36110052
LATIHAN_53_36110052.VIA.ReportSource = Laporan
If LATIHAN_53_36110052.Visible = False Then
LATIHAN_53_36110052.Show()
Else
LATIHAN_53_36110052.Activate()
LATIHAN_53_36110052.WindowState = FormWindowState.Normal
End If
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar