PR
キーワードサーチ
▼キーワード検索
カレンダー
コメント新着
2018.12.25
テーマ： ソフトウェア開発(54)
カテゴリ： UWSC
user32.dllの「GetKeyboardState」APIを使って複数キー読み込みをしてみました。
同じことは組み込み関数のGetKeyStateでできるんですが、読み込みが１回でできます。
仮想キーコードは ここ がよくまとまっているみたい。
※１２・２６追記
ソースのコメントをもう少し丁寧に書けば良かった。
getPushedKeys()は押された複数のキーのキーコードを要素として持つ配列を返す関数です。
各配列の値はキーコードです。例えば、得られた配列（値の昇順で入るみたい）の中に、65と66があれば、「A」と「B」が同時に押されたということが分かる仕掛けです。
getPushedKeys.uws
while 1
pushed =getPushedKeys()
keys ="キーを押すと、下にキーコードが表示されます。alt+f2で終了<#CR>"
for key in pushed
keys =keys + key + ","
next
fukidasi( keys )
wend
endif
function getPushedKeys( skipToggles=true )
def_dll GetKeyboardState( var byte[] ):bool:user32.dll
if skipToggles
//トグル系のキーは何もしなくても押されたことになるのでデフォルトで排除
last =239
else
last =255
buff =safearray( 0,last )
GetKeyboardState( buff )
for i =0 to last
PushedKey =buff[ i ]
if PushedKey > 127
result =result + i + ","
endif
next
//余分なコンマを外す
result =copy(result, 1, length( result )-1)
result =split( result, "," )
fend
同じことは組み込み関数のGetKeyStateでできるんですが、読み込みが１回でできます。
仮想キーコードは ここ がよくまとまっているみたい。
※１２・２６追記
ソースのコメントをもう少し丁寧に書けば良かった。
getPushedKeys()は押された複数のキーのキーコードを要素として持つ配列を返す関数です。
各配列の値はキーコードです。例えば、得られた配列（値の昇順で入るみたい）の中に、65と66があれば、「A」と「B」が同時に押されたということが分かる仕掛けです。
getPushedKeys.uws
while 1
pushed =getPushedKeys()
keys ="キーを押すと、下にキーコードが表示されます。alt+f2で終了<#CR>"
for key in pushed
keys =keys + key + ","
next
fukidasi( keys )
wend
endif
function getPushedKeys( skipToggles=true )
def_dll GetKeyboardState( var byte[] ):bool:user32.dll
if skipToggles
//トグル系のキーは何もしなくても押されたことになるのでデフォルトで排除
last =239
else
last =255
buff =safearray( 0,last )
GetKeyboardState( buff )
for i =0 to last
PushedKey =buff[ i ]
if PushedKey > 127
result =result + i + ","
endif
next
//余分なコンマを外す
result =copy(result, 1, length( result )-1)
result =split( result, "," )
fend
お気に入りの記事を「いいね！」で応援しよう
[UWSC] カテゴリの最新記事
-
デバッグ中かどうか自動判定 2020.12.19
-
UWSCダイアログのタイトル変更 2020.11.25
-
XMLでなんちゃってDB 2019.12.23
Re:キー同時読み込み(12/25)
せりあ さん
uwscの掲示板からきました。haiの配列をhai1のようにしたいのですが、getPushedKeys
の関数を使ってやろうとしてもうまくいきません。pushed=getPushedKeys()のpushedが配列だと私は認識しているのですが、popupmenu(pushed)としたらエラーになります。
しろまさ様が提示して頂いた関数のキーの配列要素を一括で読み込める関数がgetPushedKeysだと認識しているのですが、この認識で間違いないでしょうか？
dim hai[]="1"，"2"，"3"
↓
[希望処理]
dim hai1[]="1(a)"，"2(s)"，"3(d)"
if get_uwsc_name="getPushedKeys.uws"
while 1
pushed =getPushedKeys()
keys ="キーを押すと、下にキーコードが表示されます。alt+f2で終了<#CR>"
for key in pushed
keys =keys + key + "，"
next
fukidasi( keys )
wend
endif
function getPushedKeys( skipToggles=true )
def_dll GetKeyboardState( var byte[] ):bool:user32.dll
result =""
if skipToggles
//トグル系のキーは何もしなくても押されたことになるのでデフォルトで排除
last =239
else
last =255
endif
buff =safearray( 0，last )
GetKeyboardState( buff )
for i =0 to last
PushedKey =buff[ i ]
if PushedKey > 127
result =result + i + "，"
endif
next
//余分なコンマを外す
result =copy(result， 1， length( result )-1)
result =split( result， "，" )
fend (2018.12.25 11:03:02)
の関数を使ってやろうとしてもうまくいきません。pushed=getPushedKeys()のpushedが配列だと私は認識しているのですが、popupmenu(pushed)としたらエラーになります。
しろまさ様が提示して頂いた関数のキーの配列要素を一括で読み込める関数がgetPushedKeysだと認識しているのですが、この認識で間違いないでしょうか？
dim hai[]="1"，"2"，"3"
↓
[希望処理]
dim hai1[]="1(a)"，"2(s)"，"3(d)"
if get_uwsc_name="getPushedKeys.uws"
while 1
pushed =getPushedKeys()
keys ="キーを押すと、下にキーコードが表示されます。alt+f2で終了<#CR>"
for key in pushed
keys =keys + key + "，"
next
fukidasi( keys )
wend
endif
function getPushedKeys( skipToggles=true )
def_dll GetKeyboardState( var byte[] ):bool:user32.dll
result =""
if skipToggles
//トグル系のキーは何もしなくても押されたことになるのでデフォルトで排除
last =239
else
last =255
endif
buff =safearray( 0，last )
GetKeyboardState( buff )
for i =0 to last
PushedKey =buff[ i ]
if PushedKey > 127
result =result + i + "，"
endif
next
//余分なコンマを外す
result =copy(result， 1， length( result )-1)
result =split( result， "，" )
fend (2018.12.25 11:03:02)
Re[1]:キー同時読み込み(12/25)
せりあさんへ
上の追記のとおりです。得られたキーコードをslctboxで使える文字列の配列にしたいなら、hashtableでキーコードと文字列の対応表を作るといいと思います。 (2018.12.26 00:26:37)
上の追記のとおりです。得られたキーコードをslctboxで使える文字列の配列にしたいなら、hashtableでキーコードと文字列の対応表を作るといいと思います。 (2018.12.26 00:26:37)
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
