Form２のテキストボックスの内容をForm１からの制御でファイルに保存する方法

Question

質問です。
現在MDIをつかったソフトを作っているのですが
子フォーム（Form2）のテキストボックスの内容を保存するために次のようなプログラムを書いたのですが、
[値をNullにすることはできません。]
と出てきてしまいます。
どうすればいいでしょうか？

Form２に書いてあるSAVEのコード
Fnameはファイルのパス
AzukiControl1はテキストボックスです。

Public Class Form2
    Dim Fname As String
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) 'マイドキュメントのパス
        Dim sr As New System.IO.StreamReader(path + "\MyConStudio\AppDate\text.txt", _
        System.Text.Encoding.GetEncoding("shift_jis"))
        '内容をすべて読み込む
        Fname = sr.ReadToEnd()
        '閉じる
        sr.Close()

        Dim FL As New System.IO.StreamReader(Fname, _
        System.Text.Encoding.GetEncoding("shift_jis"))
        '内容をすべて読み込む
        AzukiControl1.Text = FL.ReadToEnd()
        '閉じる
        FL.Close()
        Me.Text = Fname
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Save()

    End Sub
    Public Sub Save()
        Dim sw As New System.IO.StreamWriter(Fname, _
        False, _
        System.Text.Encoding.GetEncoding("shift_jis"))
        'TextBox1.Textの内容を書き込む
        sw.Write(Me.AzukiControl1.Text)
        '閉じる
        sw.Close()
    End Sub
End Class

MDI親フォーム（Form1）のコード
```lang-＜VB.net＞
Form2.Save()

MDI子フォームの呼び出し
```lang-＜VB.net＞
'main.mcs表示
           
            Dim sw As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
            False, _
            System.Text.Encoding.GetEncoding("shift_jis"))

            sw.Write(Pname + "main.mcs")
            '閉じる
            sw.Close()
            Dim NewMDIChild As New Form2()
            'Set the Parent Form of the Child window.
            NewMDIChild.MdiParent = Me
            'Display the new form.
            NewMDIChild.Show()


            'AboutProject.txt表示
            Dim sw1 As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
            False, _
            System.Text.Encoding.GetEncoding("shift_jis"))

            sw1.Write(Pname + "AboutProject.txt")
            '閉じる
            sw1.Close()
            Dim NewMDIChild2 As New Form2()
            'Set the Parent Form of the Child window.
            NewMDIChild2.MdiParent = Me
            'Display the new form.
            NewMDIChild2.Show()

Comments

[Tak1wa]

２つ質問があります。

①FnameはForm2メンバ変数ですか？実際はSaveメソッドの引数だったりします？
②親フォームからForm2を起動する処理を提示してください。気になっているのはForm2っていうインスタンス名なのかなと。

Answer 1

クラスの中、メソッドの外です。path変数と同じような位置です。

Comments

[Tak1wa]

コメントと間違えて投稿してしまいました。失礼しました。

Answer 2

推測ですが、実際表示中のForm2インスタンスに対してSaveメソッドを呼び出せていますか？
例えば以下のような感じでShowした際のインスタンスを変数（例ではhoge）で保持しておき、
Saveメソッド実行時はそのインスタンスに対してメソッド呼び出しをする必要があります。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True
        hoge = New Form2()
        hoge.MdiParent = Me
        hoge.Show()
    End Sub

    Private hoge As Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Form2.Save()   '←×
        hoge.Save()     '←○
    End Sub
End Class

Comments

[Tak1wa]

追記ありがとうございます。
この例であればNewMDIChild2がForm2のインスタンスなので、
親フォームのメンバなどにインスタンスを保持しておき、
NewMDIChild2.Save()としてみてください。

[Mogami_Tsuchika]

どうやればNewMDIChild2をPublicにできますかね？
そのままだと、アクセスできないので、、、、。

[Tak1wa]

Publicにする必要があるのかこの部分的なソースでは判断できませんが、変数スコープは理解されていますか。

Dim NewMDIChild As New Form2()

はローカル変数です。メンバ変数としてNewMDIChildを定義するだけで良いです。

[Mogami_Tsuchika]

Public Class Form1
Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) 'マイドキュメントのパス

Private Sub バージョン情報ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles バージョン情報ToolStripMenuItem.Click

End Sub

Private Sub MyConStudioの終了ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MyConStudioの終了ToolStripMenuItem.Click
Me.Close()

End Sub

Private Sub 新しいファイルToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新しいファイルToolStripMenuItem.Click
Dim f As New Form3()
'Form2を表示する
'ここではモーダルダイアログボックスとして表示する
'オーナーウィンドウにMeを指定する
f.ShowDialog(Me)
'フォームが必要なくなったところで、Disposeを呼び出す
f.Dispose()
Dim NewMDIChild As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()
End Sub

Private Sub 新しいプロジェクトToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新しいプロジェクトToolStripMenuItem.Click
Dim f As New Form4()
'Form2を表示する
'ここではモーダルダイアログボックスとして表示する
'オーナーウィンドウにMeを指定する
f.ShowDialog(Me)
'フォームが必要なくなったところで、Disposeを呼び出す
f.Dispose()

