HSPTV!掲示板

インプットボックスがあるページではかな入力、
インプットボックスがないページでは直接入力を行いたいのですが
手動ではなくて（半角全角キーを押さないで）切り替える方法はありませんか？

インプットボックスがないページはスペースキーを押して次のページに進むのですが
かな入力をしたあとだとスペースキーのキーコードの取得が出来ません。
直接入力の場合のスペースキーのキーコードは32で、かな入力の場合は229となっているのですが、かな入力になっている場合は他のキーも229になっているみたいで半角全角キーを押さないと正しく取得出来ません。

半角全角を切り替える方法、がありましたら教えていただきたいです。
よろしくお願いします。

keybd_eventで全角・半角を変更してみたらどうです？

KENTA様>
アドバイスありがとうございます。
keybd_event関数について調べて見たのですがどのように活用したらよいか分からず･･･
よろしければもう少しヒントがほしいです。
よろしくお願いします。

こんにちわ、りさです。

>直接入力の場合のスペースキーのキーコードは32で

全角半角に関わらず、どちらも32になりませんでしょうか？

text = ""
input text
repeat
    getkey key, 32
    if key :break
    await 1
loop
cls
mes "OK"

このようなスクリプトで試したのですが、
全角半角かに関わらずループを抜けます。

このような意味ではないのでしょうか？

ベータ版は試していませんが、3.0aでonkeyジャンプ先の
iparamとwparamが229になるのが確認できました。
(WM_KEYDOWNのwparamでも)

WM_KEYUPのwparamはどちらの場合も32のようなので
割り込みジャンプを使いたいのならonkeyではなく
oncmdを使ってみて下さい。

#define WM_KEYUP 0x0101

	oncmd *lb_OnKeyUp, WM_KEYUP

半角／全角切り替えは、こんな感じで出来ると思います。

#uselib "imm32.dll"
#cfunc ImmGetContext "ImmGetContext" int
#func ImmReleaseContext "ImmReleaseContext" int, int
#func ImmSetOpenStatus "ImmSetOpenStatus" int, int


	himc = ImmGetContext(hwnd)
	ImmSetOpenStatus himc, 0		// p2が1で全角0で半角
	ImmReleaseContext hwnd, himc

>onkeyジャンプ先

onkey を使われていたのですね、すみません。

>ベータ版は試していませんが

試してみたのですが、onkey はベータ版でも、wparamに229を返しているみたいです。
iparam は全角のみ常に0です。
lparam は変動しているようなのですが、いまいちよく分かりませんm(_ _)m

りさ様、pizza様
コメントありがとうございます。
oncmdを使用して割り込み出来ました。
切り替えもこれからやってみようと思います。
ほんとうにありがとうございましたｗ