タイトル : Re^2: キー入力をコードでする方法 投稿日 : 2009/12/14(Mon) 18:03 投稿者 : さくら
魔界の仮面弁士さま 早急の御教授ありがとう御座います。 F15ではなく、F5でした。。。 初歩的なミスで申し訳ありません。 また、かなり説明不足でこちらも申し訳ありませんでした。 現在、コマンドボタンを押した後、タイマーを回して一定時間ごとに URLを更新する処理を行おうとしています。 (最初の何も立ち上がっていない状態では、IEが起動しその後一定時間 が経つごとに、更新はされるのですが、表示されている位置(IE内の表示) がズレてしまって困っていました。 位置を記憶する方法もあるのかも知れませんが、何せ初心者なもので、 F5キーの更新ですと位置がズレないで更新出来たため・・・ 因みに、現在は他のアプリケーションがアクティブで、IEが隠れている 時も、処理を行ってくれいます。←理想です。) 色々と試させて頂きますが、何せお時間が掛かりそうなため、まずはお礼まで・・・ ありがとうございます。 因みに、タイマーで一定時間が経つ毎に Call Y_Exec(1, URL, "", "", SW_SHOWNORMAL) で、任意のURLの処理を行っています。 Public Sub Y_Exec(hWnd As Long, FilePath As String, parameter As String, _ WorkPath As String, WindowSize As Long) Dim longret As Long Dim msg As String longret = ShellExecute(hWnd, "Open", FilePath, parameter, WorkPath,_ WindowSize) If longret < 31 Then Select Case longret Case 0 msg = "メモリ不足です。" Case ERROR_FILE_NOT_FOUND msg = "ファイルが見つかりません。" Case ERROR_PATH_NOT_FOUND msg = "ファイルのパスが見つかりません。" Case Else msg = longret & "その他のエラー" End Select Call MsgBox(msg, 16) End If End Sub |