Senin, September 23, 2013

Function SendKeys / Keyboard

Function SendKeys dapat digantikan dengan syntak bawaan Visual Foxpro yaitu KEYBOARD. Dimana format dari function KEYBOARD adalah sebagai berikut :

KEYBOARD cKeyboardValue

Contoh :

KEYBOARD "{CTRL+LEFTARROW}"
KEYBOARD "{CTRL+A}"

Daftar dari parameter untuk cKeyboardValue adalah sebagai berikut :

LEFTARROW = LEFTARROW
RIGHTARROW = RIGHTARROW
UPARROW = UPARROW
DOWNARROW = DNARROW
HOME = HOME
END = END
PAGE UP = PGUP
PAGE DOWN = PGDN
DEL = DEL
BACKSPACE = BACKSPACE
SPACEBAR = SPACEBAR
INS = INS
TAB = TAB
SHIFT+TAB = BACKTAB
Left Brace = LBRACE
Right Brace = RBRACE
ENTER = ENTER
F1 to F12 = F1, F2, F3 ...
CTRL+F1 to CTRL+F12 = CTRL+F1, CTRL+F2 ...
SHIFT+F1 to SHIFT+F12 = SHIFT+F1, SHIFT+F2 ...
ALT+F1 to ALT+F12 = ALT+F1, ALT+F2, ALT+F3 ...
ALT+0 to ALT+9 = ALT+0, ALT+1, ALT+2 ...
ALT+A to ALT+Z = ALT+A, ALT+B, ALT+C ...
CTRL+LEFT ARROW = CTRL+LEFTARROW
CTRL+RIGHT ARROW = CTRL+RIGHTARROW
CTRL+HOME = CTRL+HOME
CTRL+END = CTRL+END
CTRL+PAGE UP = CTRL+PGUP
CTRL+PAGE DOWN = CTRL+PGDN
CTRL+A TO CTRL+Z = CTRL+A, CTRL+B, CTRL+C ...
CTRL+0 = CTRL+0
RIGHT MOUSE BUTTON = RIGHTMOUSE
LEFT MOUSE BUTTON = LEFTMOUSE
MOUSE BUTTON = MOUSE
ESC = ESC

Meskipun sebenarnya function Keyboard bawaan Visual Foxpro telah lengkap dan bisa menggantikan function SendKeys, akan tetapi untuk menjalankan Start Menu yang memerlukan kombinasi tombol CTRL+ESC hanya bisa dilakukan oleh function SendKeys sedangkan function Keyboard tidak diijinkan untuk melakukan perintah dengan kedua kombinasi tombol tersebut.
Untuk melakukan ini kita menggunakan function sendkeys untuk mengirimkan kombinasi tombol CTRL + ESC sehingga start menu dapat ditampilkan. Berikut ini source codenya :

objShell = CreateObject("WScript.Shell")
objShell.SendKeys("^{esc}")

Tidak ada komentar: