Ｅｎｄ命令実行後フォーム表示させるには？

解決

一郎 2004-10-22 20:09:03 No: 86183

Ｅｎｄ命令でプログラムを終了
すると表示されていたフォームが消えてしまいます。そのまま表示させる方法を教えてください。

nanashi 2004-10-22 20:34:27 No: 86184

ヘルプを読めば分かると思いますが、Endステートメントは強制終了です。
フォームが消えるも何も、強制終了ですからそのまま表示させる方法はありません。
何をしたいのでしょうか？

一郎 2004-10-22 21:13:48 No: 86185

説明不足ですみません。
フォームを表示させた常駐プログラムを作ってまして
それがやたら重いのです。そこでフォームに起動ボタンと停止ボタンを
つけて停止ボタンを押した時だけ常駐を終了させたいのです。
一度Ｅｎｄしないと常駐がずっと動いてまして困っています。
起動ボタンを押せばまた処理を再開するというものです。

現在は停止ボタンを押すとフォームが消えてしまいます。
よろしくお願いします。

nanashi 2004-10-22 21:23:48 No: 86186

どんな処理をしているか分かりませんが

> 一度Ｅｎｄしないと常駐がずっと動いてまして困っています。

これが良くないと思います。
停止ボタンで常駐が解除されるように作り変えてください。

一郎 2004-10-22 21:51:40 No: 86187

質問にお答え頂きありがとうございます。
常駐のおおもとはタイマーコントロールです。
これを止めることが出来れば解決します。
Private Sub form_load()
Timer1.Interval = 1000
End Sub

大変初歩的で申し訳ございませんがタイマーコントロールを
停止ボタンで止める方法を教えて下さい。

よし 2004-10-22 21:55:24 No: 86188

EnableをFalseにします

一郎 2004-10-22 22:31:43 No: 86189

ご協力ありがとうございます
こんなことに３ヶ月も悩んでました。
ありがとうございました。