Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15261 / 76734

←次へ　｜　前へ→


	【66954】Re:IME入力モードの制御

いったく - 10/10/21(木) 11:46 -


	引用なし

	パスワード

▼通り魔さん：
回答ありがとうございます。
また返信が遅くなり申し訳ありません。

ご教授いただいたように訂正して実行してみたのですが、
IMEモードがオフにはなりませんでした。

他に何か原因があるのでしょうか？

・WindowsXP、Office2000
・Windows7、Office2007
いずれでも同様でした。

>▼いったくさん：
>
>たびたびすいませんデバイスコンテキストじゃなくて普通のコンテキストでした
>
>VBですがここが参考になると思われます
>ht　tp://www.alato.ne.jp/kazu-/vb/tip09.htm
>
>
>Private Declare Function GetForegroundWindow Lib "user32" () As Long
>Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As Long, ByVal wFlag As Long) As Long
>Private Declare Function ImmSetOpenStatus Lib "imm32.dll" (ByVal himc As Long, ByVal b As Long) As Long
>Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As Long) As Long
>Private Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hWnd As Long, ByVal himc As Long) As Long
>
>
>Private Sub Command1_Click()
>　　Dim himc As Long
>　　Dim myhWnd As Long
>　　
>　　myhWnd = GetForegroundWindow()
>　　myhWnd = GetNextWindow(myhWnd, 2)
>　　
>　　
>　　himc = ImmGetContext(myhWnd)
>　　
>　
>　　Application.WindowState = xlMinimized
>
>　 Call ImmSetOpenStatus(himc, False)
>
>
>　　Application.WindowState = xlMinimized
>　　
>　　'取得したコンテキストハンドルは必ずリリースする
>　　Call ImmReleaseContext(myhWnd, himc)
>　　
>End Sub

2 hits

▼

【66940】IME入力モードの制御 いったく 10/10/19(火) 18:18