| タイトル | ： SendKeysの使用方法 |
| 記事No | ： 14363 |
| 投稿日 | ： 2010/01/08(Fri) 16:27 |
| 投稿者 | ： どっこい |
C:\TEST\winX.hlpのヘルプファイルを開いて
ヘルプファイルから"ストレッチ"の検索をして表示させる物ですが、
SendKeys "^(V)", True 'CTL+v 貼付
SendKeys "%(D)" 'ALT+D 表示ボタン
が効いていない感じです。
以下のコードを実行してヘルプファイルが表示された時に、手操作で CTL+v 貼付 ALT+D 表示 を
キーボードから入力すると希望通りに動作します。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub TEST()
Clipboard.Clear ' クリップボード（Clipboard）をクリアする
Clipboard.SetText "ストレッチ" ' ClipboardへTxtを入れる
ShellEx ("C:\TEST\winX.hlp")
SendKeys "^(V)", True 'CTL+v 貼付
SendKeys "%(D)" 'ALT+D 表示ボタン
End Sub
Public Function ShellEx(FileName As String) As Boolean
Const SW_SHOWNORMAL = 1
Dim Ret As Long
'関連付けられている実行可能ファイルによりファイルを開く
Ret = ShellExecute(0, "open", FileName, vbNullString, Environ("windir"), SW_SHOWNORMAL)
ShellEx = Ret > 32
End Function
|