vb6.0からwindows10のタッチキーボードを画面上に呼び出す事は可能でしょうか。
具体的にはコマンドボタンを押したときやテキストボックスにフォーカが移動した際に画面に
タッチキーボードが出せないかと考えています。

C:\Windows\System32\osk.exeのスクリーンキーボードの事ですかね？

> C:\Windows\System32\osk.exeのスクリーンキーボードの事ですかね？


c:\Program Files\Common Files\microsoft shared\ink\TabTip.exe
こちらの方です。
エクスプローラで直接たどって行きクリックでは出てくるのですがVBからは呼び出せません

テキストボックスのGetFocusイベントで次の命令を呼び出すとタッチパネルが起動することは確認できました

CreateObject("shell.application").shellexecute("c:\Program Files\Common Files\microsoft shared\ink\TabTip.exe")

しかし、タブレットモードでないと起動できません


タブレットモードかどうか確認する方法は次のURLにあります

Windows10タブレットモード検知方法
https://social.msdn.microsoft.com/Forums/ja-JP/f7b78d4f-b81b-41a0-abe9-06c01e8661a0/windows10?forum=csharpgeneralja

> テキストボックスのGetFocusイベントで次の命令を呼び出すとタッチパネルが起動することは確認できました
>
> CreateObject("shell.application").shellexecute("c:\Program Files\Common Files\microsoft shared\ink\TabTip.exe")
>
> しかし、タブレットモードでないと起動できません
>
>
> タブレットモードかどうか確認する方法は次のURLにあります
>
> Windows10タブレットモード検知方法
> https://social.msdn.microsoft.com/Forums/ja-JP/f7b78d4f-b81b-41a0-abe9-06c01e8661a0/windows10?forum=csharpgeneralja


考えていた通りの事ができました。
初心者の相手をして頂きありがとうございました。
またお世話になる事も有るかと思いますがよろしくお願い致します。

度々お世話になります
上記の命令で呼び出した後、今度はテキストボックスのLostFocusでタッチパネルを消す場合は
どう記述すれば良いのでしょうか


> > テキストボックスのGetFocusイベントで次の命令を呼び出すとタッチパネルが起動することは確認できました
> >
> > CreateObject("shell.application").shellexecute("c:\Program Files\Common Files\microsoft shared\ink\TabTip.exe")
> >
> > しかし、タブレットモードでないと起動できません
> >
> >
> > タブレットモードかどうか確認する方法は次のURLにあります
> >
> > Windows10タブレットモード検知方法
> > https://social.msdn.microsoft.com/Forums/ja-JP/f7b78d4f-b81b-41a0-abe9-06c01e8661a0/windows10?forum=csharpgeneralja
>
>
> 考えていた通りの事ができました。
> 初心者の相手をして頂きありがとうございました。
> またお世話になる事も有るかと思いますがよろしくお願い致します。

Win32APIのTerminateProcess
notepadでは成功

Process.MainWindowTitle.Contains
Process.CloseMainWindow
notepad、calc("電卓")では成功

TabTipwでは両方試してみましたが上手くいきませんでした
他に方法が思いつきません

簡単にはできないようです

以下のコードで起動と閉じることができることを確認しました


■TabTip起動時

Process.Start("c:\program files\common files\microsoft shared\ink\tabtip.exe")


■TabTipを閉じる時

'宣言
Const WM_SYSCOMMAND As Integer = &H112
Const SC_CLOSE As Integer = &HF060
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As IntPtr

'閉じたいイベントで
Dim hWnd As IntPtr = FindWindow("IPTip_Main_Window", vbNullString)
If hWnd <> IntPtr.Zero Then PostMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)