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 質問
【66941】Re:IME入力モードの制御 通り魔 10/10/19(火) 19:44 発言
【66944】Re:IME入力モードの制御 通り魔 10/10/19(火) 20:26 発言
【66954】Re:IME入力モードの制御 いったく 10/10/21(木) 11:46 質問
【66955】Re:IME入力モードの制御 neptune 10/10/21(木) 12:07 発言
【66962】Re:IME入力モードの制御 いったく 10/10/21(木) 15:19 発言
【66969】Re:IME入力モードの制御 neptune 10/10/21(木) 21:59 発言

15261 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free