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

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

ただいまの
回答率

89.54%

なぜコンパイルエラーにならないか

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 591

heart_crimson

score 13

前提・実現したいこと

プログラムを組んでいる際、例外に遭遇しました。
例外の原因は「IEnumerable(Of MyClass)を引数とするメソッドに、MyClassを投げていたため」でした。
(下記のプログラムを参照してください。)
IEnumerable(Of MyClass)を引数とするメソッドにIntegerを投げれば実行前に教えてくれるので、
同様にIEnumerable(Of MyClass)を引数とするメソッドに、MyClassを投げていたら「型が違う」と教えてくれないのだろうか? と疑問に思い、質問を立ち上げました。

  • 過去はエラーを出していたが後になって実装された機能に追従して変更されたのか
  • エラーにすると記述できないプログラム構文があるのか
  • 設定すればエラーになるようにできるのか
  • 特に理由は無いのか

参考になるサイト等、ご存知でしたらご教授いただければ幸いです。

Q.なぜ知りたいか?
A.今回のような事を二度と繰り返さないよう、知識を深めるため。

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

'MyProject.MyClass' のオブジェクトを型 'System.Collections.Generic.IEnumerable`1[MyProject.MyClass]' にキャストできません。

該当のソースコード

以下が最低限動くソースです。

