| ■66754 / inTopicNo.1) |
IME パッドのキーボード表示につきまして |
□投稿者/ あら (1回)-(2013/05/22(Wed) 10:19:56)
|
分類:[VB6 以前]
お世話になります。
IME パッドのキーボード表示につきまして
IME パッドのキーボード表示はそのまま下記を参考にしました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=50055;id=excel
概要
VB6→実行(R)→開始(S) で行いますとIME パッドのキーボードは問題なく表示されます。
しかし、実行ファイル（VB6→ファイル(F)→ShowIMEpad.exeの作成(K)）の作成から実行しますとIMEパッドのキーボードは表示されません。（デスクトップの右下のほうに出ています言語バーの中にあるボタンが消えます）
入力言語は日本語 - Microsoft IME STANDART 2002 VER. 8.1、OSはWindowsXP Pack3 を使用しています。
質問
実行ファイルでもIMEパッドのキーボードを表示するようにすることはできないのでしょうか。ご教示願えますと幸いであります。
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
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 Declare Function ImmSetConversionStatus Lib "imm32.dll" _
(ByVal hImc As Long, _
ByVal dw1 As Long, _
ByVal dw2 As Long) As Long
Private Const IME_CMODE_SOFTKBD = &H80 'ソフトキーボードモード
Private Const IME_SMODE_AUTOMATIC = &H4
Private Sub Command2_Click()
Dim IMC As Long
Dim lngResult As Long
dim lhWnd as long
'ここはExcelのHWND、UserFormのHWNDなどでOKと思います。
lhWnd = Me.Text1.hWnd
IMC = ImmGetContext(lhWnd )
lngResult = ImmSetConversionStatus(IMC, IME_CMODE_SOFTKBD, IME_SMODE_AUTOMATIC)
ImmReleaseContext lhWnd , IMC
End Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
|
|