Formをリロードさせたい

Question

 

Formをリロードさせたいのですが、誰かリロードさせる方法をご存知の方

よろしくお願いします。

Answer 1

外池と申します。なんとなくお困りの状況は「想像」はできるのですが、イマイチよくわかりません。すいませんが、もう少し詳しく説明して頂けませんか？

 

１）　まず、Visual Basicのバージョンを教えてください。VB6以前ですか？ .Net以降ですか？

2）　リロードさせたい、ということは・・・、元のFormはどうしちゃっているのか、具体的な操作を教えてください。

 

 

Answer 2

kassyi さん、こんにちは。

 

kassyi さんからの引用

Formをリロードさせたいのですが、誰かリロードさせる方法をご存知の方よろしくお願いします。

"Form をリロード" というのが具体的にどんなことを指し示すのかわからないです。
初期状態に戻すという意味であれば、新しい Form のインスタンスを生成して Show すれば良いわけです。
入力コントロールの Text や Enabled などを元に戻すという意味であれば、そういうメソッドを自分で実装することになります。

Answer 3

>１）　まず、Visual Basicのバージョンを教えてください。VB6以前ですか？ .Net以降ですか？

 

       　VBのバージョンは2008Expressです。

 

>2）　リロードさせたい、ということは・・・、元のFormはどうしちゃっているのか、具体的な操作を教えてください。

 

　　　　まだVB初めて2週間もたっていない初心者なので、いらいら棒を手始めにつくっていています。

　　　　それに動く障害物をいれて、ゴールもしくはゲームオーバーしたら動く障害物を停止するようにしたら

　　　　障害物がはじめの位置からずれて動き出すようになってしまったからリロードさせようと思ったのです。

　　　

Answer 4

>初期状態に戻すという意味であれば、新しい Form のインスタンスを生成して Show すれば良いわけです。

　　（↑そういう意味です↑）

  このフォーラムを探していてそういう回答があったのですがどうもうまくいきませんでした。もう少し具体的な方法を

教えていただけないでしょうか。

Answer 5

こんにちは。

kassyi さんからの引用

このフォーラムを探していてそういう回答があったのですがどうもうまくいきませんでした。もう少し具体的な方法を教えていただけないでしょうか。

 

この方法であれば、

 

VB.NET

Dim frm As New FormA
frm.Show()

 

単にこういう意味になります。

Answer 6

 

VB.NET

Dim frm As New FormA
frm.Show()

 

この方法でやってみたのですが前に同じような回答を見つけてやってみた結果と同じく

 

'System.StackOverflowException' のハンドルされていない例外が System.Windows.Forms.dll で発生しました。

 

と例外のエラーが起こって実行できません　・・・(゜＿゜i)ﾀﾗー・・・

 

（というか、　Dim frm As New FormAってShowさせるための関数の宣言ですよね？）

Answer 7

＞'System.StackOverflowException'

 

無限ループになっていませんか？

コードエディタで「ブレークポイント」（[F9]キー）を置いて、「デバッグ開始」（[F5]キー）をして、ステップオーバー([F10]キー)、ステップイン([F11]キー)で実行してプログラムの動作を確認してみてください。

Answer 8

外池です。ここは・・・、かなり微妙な取り扱いが必要になりそうな雰囲気ですね・・・。

 

Dim frm as New FormA

frm.Show

 

を・・・、どこにお書きになってますか？　もしかして、FormAのソースプログラムのどこかに書いておられませんか？　例えば、Loadイベントとか。これだと、なんと言いますか、FormAが次々に自身の分身を作り出して表示しようとしてしまいます。これは、StackOverFlowになる典型例と思われます。

 

どう、解決するか、ですが・・・、

 

その前に、ゲームの開始や終了を、どのようなイベントの処理（ボタンを押して、イベントを発生させているなど・・・、）をされているか説明して頂けると解決が早いかと思います。

 

 

 

 

 

 

 

