tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル SendKeysの使用方法
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。