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

5 hits

▼

【10421】日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 10:27