Pengaturan Zoom dan Text Size

Postingan : | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 |

Setelah pertemuan sebelumnya kita membuat pengaturan PageSetup, kali ini kita juga akan memberikan pengaturan Zoom, Text Size dan Rule pada Laporan Data Siswa.

Sebelum kita muali, pastikan aplikasi pada latihan sebelumnya telah terbuka dan siap dioperasikan.

  • Double klik pada w_lap_siswa untuk membuka window laporan siswa.
  • Pilih Komponen Create StaticText Control dan letakkan dibawah dw_1 (dw_lap_siswa) lalu ketikkan Zoom.
  • Lakukan hal yang sama, pilih StaticText Control letakkan dibawah Zoom dan ketikkan Size Text.
  • Tambahkan Komponen DropDownListBox Control dan letakkan di samping Text Zoom.
  • Pada Properties DropDownListBox pilih item isikan dengan nilai 50, 60, 70, 80, 90, 100, 120, 130, 140.
  • Lakukan hal yang sama pada Size Text namu pada Properties Item isikan dengan nilai 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
  • Double klik pada DropDownListBox Zoom (ddlb_1) lalu ketikkan sintak berikut.
    dw_1.object.datawindow.print.preview='yes'
    integer li_zoom
    li_zoom = integer(This.text)
    dw_1.Object.DataWindow.Print.Preview.Zoom = li_zoom
  • Double klik pada DropDownListBox Size Text (ddlb_2) lalu ketikkan sintak berikut.
          dw_1.Object.DataWindow.Zoom = ddlb_2.text
          dw_1.Title = "Zoom is " + String ( this.text ) + "%"

Setelah selesai, jalankan dan coba di Zoom.
Terdapat sedikit kesulitan dalam memilih ukuran berapa yang akan kita pilih. untuk memudahkan pemilihan maka perlu kita tambahkan ScrollBar secara vertikal. Caranya adalah

  • Hentikan Aplikasi program yang sedang berjalan.
  • Klik DropDownListBox zoom (ddlb_1), lalu pada properties checklist tulisan VScrollBar
  • Lakukan hal yang pada Size Text (ddlb_2), setelah itu jalankan...

Ok gan, salam sukses....

0 comments:

Post a Comment

.