Menggeser Pointer dari satu Field ke Field yang Lain
Dalam kesempatan kali ini saya akan menuliskan cara memindahkan pointer dari satu field ke field lain dengan powerscript.
untuk tema kali ini hal pertama yang perlu dilakukan adalah
1. membuat ataupun menambahkan event dalam datawindow
2. berikan return type untuk event ini "long"
3. lalu berikan syntax pada event tersebut dengan script sebagai berikut :
int li_column_number,li_column_count,first_column
boolean lb_enter,lb_dwnrow,lb_uparrow
lb_enter =keydown(keyenter!)
lb_dwnrow =keydown(keydownarrow!)
lb_uparrow =keydown(keyuparrow!)
li_column_number = dw_1.getcolumn()
li_column_count = integer(dw_1.object.datawindow.column.count)
first_column =1
if keyflags = 0 then
if lb_enter or lb_dwnrow then
if li_column_number = integer(dw_1.object.datawindow.column.count)
then
dw_1.setcolumn(first_column)
else
dw_1.setcolumn(li_column_number
+ 1)
end if
elseif lb_uparrow then
if li_column_number=1
then
dw_1.setcolumn(integer(dw_1.object.datawindow.column.count))
else
dw_1.setcolumn(li_column_number
- 1)
end if
end if
elseif keyflags=1 then
if lb_uparrow then
if
li_column_number=integer(dw_1.object.datawindow.column.count) then
dw_1.setcolumn(first_column)
else
dw_1.setcolumn(li_column_number
+ 1)
end if
elseif lb_enter or
lb_dwnrow then
if li_column_number=1
then
dw_1.setcolumn(integer(dw_1.object.datawindow.column.count))
else
dw_1.setcolumn(li_column_number
- 1)
end if
end if
else
return 0
end if
return 1
Berikut adalah penjelasan untuk return type dari
Keyflags
Keyflags = 0 artinya tanpa ada
penekanan tombol kombinasi dg tombol function lain.
Keyflags = 1 ada penekanan tombol
dg Shift
Keyflags = 2 ada penekanan tombol
dg Ctrl
Keyflags = 3 ada penekanan tombol
dg Shift + Ctrl
Keyflags = 4 ada penekanan tombol
dg Alt dst-nya.
Keydown berfungsi untuk menentukan
tombol apakah yg di tekan user.
Keydown(enter!) artinya jika/apakah
yg di tekan ENTER…..
Demikianlah yang dapat di tulis kali semoga bermanfaat bagi semua.
Terimakasih atas kunjungannya
Dimana ada kemauan ... disitu ada jalan ...