VB.NETの型変換について

Question

前提・実現したいこと

VB.NET初心者です。
テキストボックスに値を入力しボタンを押すと、その値に１足された値がメッセージボックスで表示されるというプログラムを作成中です。
※ShowMsgの引数msgはInteger型で。

以下のエラーメッセージが表示されます。
教えていただけますと幸いです。

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

Integer型からString型への暗黙の変換は許可されていません。

該当のソースコード

Public Class F1


    Private Sub ShowMsg(msg As Integer)

'この部分でエラー
        MessageBox.Show(msg)


    End Sub


    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click


        Dim u As String = TB1.Text
        Dim i As Integer = CInt(u)

        If IsNumeric(i) Then

            i += 1

            ShowMsg(i)

        Else

        End If

    End Sub

End Class

試したこと

MessageBox.Show(msg)をMessageBox.Show(CType(msg, String))と型変換したところ、数値は表示されましたが、文字列を入力するとSystem.InvalidCastException: 'String "入力した文字列" から型 'Integer' への変換は無効です。とエラーが発生してしまいます。

Comments

[退会済みユーザー]

質問する前に「型」について勉強しましょう。

Answer 1

MessageBox.Showメソッド
こちらにある通り、引数はString型です。
ですので、msgをString型に変換する必要があります。
試されたようにCType(msg, String)でも変更は可能ではありますが
CTypeよりはmsg.ToStringといった感じでToStringメソッドを使用された方がいいかと思います。

また、StringからIntegerへ変換できるか確認する場合は
Integer.TryPerseメソッドを利用してください。

Comments

[Nendo]

ありがとうございます。
ToStringメソッドを使用しました。
さらにテキストボックスに文字列を入力したら、何も表示されないという機能を実装したいのですが、
文字列を入力しボタンを押すとSystem.InvalidCastException: 'String "入力した文字列" から型 'Integer' への変換は無効です。とエラーが発生いたしました。
こちらの対処法を教えていただけますでしょうか。

[YAmaGNZ]

回答に書いてある通り、TryParseを利用してください。

[Nendo]

ご教示頂きありがとうございました。

[Nendo]

度々申し訳ございません。
教えていただいたように、TryParseを利用してIf文にElseIfを追加しInteger.TryParse(u, i) = True Then
と書いたのですが、テキストボックスに文字列を入力したところ、エラーが発生しました。
ご教示頂ければ幸いです。

[YAmaGNZ]

どのように書いてどこでどういうエラーが出たのか提示していただけませんか？
こちらでは貴方がどのようにソースを修正され、その修正が正しいのか判断できません。
そもそも、私は「StringからIntegerへ変換できるか確認する場合」と書きました。
これを行うべきタイミングはStringのものをIntegerに代入する前です。
「Integerに変換できるか確認する」ということを行う前にIntegerに変換してしまうのはおかしいですよね？

[Nendo]

このように書き、System.InvalidCastException: 'String "入力した文字列" から型 'Integer' への変換は無効です。'とエラーが発生しました。

Public Class F1

Private Sub ShowMsg(msg As Integer)

MessageBox.Show(msg.ToString)

End Sub

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click

Dim u As String = TB1.Text
Dim i As Integer = CInt(u)

If IsNumeric(i) Then

i += 1

ShowMsg(i)

ElseIf Integer.TryParse(u, i) = True Then

End If

End Sub

End Class

[YAmaGNZ]

ご提示ありがとうございます。ただ、「どこで」エラーが発生したのかという情報がありません。
想像ですが
Dim i As Integer = CInt(u)
ここでエラーが発生しているのではありませんか？
エラーが発生する前にIntegerに変換できるか確認しなくてはならないということは分かりますか？

[Nendo]

ご指摘いただきました通り、Dim i As Integer = CInt(u)の部分でエラーが起こります。
エラーが発生する前にIntegerに変換できるか確認しなくてはならないということは分かりました。
このように記述するのでしょうか。
Dim u As String = TB1.Text
Integer.TryParse(u, i)
Dim i As Integer = CInt(u)

[YAmaGNZ]

変数の宣言方法と変数の初期化についての理解が完全に出来ていないようですね
Dim i As Integer
と
i = CInt(u)
と分けて書くことができます。
iへの代入はTryParseを使用してIntegerに変換できるか判断してから行うようにしてください。
また、判断するということはIf文で行います。

[Nendo]

ご指摘いただいたように、Dim i As Integerと i = CInt(u)と分けて書きデバッグをしたところ、以下のように実装できました。
ありがとうございました。

Public Class F1

Private Sub ShowMsg(msg As Integer)

MessageBox.Show(msg.ToString)

End Sub

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click

Dim u As String = TB1.Text
Dim i As Integer

If Integer.TryParse(u, i) Then

i = CInt(u)

IsNumeric(i)

i += 1

ShowMsg(i)

Else

End If

End Sub

End Class

[YAmaGNZ]

IsNumericも数字に変換できるか確認するものです。
今回の場合ですとTryParseで判断していますのでIsNumericは必要ありません。

また、なぜIsNumericではなくInteger.TryParseを勧めたのかというと
IsNumericでは少数表現や指数表現、16進表記など数字として変換できると判断する範囲が広いのです。
例えば、”123.45”という文字列を変換できるか判断する場合
IsNumericではTrueとなり、Integer.TryParseではFalseとなります。
引数がIntegerですので、Integerとして変換できないものは省くと考えた場合、Integer.TryParseのほうが適切ですのでこちらをお勧めしました。

[Nendo]

ご丁寧にご教示いただきまして、ありがとうございます。