過去の桐井戸端BBS (桐ver.8)
18906 一括処理の中でグラフを表示し1秒ぐらい遅延させてから自動的に保存し終了するようにしたい hsakurai 2003/02/10-03:11
一括処理の中で
グラフ条件実行 表示,条件名="グラフ作成条件1"
グラフ条件実行 保存,条件名="グラフ作成条件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 を使えば一応は可能です。

ただ,桐はグラフの表示をさせている状態ではタイマーを使っても、
タイマーさえも停止した状態になるようです。

ですから桐の内部から一定時間をおいてグラフ表示を消す作業は実行できないようです。
無理やりやるとすればもう1つの桐を立ち上げてタイマーでグラフを消すためのコマンドを実行するか、
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へのコメント
桐V8であると仮定して、

単にグラフを一定時間表示させたいのであれば、

1.先にグラフを保存
2.別フォームでこのグラフ(画像)を一定時間だけ表示
3.表示後フォームを閉じて、次の一括処理を続行する

で可能かと思います。

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へのコメント
通りすがりさん
成程!
てっきりグラフ条件コマンドの機能と狭く考えてしまいました。

単にグラフだけを表示すればよいのであれば、という事で、私も1つ作ってみました。

方法は、グラフオブジェクトを定義したサブフォームを予め非表示で作っておき、
コマンドボタンでグラフ表示を実行したら
サブフォームを表示に切り換え、その1秒後に非表示に戻す方法です。
この方法では、フォームの中だけでグラフを表示するだけなので、グラフの画像は出力していません。

ここにあります。

佐田守弘(KS-00119)
追伸:通りすがりさんの表データの一部を借用しました。
18928 Ver9用ですか。 hsakurai 2003/02/12-00:02
記事番号18927へのコメント
 Ver8sp6を使っているためかバージョンが違うとのコメントがでて,開いてくれません。
ver8でも使えたらありがたいのですが?
 それにしてもいろいろな方法があるんですね。ご協力に感謝します。

18934 Re:Ver9用ですか。 佐田 守弘 2003/02/13-01:02
記事番号18928へのコメント
hsakuraiさん
桐ver.9で作りました。
私のPC環境は、既に桐ver.8をアンインストールしてしまっているため、桐ver.8でのサンプルは作れません。

お手数ですが、K3のサイトから体験版をダウンロードして試してみて下さい。

佐田守弘(KS-00119)

●お願い事
確か管理人の幅田さんも以前言っておられましたが、
本文中かタイトルのどこかに使用バージョンを記載して下さると、
コメントする側でも参考になります。
管理人さんも過去ログを整理する際に必要な情報と言っておられたと思います。

戻る