Excel VBA質問箱 IV

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

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


70808 / 76734 ←次へ | 前へ→

【10428】Re:日本語入力をカナ入力から英入力に変更
発言  kein  - 04/1/26(月) 13:44 -

引用なし
パスワード
   いちおう、IMEのダイアログを出すことは出来ます。こんな感じです。

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetKeyboardLayout Lib "user32.dll" _
(ByVal dwLayout As Long) As Long
Declare Function ImmConfigureIME Lib "imm32.dll" _
Alias "ImmConfigureIMEA" (ByVal hKL As Long, ByVal hWnd As Long, _
ByVal dwMode As Long, lpdata As Any) As Long


Sub App_IMEDialog()
  Dim hWnd As Long
  Dim lngHandleInputContext As Long
  Dim lngWin32apiResultCode As Long
  Dim lngHandleKeyboardLayout As Long
   
  hWnd = FindWindow("XLMAIN", Application.Caption)
  lngHandleKeyboardLayout = GetKeyboardLayout(0)
  lngWin32apiResultCode = _
  ImmConfigureIME(lngHandleKeyboardLayout, hWnd, 1, ByVal CLng(0))
End Sub
4 hits

【10421】日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 10:27 質問
【10422】Re:日本語入力をカナ入力から英入力に変更 INA 04/1/26(月) 10:39 回答
【10423】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 11:44 発言
【10425】Re:日本語入力をカナ入力から英入力に変更 kein 04/1/26(月) 13:13 回答
【10426】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 13:34 お礼
【10428】Re:日本語入力をカナ入力から英入力に変更 kein 04/1/26(月) 13:44 発言
【10429】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 14:01 お礼

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