Answer 9

外池です。少し補足（というか、推測ですが・・・）させてください。

 

kassyiさんのプログラムは、どうやって起動する設定になっていますか？　おそらく・・・、FormAが直接起動するような設定になっているんじゃないかと思います。この場合は、二つの考え方でゲームを再スタートさせることが考えられます。

 

１）　今、見えているFormA自体は温存しておいて、動く部品の位置を最初の状態に戻すプログラムを頑張って書いて、再スタートさせる。（たぶん、いろんな部品の最初の位置は、デザイナ画面で部品ごとにプロパティーで設定されていると思うのですが、実は隠れた場所に、位置設定をするプログラムが書き込まれていますので、それをパクってくることができます。）

 

２）　今、見えているFormA自体は、捨てるて、別の新しいFormAを表示する。具体的には、「もう一度やる」のボタンを作っておいて、そのボタンが押されたときのイベントで、新しいFormAを作って表示させておいて、自分自身はCloseしてやる。

 

たぶん、２）が一番近道だとは思いますが・・・、普通のゲームっぽく見せようと思えば、１）にしたいですよね？　

Answer 10

（なんか空気を濁してしまっているような気がします　σ<^_^:>ｱｾｱｾ...）

 

まず、Dim frm as New FormAは一番頭のPublic Class Form1FormAのあとのズラーと変数を宣言しているところにおいてあります。

ゲームの開始はボタンをクリックしてスタートです。いらいら棒なのでPictureBoxにマウスがmoveしたときにゲームオーバーの

イベントを発生させています。ゴールはスタートと同様にボタンを押してゴールです。またゲームの開始などはすべてFragで制御しています。

Answer 11

外池です。いえいえ、空気濁してなんかいません。

 

おや？　と思ったのですが、FormAと、Form1は、別のフォームなのですか？　別なのであれば、StackOverFlowにならないような気がします・・・。

 

ちなみに、上下に動くPictureBoxはいくつぐらいあるんでしょう？　数個？　数十個？　もっと多い！？

Answer 12

外池さんのいっていることは見事すべてあっています。できれば 1)のほうにしたいと思っています。でも…その隠されたところって知りません　<ノ_-;>ﾊｱ…　2)のほうは思いついたのでがんばって書いてみましたがことごとくバグの嵐にやられてしましました。

（というかまだ無知に近いので、こんな感じかな～ってかいてみたらメンバーじゃないって言われて、後僕が知っている意味の通りそうな英単語をすべて試してみて全敗したというところでしょうか...。）

Answer 13

じゃんぬねっとさんのサンプルがFormAだったので先輩に合わせようということでForm1をFormAとして投稿していました。

 

上下、左右にうごくPictureBoxは全部で23個です。今後は増えない予定です。（減ることはあるかもしれませんが）

Answer 14

ほぼ、全体像わかりました。FormAとForm1は同じものだと理解しています。じゃぁ、FormAとしましょう。

 

まず、StackOverFlowになる原因ですが、FormAが起動します。起動したときに、自分自身の中のfrmに分身（用語で「インスタンス」と呼びます。）を作って入れようとします（自身の新しいインスタンスを作ってfrmに入れようとする）。で、分身の身になってみると（新しいインスタンスの身になってみると）、やはり、自身の中にfrmがあって、そこにさらに別のインスタンスを作って・・・、と、これが無限連鎖するわけで、作業用のメモリ（「スタック」と言います。メモリ全体から見ると、一部分なのですが）があふれてしまうわけです。

 

で、近道の２）でやってみるとして、

 

まず、Dim frm As New FormAは、今の場所からは削除してください。

で、「新しいゲーム」というようなボタンを作って、このボタンのイベントを処理するところに、Dim frm As New FormAと、frm.Showしてみてください。これで、新しいインスタンスが「初期状態」で表示されます。続けて、ゲームが終わった方の自分自身は、Me.Closeで閉じてやってください。

