VB6で2つのＦｏｒｍを使ってプログラムについて

Question

環境：WindowsＸｐ　ＶＢ6（ＳＰ？）
操作：2つのフォーム（1と2）1からエクセルのデータを呼び込み⇒表示⇒さらにデーター追加⇒
　　　　コマンドボタンを押して2を表示⇒一部1のデータをラベルに表示してさらにデータ追加⇒
　　　　コマンド」ボタンを押して1と2のデータをエクセルの帳票に登録・保存
　　　　以上のことを繰り返す。
　　　　この間2フォームの登録・保存で２のフォームはアンロードする。

質問：1順目はうまくいくのですが、2順目になると、パブリック変数を使用して、テキストやラベルに表　　　　示された、ものはうまくデーターが反映されるが、それ以外は、フォーム上では表示されていて
　　　　もdebug.printすると、データーが空欄になっているため、登録・保存できない。

例：'****Form1*****
             Ｐｕｂｌｉｃ　ex As String
             Form2.Show
                          End Sub
            '******Form2********
            Private Sub Form_Load()
            Label1 = Form1.ex
            End Sub
           このとき、2順目のＦｏｒm1.exは””でもＦｏｒｍ2のＬａｂｅｌ1にはデーターが表示されている。
　　　　　　
　　　　　なにがいけないのかが、いろいろネットで調べてもよくわからないので、どなたか教えてくだ　　　　　　さい。（ｉｎｉｔｉｌｉｚｅとかをせっていすべきなのか？）

ただ、まだＶＢ6をはじめて半年ほどですので、よろしくおねがいいたします。

MARU4812 · Accepted Answer

そもそもクラス(Formもクラスの一種)は New というキーワードで
インスタンス(実体)の生成が必要です。
ところが、VB が余計な。。。というか裏で色々と自動でやってしまう
事があって注意が必要です。

本来のフォーム表示手順は以下です。
'Form1 に記入
Private Sub Command1_Click()
　Dim f As Form2  '参照変数を用意
　Dim i As Integer
　For i = 1 To 3
　　Set f = New Form2 'インスタンス生成
　　f.Show
　Next
　'最後に操作しているフォームに命令
　'※この時点で1つ目と2つ目の Form2 は f では操作できない
　f.Text1.Text = CStr(i)
End Sub

Form 名を直接指定した場合、VB が裏でフォーム名と同じ参照変数を
作って、そこにデフォルトインスタンスを格納します。
アンロードしてもう一度 Form 名を直接指定した場合、同じ参照変数
に、新しい画面のインスタンスを生成し、表示します。
このため、正しくアンロードできていない場合や、パブリック変数に
過去のフォームの参照が残っていた場合、実際に命令している画面
と表示している画面が違っていたという事がよくあります。

Form に命令する直前に命令する対象のフォームへ Show 命令を
出してみて下さい。別のフォームが表示される場合は、命令の
対象が別になってしまっているという事です。

MARU4812 · Answer

メモリ上でのインスタンス(実体)の生成から破棄までの
タイミングのイメージがつかめていないと同じ事は起こる
でしょう。

モジュールにしたら全て解決する問題ではありませんし。
(例えばWindow右上の×ボタンで閉じると次に開く時に
エラーになったり)

'モジュールを使わず、デフォルトインスタンスで統一する手法
'注)明示的にアンロードせずに×ボタンで閉じる
'****Form1*****
Public ex As String
Private Sub Command1_Click()
　　ex = "e"
　　Form2.Show
End Sub
Private Sub Command2_Click()
　　ex = ""
　　Form2.Show
End Sub
'******Form2********
Private Sub Form_Load()
　　Label1 = Form1.ex
End Sub
Private Sub Form_Unload(Cancel As Integer)
　　Debug.Print "Form2_Unloadされました" & Now
End Sub

Load,Unload の Debug.Print してみるとか。

Siegrune · Answer

2順目のときform2のForm_Load()は動いていますか？
注：
msgbox("動いた")
とかをform2のForm_Load()に加えて確認できます。

書いてある例なら、form2のForm_Load()が2順目に動いていないと思いますが。

＞この間2フォームの登録・保存で２のフォームはアンロードする。
というのは、本当にunloadしてますか？
hideでも画面から消えますけど。
hideされた状態なら、showしても、Form_load()は動きません。

＞2順目になると、パブリック変数を使用して、テキストやラベルに表
＞示された、ものはうまくデーターが反映されるが
例もパブリック変数では？
というか、うまくデータが反映しているものと反映しないものはどこが違うのですか？

VB6で2つのＦｏｒｍを使ってプログラムについて

そもそもクラス(Formもクラスの一種)は New というキーワードで

この回答への補足

メモリ上でのインスタンス(実体)の生成から破棄までの

2順目のときform2のForm_Load()は動いていますか？

この回答への補足

関連するカテゴリからQ&Aを探す

人気Q&Aランキング