| こんにちは、外してるかもしれませんがレスします。
サブフォームを2つ作り、重ね合わせて表示と非表示をコマンドボタンのイベントで切り替えれば可能だと思います。
具体的には、メインフォーム上に サブフォーム_01(受注フォーム:オブジェクトの属性の表示タブ中、画面表示するにチェック)、 サブフォーム_02(送り先フォーム:オブジェクトの属性の表示タブ中、画面表示するのチェックを外す)を配置し、
コマンドボタン1にイベント(マウス左アップ)
手続き定義開始 コマンドボタン1::マウス左アップ(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) オブジェクト操作 ハンドル= &hwindow,@サブフォーム_01.画面表示 = 1 オブジェクト操作 ハンドル= &hwindow,@サブフォーム_02.画面表示 = 0 手続き定義終了
コマンドボタン2にイベント(マウス左アップ)
手続き定義開始 コマンドボタン2::マウス左アップ(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) オブジェクト操作 ハンドル= &hwindow,@サブフォーム_01.画面表示 = 0 オブジェクト操作 ハンドル= &hwindow,@サブフォーム_02.画面表示 = 1 手続き定義終了
を定義してください。
|