VBで別EXEの起動を判定するには？ (ID:81695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Project1にForm1とCommand1を準備してください。 Project2にForm2を準備してください。 それで、以下のコードをコピペしてください。 プロパティ等はなにも触らなくて良いです。 コンパイルして実行ファイルを同じフォルダにおけば動作します。 Project1のコード Dim KeyBuf As String 'キーバッファ Const txt = "END" '終了指定文字列なんでもかまいません Const num = 3 '終了指定文字列の文字数 Private Sub Form_Load() Form1.Caption = "Project1" 'キャプションを指定します。後でウィンドウの指定に使います。 Form1.KeyPreview = True '他のコントロールがあるなら、この指定をしてください。 Form1.Left = 0 '以下は特に必要ないけど、切り替えが上手くいってるのが見易い。 Form1.Top = 0 Form1.Width = Screen.Width Form1.Height = Screen.Height End Sub Private Sub Form_KeyPress(KeyAscii As Integer) KeyBuf = Right(KeyBuf + Chr$(KeyAscii), num) '押された最後のnum個の文字を保存する If KeyBuf = txt Then End '文字列が終了文字列と同じなら終了 End Sub Private Sub Command1_Click() Shell "project2.exe", vbNormalFocus '二つ目のアプリを起動します。 End Sub Project2のコード Private Sub Form_Load() Form2.Caption = "Project2" '分かり易いようにキャプションを変えました。 Form2.Left = 0 '見易いようにしました。 Form2.Top = 0 Form2.Width = Screen.Width Form2.Height = Screen.Height Me.Show 'フォームを表示します AppActivate "Project1" '最初のウインドウのキャプションを指定します。 SendKeys "END" '終了指定文字を送ります。 End Sub