これで、プログラムの実行というか制御は新しいインスタンスへ移り、古いほうは消えてなくなります。

Answer 15

今外池さんの方法を試してみたら、新しいインスタンスが「初期状態」で表示されました。....最後の最後まで手をかけさせて申し訳ないのですが、もうひとつ教えてください。

 

Private Sub 新しいゲーム_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form1
        frm.Show()
        Me.Close()
    End Sub

 

ふつうプログラムは上から下へ実行されるのでこのようにしてみたのですがShowされないでCloseしてしまいました。

教えていただけるとうれしいです。

 

また新しくボタンを作ってそのボタンはMe.Close()を実行させることも試したのですが自分だけでなく新しく開いたほうまで閉じてしまいました。こっちのほうも教えていただけると幸いです。

Answer 16

ありゃ・・・、ダメでしたか。すいません、自分の環境でちょっとやってみます。

------

お恥ずかしい。

 

確かに、仰るとおりの動作になりました。

 

frmという変数が有効じゃなくなると、つまり、frmが有効なサブルーチンから出てしまうと、frmという変数が抹消されて、そこに代入されていた新しいFormAのインスタンスも、拠り所になる入れ物の変数を失って、抹消されてしまうわけですね。

 

ちょっと難しくなりますが、「正しい方法」でやってみますか・・・。かえってお手数おかけして申し訳ありませんが、以下の手順で作り変えて、元の動作をするかどうか、試してみてください。

 

１）プロジェクトに新しいファイル（モジュール）を追加する。

２）そのモジュールには、

Sub Main

Dim frm As New FormA

Application.Run(frm)

End Sub

と４行だけ書く。

３）My Projectの画面を開いて、アプリケーションの設定を変更するタブを開いて、

　　　　　「アプリケーション　フレームワークを有効にする」のチェックを外す。

　　　　　スタートアップ・オブジェクトを「Sub Main」に変更する。

 

これで、一度走らせてください。意味は・・・、

 

プログラムの実行は、必ず、Sub Mainから始まるようになります。

Dim frm As New FormAで、ひとつ、FormAのインスタンスを変数frmに用意して、

Application.Run(frm)で、表示させているFormAに対する操作（ボタンを押すとか、マウスを移動させるとか）を受け付けてイベントを処理して、FormAが閉じられれば、

End Subでプログラムは終了です。

 

Dim frm As New FormA

Application.Run(frm)

をループさせるようにすれば、次々当たらしいゲームができるようになるのですが・・・。

 

 

Answer 17

試してみたのですが、どうも

「名前空間のステートメントが無効です」「'Sub Main'　は'いらいら棒'（本体）に見つかりませんでした」とエラーが出ました。

そんな名前知らないよということなのでしょうが、変数ではないので、Dimで宣言してあげるわけにもいかず

困っています。本当に手取り足取り教えていただいてありがとうございます。

 

Answer 18

外池です。名前空間のステートメント・・・、

 

Sub Mainを書き込んだModuleですが、Namespace...と、End Namespaceという行がありますか？　もしあるようだったら、削除しちゃってかまいません。

 

あとですね・・・、スタトアップオブジェクトですが、たぶん、Sub Main、FormA、Moduleなんとか、って３種類出ていると思うのですが、Moduleを選んでやってもＯＫです。

Answer 19

Namespace...と、End Namespaceとかいう行は削除してやりました。

 

＞あとですね・・・、スタトアップオブジェクトですが、たぶん、Sub Main、FormA、Moduleなんとか、って３種類出ていると思うのですが、Moduleを選んでやってもＯＫです。

 

確かに3種類出ているは出ているのですがModuleなんとかっていうのはありません。

 

（....なんか、行き詰ってきてしまったような気が）

Answer 20

うん？　３種類って、何と、何が出ています？

 

