過去の桐井戸端ＢＢＳ　（桐ver.９）

26089	２つのフォームがあり１つを最小化するともう１つが開きそれを閉じると最小化していたものを元のサイズに戻したい	たぎゃ	2004/04/27-13:02
すみません。 またまたお世話になります。 ＡとＢの２つのフォームがあり、「Ａフォーム」には「ａボタン」 「Ｂフォーム」には「ｂボタン」があるとします。 ＡフォームよりＢフォームのほうが小さいため、Ｂフォームの後ろに Ａフォームが表示されたままだと見づらいので、 ａボタン＝Ａフォームを最小化すると同時に、Ｂフォームを開く ｂボタン＝Ｂフォームを閉じると同時に、Ａフォームを元のサイズに戻す ということをしたいのです。 ａボタンには、 機能名：手続き実行　機能パラメータリスト：ａボタンClick 　　　：開く　　　　　　　　　　　　　　："Ｂフォーム.wfm" を定義し、イベントには、 手続き定義開始　ａボタンClick() 　　ウィンドウ位置　最小化,0 手続き定義終了 と記述してａボタンは機能するのですが、ｂボタンの動作を どのように記述すれば、Ａフォームを元のサイズに戻せるのかが 分かりません。 多分、知っている人には「基礎の基礎」の事だと思うのですが。 どなたか教えてください。
26090	Re:フォームのサイズを元に戻す方法	ONnoji	2004/04/27-14:29
記事番号26089へのコメント たぎゃさん、こんにちは。 お使いの桐はバージョン８？バージョン９？ さて、Ａフォームの［フォーム開始］イベントで、 組み込み変数：&実行リターン にＡフォームのハンドル番号を格納する簡易な方法ですが… 次のように試してみたらいかがでしょうか？ なお、［フォーム開始］イベントハンドラの”フォーム”という文字は半角カナです。 掲示板では半角カナが全角カナに変換されるので、注意してください。 ※以下の例は簡易な方法です。念のために…(^^ゞ 外していたら、すいません。 ＜Ａフォームのａボタン＞ 機能名　　　　　　　　　機能パラメータリスト ［１］手続き実行　　ａボタンClick ［２］開く　　　　　"Ｂフォーム.wfm" ［３］なし ［４］なし ＜Ａフォームのイベント( .kev )＞ *---------------------------* 名札 メイン ＊ 手続き定義開始　フォーム::フォーム開始(長整数　&表番号) 　&実行リターン = &hwindow 手続き定義終了 手続き定義開始　ａボタンClick( ) 　ウィンドウ位置　最小化, &hwindow 手続き定義終了 *---------------------------* ＜Ｂフォームのｂボタン＞ 機能名　　　　　　　　　機能パラメータリスト ［１］手続き実行　　ｂボタンClick ［２］閉じる ［３］なし ［４］なし ＜Ｂフォームのイベント( .kev )＞ *---------------------------* 名札 メイン ＊ 手続き定義開始　ｂボタンClick( ) 　if ( #ウィンドウハンドル( &実行リターン ) ） 　　ウィンドウ位置　設定, &実行リターン 　end 手続き定義終了 *---------------------------*
26103	Re:フォームのサイズを元に戻す方法	たぎゃ	2004/04/28-08:17
記事番号26090へのコメント ONnojiさん、ありがとうございます。 >お使いの桐はバージョン８？バージョン９？ 書き忘れました。9-2004です。 ところで、質問しておいて何なのですが、 あの後、とーっても忙しくなってしまいまして、 桐のフォームやイベントを見ている時間が 全然取れなくなってしまいました。 今日も、何時に帰れることやら・・・。 というわけで、結果のご報告は少し遅れます。 申し訳ありません。 仕事が落ち着いたら、改めて必ず報告します。 今しばらくお待ちください。
26131	ありがとうございました	たぎゃ	2004/04/30-08:59
記事番号26090へのコメント ONnojiさん。 回答が大変遅くなり申し訳ありませんでした。 本日、教えていただいた方法を試したところ、 バッチリ動きました！ 目からうろこです。 ありがとうございました。

戻る