[サンプルコード]
Ctrl+Tabで次のタブへ、Ctrl+Shift+Tabで前のタブへ切り替わるサンプル
Form Form1 {
:
Number tabFormNum = 3; /* TabFrame内のTabFormの数 */
TabFrame TabFrame1 {
:
TabForm TabForm1;
TabForm TabForm2;
TabForm TabForm3;
}
Function OnKeyDown( e ) {
/* TABキーの押下判定 */
if (e.key == "TAB") {
/* CTRLキーの押下判定 */
if (e.CtrlKey ==1) {
/* SHIFTキーの押下判定 */
if ( e.ShiftKey == 1) {
/* CTRL+SHIFT+TABが押下された場合、TabFrameのValueを-1 */
if (TabFrame1.Value > 0) {
TabFrame1.Value--;
} else {
TabFrame1.Value = tabFormNum - 1;
}
} else {
/* CTRL+TABが押下された場合、TabFrameのValueを+1 */
if (TabFrame1.Value < tabFormNum - 1) {
TabFrame1.Value++;
} else {
TabFrame1.Value = 0;
}
}
}
}
}
}
CRSファイル形式のサンプルを
「キー操作によるタブ切り替えサンプル(TbF_005.zip)」
よりご利用いただけます。
|