| WideStudio Programming Guide | WideStudio Index 目次

> ## インプットフィールドでキー入力を選別するには

> インプットフィールドでキー入力を選別するには、キーフックトリガでイベ ントプロシージャを作成します。

>     # キーフックのイベントプロシージャのサンプル
>     # WSEV_KEY_HOOKトリガで設定します。
>     use mpfc;

>     sub hookop {
>       my ($object) = @_;
>       # 何か処理を記述して下さい
>       $key = mpfc::WSDkeyboard_getKey( mpfc::WSGIappKeyboard() );
>       if  (($key >= $mpfc::WSK_0    && $key <= $mpfc::WSK_9   ) ||
>            ($key >= $mpfc::WSK_KP_0 && $key <= $mpfc::WSK_KP_9) ||
>             $key == $mpfc::WSK_plus      || $key == $mpfc::WSK_minus  ||
>             $key == $mpfc::WSK_BackSpace || $key == $mpfc::WSK_Delete ||
>             $key == $mpfc::WSK_Insert    || $key == $mpfc::WSK_space  ||
>             $key == $mpfc::WSK_Up        || $key == $mpfc::WSK_Down   ||
>             $key == $mpfc::WSK_Left      || $key == $mpfc::WSK_Right  ||
>             $key == $mpfc::WSK_Return ){
>         # 数字キーは処理を通す
>         return;
>       }
>       # それ以外は捨てる
>       mpfc::WSDkeyboard_setKey( mpfc::WSGIappKeyboard(), 0);
>       return;
>     }
>     1;

> このサンプルは、数字入力のみを行いたいインプットフィールドを実現しま す。キーボードオブジェクトに対して、getKey() 関数により現在入力され つつあるキーを選別して、いらないキーの場合、 mpfc::WSDkeyboard_setKey(mpfc::WSGIappKeyboard(),0) を実行して、 入力キーコードを塗りつぶし、入力がなかったように装います。

Document Release 3.70 for WideStudio ver 3.70, May 2004

WideStudio documents index | 目次

Copyright(C) WideStudio Development Team, 1999-2004 | Last modified: May 25, 2004