'main.mcs表示
Dim sr As New System.IO.StreamReader(path + "\MyConStudio\AppDate\ProjectName.txt", _
System.Text.Encoding.GetEncoding("shift_jis"))
'内容をすべて読み込む
Dim Pname As String = sr.ReadToEnd()
'閉じる
sr.Close()
Dim sw As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
False, _
System.Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw.Write(path + "\MyConStudio\" + "Project\" + Pname + "\main.mcs")
'閉じる
sw.Close()
Dim NewMDIChild As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()

'AboutProject.txt表示
Dim sw1 As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
False, _
System.Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw1.Write(path + "\MyConStudio\" + "Project\" + Pname + "\AboutProject.txt")
'閉じる
sw1.Close()
Dim NewMDIChild2 As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild2.MdiParent = Me
'Display the new form.
NewMDIChild2.Show()

Me.Text = Me.Text + " [" + Pname + "]"
End Sub

Private Sub ファイルを開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ファイルを開くToolStripMenuItem.Click
Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) 'マイドキュメントのパス

'OpenFileDialogクラスのインスタンスを作成
Dim ofd As New OpenFileDialog()

'はじめのファイル名を指定する
'はじめに「ファイル名」で表示される文字列を指定する
ofd.FileName = "default.txt"
'はじめに表示されるフォルダを指定する
'指定しない（空の文字列）の時は、現在のディレクトリが表示される
ofd.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)
'[ファイルの種類]に表示される選択肢を指定する
'指定しないとすべてのファイルが表示される
ofd.Filter = _
"TEXTファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
'[ファイルの種類]ではじめに
'「すべてのファイル」が選択されているようにする
ofd.FilterIndex = 2
'タイトルを設定する
ofd.Title = "開くファイルを選択してください"
'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
ofd.RestoreDirectory = True
'存在しないファイルの名前が指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckFileExists = True
'存在しないパスが指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckPathExists = True

'ダイアログを表示する
If ofd.ShowDialog() = DialogResult.OK Then
'OKボタンがクリックされたとき
'選択されたファイル名を表示する
Console.WriteLine(ofd.FileName)
Dim sw As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
False, _
System.Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw.Write(ofd.FileName)
'閉じる
sw.Close()
End If
Dim NewMDIChild As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()
End Sub

Private Sub MyConStudioサイトを開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MyConStudioサイトを開くToolStripMenuItem.Click
Dim NewMDIChild As New Form5()
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()
End Sub

Private Sub プロジェクトを開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles プロジェクトを開くToolStripMenuItem.Click
'OpenFileDialogクラスのインスタンスを作成
Dim ofd As New OpenFileDialog()

'はじめのファイル名を指定する
'はじめに「ファイル名」で表示される文字列を指定する
ofd.FileName = "default.html"
'はじめに表示されるフォルダを指定する
'指定しない（空の文字列）の時は、現在のディレクトリが表示される
ofd.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\MyConStudio\Project"
'[ファイルの種類]に表示される選択肢を指定する
'指定しないとすべてのファイルが表示される
ofd.Filter = _
"Projectファイル(*.pro)|*.pro"
'[ファイルの種類]ではじめに
'「すべてのファイル」が選択されているようにする
ofd.FilterIndex = 2
'タイトルを設定する
ofd.Title = "開くファイルを選択してください"
'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
ofd.RestoreDirectory = True
'存在しないファイルの名前が指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckFileExists = True
'存在しないパスが指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckPathExists = True

'ダイアログを表示する
If ofd.ShowDialog() = DialogResult.OK Then

'OKボタンがクリックされたとき
'選択されたファイル名を表示する
Console.WriteLine(ofd.FileName)
Dim sr2 As New System.IO.StreamReader(ofd.FileName, _
System.Text.Encoding.GetEncoding("shift_jis"))
'内容をすべて読み込む
Dim Pname As String = sr2.ReadToEnd()
'閉じる
sr2.Close()

'main.mcs表示

Dim sw As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
False, _
System.Text.Encoding.GetEncoding("shift_jis"))

sw.Write(Pname + "main.mcs")
'閉じる
sw.Close()
Dim NewMDIChild As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()

'AboutProject.txt表示
Dim sw1 As New System.IO.StreamWriter(path + "\MyConStudio\AppDate\text.txt", _
False, _
System.Text.Encoding.GetEncoding("shift_jis"))

sw.Write(Pname + "AboutProject.txt")
'閉じる
sw.Close()
Dim NewMDIChild2 As New Form2()
'Set the Parent Form of the Child window.
NewMDIChild2.MdiParent = Me
'Display the new form.
NewMDIChild2.Show()

Me.Text = "MyConStudio [" + Pname + "]"
End If
End Sub

Private Sub プロジェクトを保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles プロジェクトを保存ToolStripMenuItem.Click
NewMDIChild2.Save()

End Sub
End Class
です。
すみません、メンバ変数というのがわからなくて、、、、、。

Answer 3

他の部分のコードが不明ですが Fname には何かファイル名となる文字列をセットしていますか？

Comments

[Mogami_Tsuchika]

しています。
先ほど、Form2で、Save()を実行したところ問題なく動作しましたが
Form１から実行するとFnameがNothingになることがわかりました