; ; objsel命令を使用したサンプル ; ( [TAB]キーで入力フォーカスを移動する ) ; for HSP ver2.4d ; a1="" a2="" a3="" objsize 80,24,24 pos 120,12 mes "INPUT-1" mes "INPUT-2" mes "INPUT-3" pos 20,8 input a1 input a2 input a3 button "END",*owari ; curid=0 ; 現在のフォーカスID ; *keychk wait 2 getkey a,9 ; [TAB]キーをチェックする if a=0 : goto *keychk ; curid+:if curid=3 : curid=0 ; 次のフォーカスIDに objsel curid ; フォーカス設定 *keychk2 wait 2 getkey a,9 ; [TAB]キーを離すまで待つ if a=1 : goto *keychk2 goto *keychk *owari end