質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

2回答

11786閲覧

TextBoxの値をループで合計したい

yyy

総合スコア49

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2018/05/28 08:45

前提・実現したいこと

Integer型のTextBoxを5個つくり(TextBox1~5)、ボタン押下でTextBox1から順に合計したい。

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

型 'System.NullReferenceException' のハンドルされていない例外が発生しました 追加情報:オブジェクト参照がオブジェクト インスタンスに設定されていません。

該当のソースコード

VB.NET Dim i As Long Dim Goukei_Su As Object Dim atai As Integer For i = 1 To 5 atai = Controls("TextBox" & i).Text Goukei_Su = atai + Goukei_Su Next

試したこと

イミディエイトウィンドウで下記を検索すると、
?Controls("TextBox" & i).Text
参照されたオブジェクトには値 'Nothing' が指定されています。
というメッセージが出るので、Nullエラーが出るのも納得なんですが、解消の仕方がわからず困っています。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ご提示のコードは大丈夫そうなのですが、Controls(名前)で参照している部分など、チェックを厳しくした方が良いかもしれません。("TextBox1"~"TextBox5"の名前が違っているということはありませんよね?)

以下、なるべく元のコードを生かして、少しチェックを厳しくした修正の例です。名前が"TextBox1"~"TextBox5"のTextBoxに入力された数値を足して、最後にメッセージボックスで表示します。

' VB.NET Option Explicit On Option Strict On Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i As Integer Dim Goukei_Su As Integer = 0 Dim atai As Integer Dim c As Control Dim tb As TextBox For i = 1 To 5 c = Controls("TextBox" & i) If c IsNot Nothing Then tb = CType(c, TextBox) atai = CType(tb.Text, Integer) Goukei_Su = atai + Goukei_Su End If Next MessageBox.Show("Goukei: " & Goukei_Su) End Sub End Class

TextBoxに未入力だとatai = CType(tb.Text, Integer) の部分で例外は出ますが、そのままにしています。その辺は適切に処理してください。

投稿2018/05/28 10:37

編集2018/05/28 10:46
dodox86

総合スコア9183

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

Controls("TextBox" & i)にてNullReferenceExceptionが出るとすれば
TextBox1,TextBox2,TextBox3,TextBox4,TextBox5のいずれかが無いということになります。
Nameをもう一度よく確認してみてください。

また、今回の質問とは別ですが、変数の型について勉強された方がよろしいかと思います。
Integer型のTextBoxは普通ですとありません。(自分で作成した場合は別)
数字のみ入力許可としたとしても、TextBox1.Textはあくまで「文字」でString型となります。
Option Strict Onでプログラムされることをお勧めします。

投稿2018/05/28 10:35

YAmaGNZ

総合スコア10222

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問