いや、行き詰まってないです・・・。プログラムの書き方としては、ほとんど出来上がっていて、今、上手く行かないのは、「走らせ方」だけの問題なので。

Answer 21

kassyi さんからの引用

試してみたのですが、どうも 「名前空間のステートメントが無効です」「'Sub Main'　は'いらいら棒'（本体）に見つかりませんでした」とエラーが出ました。 そんな名前知らないよということなのでしょうが、変数ではないので、Dimで宣言してあげるわけにもいかず 困っています。本当に手取り足取り教えていただいてありがとうございます。

 

どうもこの場合の、いらいら棒というのは最初に作った「本体」ではなく、プロジェクトの中ののModule以外のファイルってことみたいです。（多分）

Answer 22

Sub Main、Form1、LoginForm1です。LoginForm1は何なんだろうと思ってためしに選択してみたら説明が出てて

( ´△｀)アァ-そういうことかと納得して消去したはずのものが残っているだけのもので機能は乗せていないです。

 

Answer 23

外池です。

 

あれ・・・、Sub MainからEnd Subの４行ですが・・・、新しいファイル（Module1とかいう名前になる）をプロジェクトに追加して書いてもらっていますよね？　もしかして、FormAに書いてしまっていませんか？　

 

ちゃんと、Module1に書き込んでいるけれども・・・、プロジェクトと関連づいていないのかな？

 

 

 

Answer 24

プロジェクトと関連づけるというのはスタートアップオブジェクトに設定するってことですよね？

でしたら設定していますし、Module1に例の4行を書き込んでいます。

 

Answer 25

いや、そこがですね、よくわからないんです。

 

------------

 

スタートアップオブジェクトに設定する画面は、先ほどのお話で、Sub Mainというのは見えていると思うのですが、これは、直接Module1のSub Mainを指しているのではないんです。プロジェクトのファイルのどこかにあるSub Mainを探し出して、そこから実行する、という意味です。

 

ところが、見つからない、というエラーが出る。しかも、スタートアップオブジェクトのリストに、Module1が現れていない様子。

 

そうすると、開発環境（プロジェクト）が、Module1が追加されていることに気づいていないのではないかと・・・。

 

------------

 

プロジェクトに関連付けるというのは、プロジェクト名、My Project、FormA、LoginForm（の名残）と、ツリー構造が表示されている「ソリューション・エクスプローラー」があると思うのですが、そこに、Module1がちゃんと入れておく、ということなんですが。

 

入ってます？

Answer 26

はい確かに入っています。

食い違っているといけないので確認しますが「スタートアップオブジェクトに設定する画面」というのは

「『プロジェクト』のプロパティ」欄から開いた「アプリケーション」のところのやつですよね？

 

（....こんな私が言うのもなんですが、「名前空間のステートメントが無効」が解決していないから

Module1が見つからずSub Mainもないってことじゃあないですかね？）

Answer 27

そのとおりです・・・。＞スタートアップオブジェクトの設定の画面。

 

そっか・・・、「名前空間のステートメントが無効」が、まだ出たままなんですね・・・。

うーむ、これが出る理由がわからないなぁ。

 

ちょっと調べてみますから・・・、頭切り替えて・・・・、

 

とにかく、Sub Mainから入って、Formを表示させる方法でプログラムを書いてみる。

1. まったく新しいプロジェクトを作ってみてください。難しく考えずに・・・、
2. Windows アプリのプロジェクトを新しく作る。（すでに、空っぽのForm1はある）
3. このプロジェクトにModule1を追加して例の４行を書き加える。（FormAではなく、Form1にしてください）
4. My Projectの「アプリケーションフレームワークを有効にする」のチェックを外し、スタートアップオブジェクトをModule1にする。
5. 走らせてみる。

って、やってみてもらえませんか？　イライラ棒のプログラムは、一度保存しておきましょう・・・。

 

 

 

 

Answer 28

