|
いちおう、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
|
|