| ONnojiさん
こんにちは！
ONnojiさんに頂いたアドバイスで、プログラムを試しました。
結果、イメージ通りの動きになりました！
ありがとうございましたm(__)m
◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
Bフォーム ワークスペース部
オブジェクト名：cmd閉じる
┌────────────────┐
│機能名 機能パラメータリスト │
│1 表示 │
│2 閉じる │
│3 なし │
│4 なし │
└────────────────┘
Aフォーム ワークスペース部
オブジェクト名：cmdFinish
┌────────────────┐
│機能名 機能パラメータリスト │
│1 表示 │
│2 手続き実行 cmdFinishClick │
│3 なし │
│4 なし │
└────────────────┘
オブジェクト属性 オプション 実行コマンド 終了時 cmdFinish
◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
名札 メイン
変数宣言 局所, 文字列 { &mTblFileNameBフォーム }
変数宣言 局所, 数値 { &mTblFileSizeBフォーム }
変数宣言 局所, 整数 { &mTblStatusBフォーム }
&mTblFileNameBフォーム = #一括パス名 + "Bフォーム.tbx"
＊
手続き定義開始 cmdFinishClick()
変数宣言 自動, 文字列 { &title, &msg }
変数宣言 自動, 文字列 { &objectName }
変数宣言 自動, 整数 { &trace, &return }
変数宣言 自動, 整数 { &tblNumBフォーム }
変数宣言 自動，文字列 { &WQ = #jis( #hex("22") ) } /* 半角の二重引用符 */
&title = "cmdFinishClick()"
&trace = 1
トレース出力 &title + "を実行開始しました"
手続き実行 prcファイル状態チェック()
if ( &mTblFileBフォーム > 0 )
if ( &mTblStatusBフォーム = 0 ) /* 戻り値 意味 1 : 対象表が閉じている 0 : 対象表が開いている */
&tblNumBフォーム = #表番号取得( &mTblFileNameBフォーム )
&objectName = "cmd閉じる"
メソッド呼び出し ハンドル = &tblNumBフォーム, 戻り値 = &return, &objectName.実行()
else
** &mTblFileNameBフォーム が閉じている為 Aフォームを閉じるだけです
end
end
トレース出力 &title + "を実行終了しました"
手続き定義終了
手続き定義開始 prcファイル状態チェック()
変数宣言 自動, 文字列 { &title, &msg }
変数宣言 自動, 整数 { &trace }
変数宣言 自動，文字列 { &WQ = #jis( #hex("22") ) } /* 半角の二重引用符 */
&title = "prcファイル状態チェック()"
&trace = 1
トレース出力 &title + "を実行開始しました"
&mTblFileSizeBフォーム = #u
&mTblFileSizeBフォーム = #ファイルサイズ( &mTblFileNameBフォーム )
** 戻り値 意味
** 0 指定するファイルがフォルダであれば 0 になります
**-1 ファイルが存在しないときは -1 になります
if ( &mTblFileSizeBフォーム > 0 )
&mTblStatusBフォーム = #u
&mTblStatusBフォーム = #ファイル使用( &mTblFileNameBフォーム, 1 ) /* 戻り値 意味 1 : 対象表が閉じている 0 : 対象表が開いている */
else
&msg = "\n " + &WQ + &mTblFileNameBフォーム + &WQ + " が見つかりませんでした。"
メッセージボックス &title, &msg, アイコン = i ボタン指定 = 1, 制御文字展開 = する
end
トレース出力 &title + "を実行終了しました"
手続き定義終了
|
このトピックをツリーで一括表示