実行中にコマンドを押したときに
指定したフォームをリストに保存をしたいの
ですがやり方を教えてください。
ついでに、保存したフォームを読み込む方法
もできれば教えてください。
前に、可能と聞いてのですが、
やり方がさっぱりわかりません。
この掲示板だけが頼りです。

フォーム、リスト、保存、読み込むなど、どのような意味にでも取れる
単語を使うと質問の意図が汲み取れないですね。
だから、前のスレッドでも可能ですとしかResがつかなかったのでは？

もちろん私も、さっぱりわかりません。
が、想像できる範囲では可能とは思います。

もう少し、理解のし易い質問文で再度投稿する事をお勧めします。
その方が親切なResがつきやすいですよ。

それから、この掲示板の、「注意事項」だったっけ？ルールを書いているところです。
ここをよく読むこともお勧めします。結構チェックの入るところがありますね。

前回の質問とあわせて考えると、

・フォ−ム名の一覧表が画面上にある(または作る)
・そのリスト中の各アイテムをクリックすると対応したフォームが表示される
・各フォームの終了は？(各フォーム内に終了処理があるor呼び出し元フォームに強制終了処理がある)

というようなプログラムを考えているのではないですかね。＞ｖｂ初心者マンさん

> ・フォ−ム名の一覧表が画面上にある(または作る)
> ・そのリスト中の各アイテムをクリックすると対応したフォームが表示される
> ・各フォームの終了は？(各フォーム内に終了処理があるor呼び出し元フォームに強制終了処理がある)

いや、「フォームを保存」と言っているのだから、動作中のフォームをデータ込みで(HDDに)
一時退避して後日再起動させようって考えですか？＞ｖｂ初心者マンさん

>> いや、「フォームを保存」と言っているのだから、動作中のフォームをデータ込みで(HDDに)
> 一時退避して後日再起動させようって考えですか？＞ｖｂ初心者マンさん
返事遅れてすいません。
はい。そのようにしたいのですが。教えてください。

> 返事遅れてすいません。
> はい。そのようにしたいのですが。教えてください。
例えば、
・テキストボックスを一つ乗せただけのフォームを Form1 とする。
この Form1 のインスタンスを完全に「復元」するにはどうすればいいか？
ということを考えてみてください。
この場合、可変なのはテキストボックスの中の文字列だけですよね？
ということで、「復元」するには「テキストボックスの中の文字列を復元」すればいいことになります
。

実際はもっと複雑に色々なコントロールがあります、
しかしそれら全ての「可変な部分を復元する」ことを目標にすれば貴方の望みは叶うことでしょう。

きっと。

やって見ます。ありがとうございました

> やって見ます。ありがとうございました

理解されているのならいいのですが？

下記の[終了時の状態を保存]の中の[データファイルを作成する方法]あたりから
初められたらいかかでしょうか？
hhttp://www.bcap.co.jp/hanafusa/VBHLP/regsutry.htm

> いや、「フォームを保存」と言っているのだから、動作中のフォームをデータ込みで(HDDに)
> 一時退避して後日再起動させようって考えですか？＞ｖｂ初心者マンさん

ああ、そういう発想は私も大昔、プログラミングを始めた頃夢想したことがあります。まだコンピュータ
使用料が高くてかつ1回のJOBに許される時間がCPU30秒とか。。。
現在は簡単じゃないですか。PCの電源を入れっぱなしにするか、O/SのSave-to-disk機能、HDDサスペンドを
使えば特にプログラマーががんばる問題では無い。

それでも作るというのなら、基本方針は
・プログラム(フォーム)は毎回新規に起動する。
・プログラム(フォーム)が一時中断するときに、途中経過のデータをHDDファイルとして書き出す。
・プログラム(フォーム)は再開起動時には、そのデータを読み直してそれ以降の処理を続ける。
です。

名無しさんの『それら全ての「可変な部分を復元する」こと』と
花ちゃんさんの『[終了時の状態を保存]の中の[データファイルを作成する方法]』も
そういう基本方針です。

遅れてすいません。
ダンボさんのいうとうりです。
ほんとに分かりません。
コードでもいいので教えてください。
初めて1ヶ月もたっていません。
すべて独学のため身近に聞く人もいないので
おねがします。

一回テキストに保存してそのときのコードです。
Private Sub Command2_Click()
Dim intFileNum As Integer
Data1 = ○１○←ラベル１に表示してある文字
　　　.
      .
Data18 = ○１８○
intFileNum = FreeFile
Open "c:\★★★.txt" For Output As #intFileNum
Print #intFileNum, Data1　　　　
　　　.
      .　　　
Print #intFileNum, Data18
Close #intFileNum
End Sub
でメモ帳へ保存できたのですが、
そのメモ帳に保存した文字を呼び出すときに
元にあったラベルの場所に戻して表示したいのです。
あと★★★のファイル名をdata1の文字で保存したいです。このことも
教えてください。
この呼び出すコードを上のコードを関連づけて教えてください。

> 元にあったラベルの場所に戻して表示したいのです。
> あと★★★のファイル名をdata1の文字で保存したいです。このことも
> 教えてください。
> この呼び出すコードを上のコードを関連づけて教えてください。

No.5043 のレスは読みましたか？

読んでやりましたがエラーが起きてできません。
ファイル名や番号が不正とかいってるんです。。。

> 読んでやりましたがエラーが起きてできません。
> ファイル名や番号が不正とかいってるんです。。。

ファイル番号は、どのように生成し、付与していますか？
使用可能なファイル番号を取得するFreeFile関数を用いていますか？

それを使っています。みなさまのおかげでできました。
ありがとうございます。
保存はと呼び込みはできました。
あと、保存先のフォルダーの名前を
Open "c:\○○○.txt" For Output As #intFileNum
の○のところですが、フォームのラベルに出力した
文字を○○のところに代入して
その代入した文字をファイル名で保存したいのですが
どうすればいいのですか？？

> あと、保存先のフォルダーの名前を
> その代入した文字をファイル名で保存したいのですが
> どうすればいいのですか？？> の○のところですが、フォームのラベルに出力した
> 文字を○○のところに代入して
> その代入した文字をファイル名で保存したいのですが
> どうすればいいのですか？？

たとえば、Form1のLabel1に出力した文字を○○のところに代入したいのであれば

Open "c:\" & Form1.Label1.Caption & ".txt" For Output As #intFileNum

でいかが？

できました。いろいろほんとにありがとうございました。