kalau column > 8 maka
<DW Control Name>.Object.DataWindow.VerticalScrollPosition =
<DW Control Name>.Object.DataWindow.VerticalScrollMaximum / 2
kira2 gitu aku gak hapal syntax, boleh lihat di tools - dw syntax (menu file -
new - tool - dw syntax)
>
Halo PB'ers
Saya pemula di dunia PB, pake PB9.
Saya mencoba membuat fungsi f_tomboltekan (dari buku mas syahrial chan)
Adapun codenya ada sbb :
// Usage : f_tomboltekan (dw, keycode, keyflags)
int li_column_number,li_column_count
boolean lb_enter,lb_dwnrow,lb_keytab,lb_pagedwn
boolean lb_pageup, lb_uparrow
string setting
setting = dw.Object.DataWindow.Label.Sheet
setting = dw.Object.DataWindow.type
lb_enter = keydown(keyenter!)
lb_dwnrow = keydown(keydownarrow!)
lb_keytab = keydown(keytab!)
lb_pagedwn = keydown(keypagedown!)
lb_pageup = keydown(keypageup!)
lb_uparrow = keydown(keyuparrow!)
li_column_number = dw.getcolumn()
//messagebox("",li_column_number)
li_column_count = integer(dw.object.datawindow.column.count)
if isnull(first_column) then
first_column = 1
end if
if keyflags = 0 or keyflags = 2 or keyflags = 3 then
if lb_enter or lb_dwnrow or lb_keytab or lb_pagedwn then
if li_column_number = integer(dw.object.datawindow.column.count) then
dw.setcolumn(first_column)
else
dw.setcolumn(li_column_number + 1)
end if
elseif lb_pageup or lb_uparrow then
if li_column_number = 1 then
dw.setcolumn(integer(dw.object.datawindow.column.count))
else
dw.setcolumn(li_column_number - 1)
end if
end if
elseif keyflags = 1 then
if lb_pageup or lb_uparrow then
if li_column_number = integer(dw.object.datawindow.column.count) then
dw.setcolumn(first_column)
else
dw.setcolumn(li_column_number + 1)
end if
elseif lb_enter or lb_dwnrow or lb_keytab or lb_pagedwn then
if li_column_number = 1 then
dw.setcolumn(integer(dw.object.datawindow.column.count))
else
dw.setcolumn(li_column_number - 1)
end if
end if
else
return 0 //mengaktifkan penekanan tombol standar
end if
return 1 //mematikan penekanan tombol standar
Saya membuat DW FreeForm yg memiliki 20 kolom, DW ini di-set
VScrollBar dan HScrollBar.
Pada saat di-run, dw hanya menampilkan data sekitar 8 kolom, sisanya
ada dibagian bawah bawah, kalau di scroll maka akan keliatan.
Dengan fungsi tsb diatas telah memungkinkan saya menggunakan [PANAH
ATAS] atau [PANAH BAWAH] untuk menggeser pointer-aktif ke kolom atas
atau bawah.
Persoalannya : Pada saat posisi pointer di kolom ke 8 dan saya tekan
tombol [PANAH BAWAH] maka pointer menuju ke kolom 9, akan tetapi
seakan-akan DW tdk melakukan scroll.
Bagaimana caranya ? Mohon dikoreksi script diatas
Thanks in advance
Regards,
Steven 081 2604 1581
__________ NOD32 2277 (20070518) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
--
Best regards,
sandy mailto:[EMAIL PROTECTED]
