一括処理の中でグラフを表示し１秒ぐらい遅延させてから自動的に保存し終了するようにしたい

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

18906	一括処理の中でグラフを表示し１秒ぐらい遅延させてから自動的に保存し終了するようにしたい	hsakurai	2003/02/10-03:11
一括処理の中でグラフ条件実行表示,条件名="グラフ作成条件1" グラフ条件実行保存,条件名="グラフ作成条件1",ファイル名=[コード]というように、保存の前に表示させたいと考えています。でも、今のところ手作業で終了させなければ、次の保存に移ってくれません。１秒くらい、遅延させてから保存に行くようになりませんでしょうか。宜しくお願いいたします。
18916	Re:グラフ条件実行表示の終了	佐田　守弘	2003/02/10-22:41
記事番号18906へのコメント hsakuraiさん表示されたグラフを自動で閉じる方法は、多分ないと思います。 Windows版の桐では、ダイアログ形式の別ウィンドウで表示されています。つまり、グラフウィンドウを閉じないと、桐の他のウィンドウには戻れないわけです。フォーカスが[閉じる]ボタンにあるので、Enterキーを押せば閉じますが、それ以外にグラフウィンドウを閉じる方法はない様です。なお、ヘルプには、グラフウィンドウを閉じるには、ウィンドウの[×]ボタンか[閉じる]ボタンを使う様に記載されています。佐田守弘(KS-00119)
18919	Re:グラフ条件実行表示の終了	hidetake	2003/02/11-00:45
記事番号18916へのコメント無理やりするとすれば T.Samura さんの kiritool.exe を使えば一応は可能です。ただ，桐はグラフの表示をさせている状態ではタイマーを使っても、タイマーさえも停止した状態になるようです。ですから桐の内部から一定時間をおいてグラフ表示を消す作業は実行できないようです。無理やりやるとすればもう１つの桐を立ち上げてタイマーでグラフを消すためのコマンドを実行するか、 WSH やバッチファイルなどの外部プログラム経由で実行するしか無いようです。 WSH を利用する場合は次のようなスクリプトになります。 ---------------------------------------------------- Dim WS Set WS = WScript.CreateObject("WScript.Shell") ' 5秒間待機 WScript.Sleep(5000) ' 閉じる対象のウィンドウは "グラフ表示 - " + "テーブル名" ' kiritool.exe のパスなどは必要に応じ指定のこと WS.Run("kiritool.exe null close -title グラフ表示 - test.tbl") Set WS = Nothing WScript.Quit ---------------------------------------------------- 消すためのタイトルは半角カナの "グラフ表示" + " - " + "テーブルファイル名" となります。killgrph.vbs とでもファイル名を付けて表 "graph.tbl" シェル実行 "killgrph.vbs" グラフ条件実行表示,条件名="グラフ作成" グラフ条件実行保存,条件名="グラフ作成",ファイル="graph.bmp" 表とでもしてみて下さい。アンチウィルスソフトを使っている場合はウィルスの警告が出る場合もありますので(VBSに対し)、その場合は、このVBS の実行を許可するように設定して下さい。 T.Samura さんの kiritool.exe は【多遊】さんのところにあります。 100 「閉じる」ボタンの無効　Ver 1.20 「 KRTL120.LZH 」 http://mokuchan.hp.infoseek.co.jp/download/dl-list.htm
18920	Re:グラフ条件実行表示の終了	通りすがり	2003/02/11-01:00
記事番号18906へのコメント桐Ｖ８であると仮定して、単にグラフを一定時間表示させたいのであれば、１．先にグラフを保存２．別フォームでこのグラフ（画像）を一定時間だけ表示３．表示後フォームを閉じて、次の一括処理を続行するで可能かと思います。 hidetakeさんの「力技」もいいですが、桐だけで擬似的に実現する別方法として紹介します。
18921	Re:グラフ条件実行表示の終了	通りすがり	2003/02/11-01:01
記事番号18920へのコメントサンプルはここにおいておきました。
18922	Re:グラフ条件実行表示の終了	hidetake	2003/02/11-01:09
記事番号18920へのコメント >hidetakeさんの「力技」もいいですが、桐だけで擬似的に実現する別方法として紹介します。こりゃ参った！　頭の柔軟さが違う・・・　(^_^;
18926	取り入れさせてもらいました	hsakurai	2003/02/11-09:31
記事番号18925へのコメントイベントは全くわかりませんので，その部分は全くそのまま取り入れさせてもらいました。　それにしても，できない事ってないみたいですね。これからも宜しくお願いいたします。
18927	グラフ条件コマンドを使わないのであれば	佐田　守弘	2003/02/11-16:02
記事番号18920へのコメント通りすがりさん成程！てっきりグラフ条件コマンドの機能と狭く考えてしまいました。単にグラフだけを表示すればよいのであれば、という事で、私も１つ作ってみました。方法は、グラフオブジェクトを定義したサブフォームを予め非表示で作っておき、コマンドボタンでグラフ表示を実行したらサブフォームを表示に切り換え、その１秒後に非表示に戻す方法です。この方法では、フォームの中だけでグラフを表示するだけなので、グラフの画像は出力していません。ここにあります。佐田守弘(KS-00119) 追伸：通りすがりさんの表データの一部を借用しました。
18928	Ver9用ですか。	hsakurai	2003/02/12-00:02
記事番号18927へのコメント　Ver８sp6を使っているためかバージョンが違うとのコメントがでて，開いてくれません。 ver8でも使えたらありがたいのですが？　それにしてもいろいろな方法があるんですね。ご協力に感謝します。
18934	Re:Ver9用ですか。	佐田　守弘	2003/02/13-01:02
記事番号18928へのコメント hsakuraiさん桐ver.9で作りました。私のPC環境は、既に桐ver.8をアンインストールしてしまっているため、桐ver.8でのサンプルは作れません。お手数ですが、K3のサイトから体験版をダウンロードして試してみて下さい。佐田守弘(KS-00119) ●お願い事確か管理人の幅田さんも以前言っておられましたが、本文中かタイトルのどこかに使用バージョンを記載して下さると、コメントする側でも参考になります。管理人さんも過去ログを整理する際に必要な情報と言っておられたと思います。

戻る