- 日時： 2009/12/27 15:34
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[他のアプリ関係][自アプリ関係][] *
* キーワード：ウィンドウ,画面移動,順次起動,,, *
***********************************************************************************
-------------------------------------------------------------------------
No.809 Re：画面遷移 投稿者：ゆう(U) [1999/11/16(火)16：09分]
-------------------------------------------------------------------------
プログラムを分ける＝複数のEXEにするなら・・・
メニュー用のEXEでボタンクリックイベントで
別のEXEをShellで呼び出せばOKでしょう。
サンプル）
メニュー用Exeのボタンを押すと別Exeが起動され、それを終了すると
メニューに戻る・・・というもの。
メニュー用のExeと別のExeの２つのExeを作成します。
＜MyMenu.Exe側＞
コマンドボタン１個(Command1)
閉じるボタン(コントロールボックス)付きフォーム
Private Sub Form_Load()
' 引数付きで起動された場合
If Len(Command) > 0 Then
' NewAppから戻った場合(今回の例では)
MsgBox "呼びだし元" & Command
End If
End Sub
Private Sub Command1_Click()
' 別のExeを起動する
Shell myAppPath & "NewApp.Exe /パラメータ", vbNormalFocus
' 自分自身をUnloadする
Unload Me
End Sub
※myAppPathはExe起動時のパス(最後は必ず"\"であるという設定で)
全てのExeは同じフォルダにあるものとして
＜NewApp.Exe側＞
閉じるボタン(コントロールボックス)付きフォーム
Private Sub Form_Load()
'パラメータの表示
MsgBox Command
End Sub
Private Sub Form_Unload()
'終了時にメニューを表示するようにする
Shell myAppPath & "MyMenu.Exe /NewAPP.Exe", vbNormalFocus
End Sub
※この方法ではNewAppが起動されていたり、MyMenuが起動されている
場合も、新たなMyMenuの起動を許しています。
仕様によっては複数起動しないような工夫が必要です。
とりあえずこんな感じでもプログラム間を行ったり来たり出来ます。
ActiveX ExeやDDEなどで情報交換をするなども選択肢に加えてみては。
※詳しい事はヘルプなどで調べて見て下さい
|
画面遷移(VB6.0)