もし、まっさらなプロジェクトで上手くいくようだったら、もしかすると、あちこちに日本語の名前を使っているのがよくないのかも。

 

ファイル名や、プロジェクト名や・・・、基本的に、すべて、ローマ字半角で書くようにしてください。今、ルート名前空間のところに適当に日本語を入れてみたら、エラーになりました。

 

----　すいません、私事で恐縮ですが、帰宅の途につきますので・・・、夜中前までちょっとアクセスできません。

 

以下、ヒントをいくつか。

　　　まずは、Sub MainからFormを開くやりかたをマスターする。

 

　　　次に、FormにPublicなBoolean型変数（例えば、NewGame）を加える。Falseで初期化。

　　　そうすると、Module1の中でも、frm.NewGameで内容が読み取れます。ということは・・・、

 

Code Snippet

Sub Main

'ここでは、Newを入れない、単に変数を宣言しておくだけ。インスタンスは作らない。

Dim frm As Form1

 

'なんらかのループを作る。

frm = New Form1

Application.Run(frm)

'ここでfrm.NewGameを調べて、Falseならそのまま終わり。Trueならループの最初に戻る。

End Sub

 

 

私の環境で、これで、上手く行ってるんですよ・・・。そちらも、上手くいくと良いのですが。

Answer 29

PictureBoxに色をつけただけのForm1を作成して

Module1を追加して例の４行を書き加えただけのものを作ってやってみました。

........結果はまるで同じでした。、「名前空間のステートメントが無効」「Sub Mainが見つからない」

とのエラー来ただけで何も変わりませんでした。......今日はもう宿題もやらなければいけないのでパソコンの電源を切ります。

............どうぞよろしく御願します     m(._.)m

 

Answer 30

たしかに日本語の名前は多数使っております。なので明日すべて取っ払ってみます。

 

Answer 31

宿題しようと思ったらどーしてもやっぱり気になっていじってみました。一番最初の

Sub Mainのところを「ringo」に変えてみました。そうしたらスタトアップアプリの欄に

ringoは出ずにSub Mainのまんまでした。

 

それから例の4行ではなく

 

Sub Main

'ここでは、Newを入れない、単に変数を宣言しておくだけ。インスタンスは作らない。

Dim frm As Form1

 

'なんらかのループを作る。

frm = New Form1

Application.Run(frm)

'ここでfrm.NewGameを調べて、Falseならそのまま終わり。Trueならループの最初に戻る。

End Sub

 

この外池さんのコードを使ってまっさらなプロジェクトを作ってもやはり例の2つのエラーが出るだけでした。コピペしているのでタイプミスってことはありません。...今度こそ宿題に取り掛かりたいと思います。

 

 

 

Answer 32

外池です。やっと私にもわかりました。「４行だけ書いてください」というのが、不適切な表現で誤解させてしまったようです。こちらでも同じ症状を再現することができました。

 

Module1のファイルの書き方がまずかったようです。Module Module1という最初の行と、End Moduleが必要でした。これ、最初から書かれていたと思うのですが、私の説明がマズくて、消してしまったんではないかと・・・。

 

Code Snippet

Module Module1

Sub Main

Dim frm as Form1   'あるいはFormA

 

frm = New Form1          '次の改造で、

Application.Run(frm)　　　'この２行をループさせる。 

End Sub

End Module

 

 

これで、やってみてください。

 

私も・・・、「宿題」やらないと。（滝汗）

Answer 33

 

はい、Module Module1という最初の行と、End Moduleは消去してやっていました。

 

それを直すことで新しくFormAが生成されました。あとは、close処理とできれば新しいゲームの生成処理ですね。

Answer 34

外池です。よかったですー。

 

で、最初に、ここまで苦労しちゃったことを反省して、少し「お作法」的なことをまとめておきましょう。プログラムの本当にやりたいことの書き方とはあまり関係ないのですが、「このように書かないとダメ」というお約束みたいなものです。