Module Module1

    Sub Main()
        Try
            PrintLabel(New MyCondition With
                       {
                       .AAA = 1
                       })
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.ReadKey()
        End Try
        Console.ReadKey()
    End Sub

    Private Sub PrintLabel(ByVal condition As MyCondition)
        Dim labelData = New My_Class With {
            .ProductId = condition.ProductId,
            .ProductName = condition.ProductName,
            .AAA = condition.AAA,
            .BBB = "2019/04/01",
            .CCC = "2019/04/01",
            .DDD = "2019/04/01",
            .EEE = condition.EEE,
            .FFF = MstTable.LabelSize.Middle,
            .GGG = condition.GGG,
            .HHH = 0,
            .III = MyCondition.LabelTypeEnum.Box,
            .JJJ = condition.JJJ,
            .KKK = condition.KKK,
            .LLL = condition.LLL,
            .MMM = condition.MMM,
            .NNN = condition.NNN,
            .OOO = New List(Of MyDto)
        }

        PrintProductLabel(labelData) 'ここで落ちる
    End Sub

    Public Function PrintProductLabel(ByVal labelData As IEnumerable(Of My_Class)) As Boolean

        Return True
    End Function

    Public Class MyCondition

        Public Enum LabelTypeEnum

            ''' <summary>商品</summary>
            Product = 1

            ''' <summary>商品の箱</summary>
            Box = 2

        End Enum

        ''' <summary>商品ID</summary>
        Public Property ProductId As Integer

        ''' <summary>商品名</summary>
        Public Property ProductName As String

        '以降、諸事情で名称を変更しています。ご了承ください。

        Public Property AAA As String
        Public Property BBB As Decimal
        Public Property CCC As Date
        Public Property DDD As Date
        Public Property EEE As Decimal
        Public Property FFF As String
        Public Property GGG As String
        Public Property HHH As Decimal
        Public Property III As String
        Public Property JJJ As MstTable.LabelSize
        Public Property KKK As Boolean
        Public Property LLL As Integer
        Public Property MMM As Integer
        Public Property NNN As LabelTypeEnum
        Public Property OOO As List(Of MyDto)

    End Class

    Public Class My_Class
        Public Property ProductId As Integer
        Public Property ProductName As String
        Public Property AAA As String
        Public Property BBB As Object
        Public Property CCC As Object
        Public Property DDD As Date
        Public Property EEE As Decimal
        Public Property FFF As Object
        Public Property GGG As String
        Public Property HHH As Integer
        Public Property III As Object
        Public Property JJJ As Object
        Public Property KKK As Object
        Public Property LLL As Object
        Public Property MMM As Object
        Public Property NNN As Object
        Public Property OOO As List(Of MyDto)
    End Class

    Public Class MyDto
        Public Property Name As String

        Public Property Dose As String

        Public Property Unit As String
    End Class

    Public NotInheritable Class MstTable

        Private Sub New() : End Sub

        ''' <summary>
        ''' ラベルサイズ
        ''' </summary>
        ''' <completionlist cref="LabelSize" />
        <Serializable>
        Public NotInheritable Class LabelSize
            Inherits AbstractEnumString

            ''' <summary>1:小</summary>
            Public Shared ReadOnly Property Small As New LabelSize("1")

            ''' <summary>2:中</summary>
            Public Shared ReadOnly Property Middle As New LabelSize("2")

            ''' <summary>3:大</summary>
            Public Shared ReadOnly Property Large As New LabelSize("3")

            Private Sub New(ByVal value As String)
                MyBase.New(value)
            End Sub

            Public Overloads Shared Narrowing Operator CType(value As String) As LabelSize
                Return New LabelSize(value)
            End Operator

        End Class

    End Class

    <Serializable>
    Public Class AbstractEnumString

#Region "プロパティ"

        Private Property Value As String

#End Region

#Region "コンストラクター"

        Private Sub New() : End Sub

        Protected Sub New(ByVal value As String)
            Me.Value = value
        End Sub

#End Region

#Region "Public関数"

        Public Overrides Function ToString() As String
            Return Value
        End Function

#End Region

#Region "演算子オーバーロード"

        Public Shared Operator =(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) = 0)
        End Operator

        Public Shared Operator <>(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) <> 0)
        End Operator

        Public Shared Operator >(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) > 0)
        End Operator

        Public Shared Operator >=(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) >= 0)
        End Operator

        Public Shared Operator <(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) < 0)
        End Operator

        Public Shared Operator <=(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As Boolean
            Return (String.Compare(lhs, rhs) <= 0)
        End Operator

        Public Shared Operator &(ByVal lhs As AbstractEnumString, ByVal rhs As AbstractEnumString) As String
            If lhs Is Nothing AndAlso rhs Is Nothing Then Return String.Empty
            If lhs Is Nothing Then Return rhs
            If rhs Is Nothing Then Return lhs
            Return lhs.Value & rhs.Value
        End Operator

        Public Shared Widening Operator CType(value As AbstractEnumString) As String
            If value Is Nothing Then Return Nothing
            Return value.ToString
        End Operator

        Public Shared Narrowing Operator CType(value As String) As AbstractEnumString
            Return New AbstractEnumString(value)
        End Operator

#End Region

    End Class
End Module

試したこと

検索しようとは思ったが、上記のように説明することは出来ても
検索欄に何と入力すればいいか言語化が出来なかった。
(言語の仕様を調べる時、どのサイトを見ればよいのかor何という文言で検索すればよいのかも、ご教授いただけますと幸いです。)

補足情報(FW/ツールのバージョンなど)

.NET Framework 4.0 Client Profile

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

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • heart_crimson

    2019/04/24 13:55 編集

    最小限のソースを作成しました。ソースをコピーして手作業で名称を変更していたため、コンパイルが通らなかったですね。ご迷惑おかけし申し訳ございません。質問内容に挙げたソースでしたら、こちらの環境ではコンパイルできます。(質問通り、例外で落ちますが)
    よろしくお願いいたします。

    キャンセル

  • Zuishin

    2019/04/24 14:04 編集

    すみません。SurferOnWww さんの回答でどうでしょうか?
    これでだめなようなら考えます。

    キャンセル

  • heart_crimson

    2019/04/24 18:51

    Option Strictの設定をOnにすることでエラーになりました。コメントくださった皆様、ご指導いただきましてありがとうございました!

    キャンセル

回答 1

checkベストアンサー

+3

Option Strict の設定は何になっていますか?

Offになっていました。

そのせいです。On にすればコンパイル以前にエラーが検出されます。

イメージ説明

Off になっていると、遅延バインディングが起きるようになって、オブジェクト(変数)の型を実行時に決めるため、コンパイルはできても 実行時にエラーが起きてしまいます。

デフォルトでは Off ですが、今後の開発では、今回のような問題を未然に防ぐため、必ず On にすることをお勧めします。上の画像ではソースコードに書いていますが、プロジェクトの設定で On にしたほうがよさそうです。

イメージ説明

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/04/24 18:50

    エラーになるようになりました! コメントに書きました通り、この設定の存在を知らなかったです。大変有益な情報ありがとうございました。

    キャンセル

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

  • ただいまの回答率 89.54%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る