VB.NET ボタンを押すとテキストボックス内の文字列の表示がMsgBoxで表示される

Question

前提・実現したいこと

vb.net初心者です。

visual studio2017でWindowsフォームアプリケーションを作成しております。

フォーム上にテキストボックスとボタンのみがあり、
テキストボックス内に文字列を入力する。
ボタンを押すと、テキストボックス内に入力した文字列がMsgBoxで表示される。
※PrivateのメソッドShowMsg(msg As String)を作り、ボタンイベントから呼び出しを行う。

このようなアプリを制作中ですが、以下のようなエラーメッセージが発生いたしました。

ご教示頂ければ幸いです。

発生している問題・エラーメッセージ

System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'

Kadai.Form1.TextBox1.get が Nothing を返しました。

該当のソースコード

Public Class Form1

    Dim msg As String = TextBox1.Text

    Private Sub ShowMsg(msg As String)

        MessageBox.Show(msg)

    End Sub



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

        Call ShowMsg(msg)

    End Sub

End Class

Comments

[Zuishin]

書いてある通り、TextBox1 が Nothing だということです。msg が初期化される時点でまだ TextBox1 は作られていません。

[Nendo]

TextBox1を作成する必要があるということでしょうか。
サンプルコードをご教示頂ければ幸いです。

[Zuishin]

TextBox1 はデザイナで作っているんでしょう？
それが実際にインスタンス化されるのは InitializeComponent を呼んだ後です。それまで待ってください。

[Nendo]

フォームロード内でDim msg As String = TextBox1.Text
と記載する必要があるということでしょうか。

[Zuishin]

宣言と初期化を同時に行う必要はありません。

Dim msg As String
msg = TextBox1.Text

のように別々に行うことができます。

[Nendo]

Form1_Load内で
Dim msg As String
msg = TextBox1.Text
と記載したところ、msgは宣言されていませんとエラーが発生いたしました。
宣言されているのではないでしょうか。

[Zuishin]

変数にはスコープがあり、{} の中で宣言したローカル変数はその外からは見えません。つまり、Form1_Load の中で宣言されたものは Button1_Click からは見えません。

この質問のコードの場合は、ローカル変数ではなくインスタンスフィールドとして宣言されているために、クラス内のすべてのインスタンスメソッドから見ることができます。(宣言がメソッド内ではなく、クラス内にあります)

したがって、同じ位置で msg を宣言し、Form1_Load で初期化すればコンパイルは通るということになります。ただし、y_waiwai さんのおっしゃる通り、Form1_Load で初期化した場合、その時点での Text プロパティが msg に保存されます。変数の中身は自動更新されません。

[Nendo]

ご教示頂きまして、ありがとうございます。
同じ位置で msg を宣言し、Form1_Load で初期化の部分が分からないのですが、
サンプルコードをご教示頂ければ幸いです。

[Zuishin]

> Dim msg As String = TextBox1.Text

これを次のように書き換えます。

Dim msg As String

変数に最初の値を代入することを初期化と呼びます。質問のコードでは宣言と初期化を同時に行っていますが、これを宣言のみにし、msg の初期化は TextBox1 が初期化されるのを待ってから行うということです。

[Nendo]

Dim msg As Stringと宣言後、
msg = TextBox1.Textと記載したら、
宣言が必要ですとエラーが発生いたしました。
こちらの対処法をご教示頂ければ幸いです。

[Zuishin]

宣言する場所を変えていませんか？

[Nendo]

Public Class Form1

Dim msg As String

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

msg = TextBox1.Text

End Sub

Private Sub ShowMsg(msg As String)

MessageBox.Show(msg)

End Sub

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

Call ShowMsg(msg)

End Sub

End Class

このように記述したのですが、文字列が表示されません。
ご教示頂ければ幸いです。

[Zuishin]

こちらでも試してみましたが、エラーは発生しませんね。

文字列が表示されないのは、msg に値が代入されているのが Form1_Load だけだからです。すでに書いたように、その時点でのプロパティが msg に保存され、自動更新はされません。その時点で Text1.Text は空文字列なので、それが表示されています。

[Nendo]

ご丁寧にご回答頂きまして、ありがとうございました。
もう少し原因を調べてみます。
度々申し訳ございませんでした。

[Zuishin]

原因は明らかです。値を更新していないからです。dodox86 さんの回答を見てください。

[Nendo]

msg = TextBox1.Text
ShowMsg(msg)
と記述したところ、テキストが表示されました。
ありがとうございました。

[Zuishin]

解決したのであればベストアンサーを選んでください。

Answer 1

既にZuishinさんにコメントをいただいているように、Windows Formsのフォーム中の各TextBox等の各コントロールは、Visual Studioのフォームデザイナーで自動生成されたソースファイル中でインスタンスが生成されます。これに依存せずに各コントロールを自分で作ることもできますが、十分理解してから使用するべきです。

今回の質問では、ボタンをクリックしたときにTextBox1のTextプロパティを参照すればよいです。

' Form1.vb
Public Class Form1
    Private Sub ShowMsg(msg As String)
        MessageBox.Show(msg)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' このイベントハンドラーが使えるときには、TextBox1のインスタンスが生成されていて、使える状態になっている。
        ShowMsg(TextBox1.Text)
    End Sub
End Class

プロジェクトをビルドすると、Visual Studio のフォームデザイナーで「Form1.Desginer.vb」と言うソースファイルが出来上がります。Form1と、TextBox1、Button1のインスタンスが生成されていることが分かります。

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(44, 48)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(100, 28)
        Me.TextBox1.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(44, 83)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(11.0!, 21.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(800, 450)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents TextBox1 As TextBox
    Friend WithEvents Button1 As Button
End Class

Comments

[dodox86]

ちなみに、オリジナルの質問者さんのコードではCall ShowMsg(msg)のように使っていますが、意図的に使用する場合を除いてCallは不要です。使うとかえってややこしいです。
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/statements/call-statement

[Nendo]

ご教示頂きまして、ありがとうございます。
Callを使う必要はないのですね。
承知いたしました。

Answer 2

Dim msg As String = TextBox1.Text

TextBox1というのはForm1のインスタンスが生成されないと生成されません。

また、ボタンを押したときの文字列を表示するなら、ボタンを押したときの文字列をとってくる必要があります

Comments

[Nendo]

ご教示頂きまして、ありがとうございました。
文字列の取得ができました。