• 変数、Sub、Functionは、かならず、Module　○○～End Moduleの間か、Class　○○～End Classの間に書くこと。これは、本当に「お約束」です。
• Moduleの後ろの○○の部分は書き換えても良いですが、文は消してはいけません。
• Classの○○の部分も変更しても良いのですが、特にFormの場合はFormのプロパティーを設定する画面でNameを変更すれば自動的に書き換えてくれるので、当面は自分で書き換えることは止めましょう。もちろん、文は消してはいけません。

で、「Close処理とできれば新しいゲームの生成処理」ですが、ヒントを書いておきますので、kassyiさんご自身でトライしてみてください。すべて、Module　○○～End Moduleの間と、Class　○○～End Classの間に、プログラムを書くことで実現できますので。

• FormAにもうひとつ、ゲームを続ける（新しいゲームを作るか）、止めるかを示すフラグになる変数（例えばNewGame）を加える。FormAの中のどこからでも呼び出せるように宣言する方法はわかりますよね？　ただし、宣言文の頭に「Public」をつけてください。あと、宣言するところで、何か値を代入しちゃってください。こういう値のことを初期値とかデフォルト値とか呼びますが、「止める」を意味する値をデフォルト値にしておくと安全です。
• Publicをつけて宣言した変数は、Moduleのプログラムからも使うことができます。例えば、frm.NewGame（FormAが格納されている変数名frm、FormAの中での変数名NewGameをピリオドでつなぐ。）というようにすれば、読み出せるし、書き込めるし。（ちなみにPrivateをつけて宣言した変数は、このような操作はできなくなります。）
• FormAの右上の「×」のボタンを押すと閉じちゃいます。あと、FormAの中のプログラムでMe.Closeすると、やはり閉じちゃいます。そして、Moduleの中のプログラムのうち、Application.Run(frm)の次に実行が移るわけですが、今のままですとEnd Subなので、本当に全部終わりになります。ここで、frm.NewGameの値を調べてそのまま止めるか新しいゲームを作る操作に戻るか分岐する仕組みを書けば良いことになります。同じ処理を繰り返す（ループする）ためのDo～Loop という文を調べてください。
• FormAの側でNewGameの値をいじらなければ、Module側では「止める」操作しかできないわけですが、FormAの側で何か特別の操作をした場合にNewGameの値を変更しておけば、Module側で「新しいゲームを作る」処理もできるようになります。

プログラムで書けば、ほんの数行なのですが・・・、まぁ、イロイロ調べながら頑張ってみてください。

Answer 35

 

kassyi さんからの引用

Code Snippet Private Sub 新しいゲーム_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim frm As New Form1         frm.Show()         Me.Close() End Sub       ふつうプログラムは上から下へ実行されるのでこのようにしてみたのですがShowされないでCloseしてしまいました。 教えていただけるとうれしいです。   また新しくボタンを作ってそのボタンはMe.Close()を実行させることも試したのですが自分だけでなく新しく開いたほうまで閉じてしまいました。こっちのほうも教えていただけると幸いです。

 

アプリケーションが終了してしまう直接の原因は，

プロジェクトのプロパティ(or My Project) の [アプリケーション] タブで，

アプリケーションフレームワークを有効にする(Enable application framework) が有効な時，

シャットダウンモード(Shutdown mode) が

 

　スタートアップ フォームが閉じるとき (When startup fomr closes)

 

になっているためでしょう。それを

 

　最後のフォームが閉じるとき (When last form closes)

 

にしておけば，閉じることはないと思います。

 

 

Answer 36

 

本当に今までありがとうございました。文にするとこれくらいしかかけないのですが

現実だったら、何回お辞儀しても足りないぐらいだと思います。

これを励みにして、勉強もプログラムもがんばって行きたいと思います。

ありがとうございました　≦(._.)≧ ﾍﾟｺ