オブジェクトへの参照を同じクラスのオブジェクトへの参照にキャストすることは意味がありますか？</p> <p><strong>注：</strong> TaxableProductは製品から継承

Question

ブック"Beginning ASP .NET 4 in VB 2010"には、以下が含まれています。

逆方向にキャストすることもできます。たとえば、商品 をTaxableProductリファレンスにキャストすることができます。ここのトリックは、この がメモリ内のオブジェクトが実際にTaxableProductである場合にのみ機能することです。

Dim theProduct As New TaxableProduct(...) 
Dim theTaxableProduct As TaxableProduct 
theTaxableProduct = CType(theProduct, TaxableProduct) 

しかし、最後の行が が実行されたとき、このコードは、ランタイムエラーを生成します： このコードは正しいです

Dim theProduct As New Product(...) 
Dim theTaxableProduct As TaxableProduct 
theTaxableProduct = CType(theProduct, TaxableProduct) 

それはTaxableProductからに変換しても意味がありません課税商品ですか？

Answer 1

あなたは、この継承を持っていると仮定すると... TaxableProduct は製品
である。しかし、あなたが製品が TaxableProductであると言うことができないことを意味

Public Class Product 
    Dim name As String 
--- 
End Class 

Public Class TaxableProduct 
    Inherits Product 
    Dim taxPct As Single 
--- 
End Class 

。 それは真実ではありません

あなたの2番目の例では、製品を作成して、TaxableProductで変換することはできません。あなたのtheTaxableProduct

Answer 2

でtaxPctを持っているであろう価値が可能であった場合
はこれがアップキャストと呼ばれ、それはあなたが時々できる最善です。特定の派生クラスをチェックして適切な処置を取る必要のあるメソッド内部の状況を考えてみましょう。たとえば：

Public Class Product 
Private productName As String 
Public Sub New(ByVal name As String) 
    productName = name 
End Sub 
Public ReadOnly Property Name() As String 
    Get 
     Return productName 
    End Get 
End Property 

End Class 

Public Class TaxableProduct 
Inherits Product 

Public Sub New(ByVal name As String, ByVal value As Decimal) 
    MyBase.New(name) 
    productValue = value 
End Sub 

Private productValue As Decimal 
Public Property Value() As Decimal 
    Get 
     Return productValue 
    End Get 
    Set(ByVal value As Decimal) 
     productValue = value 
    End Set 
End Property 
End Class 

Public Class TaxDistrict 
Dim districtTaxRate As Decimal 
Public Sub New(ByVal taxRate As Decimal) 
    districtTaxRate = taxRate 
End Sub 
Public ReadOnly Property TaxRate() As Decimal 
    Get 
     Return districtTaxRate 
    End Get 
End Property 

Public Function CalculateTax(ByVal theProduct As Product) As Decimal 
    If TypeOf theProduct Is TaxableProduct Then 
     ' Upcasting is needed to get the value of the product 
     Dim taxProduct As TaxableProduct = CType(theProduct, TaxableProduct) 
     Return districtTaxRate * taxProduct.Value 
    End If 
    Return 0 
End Function 
End Class 

Module Module1 

Sub Main() 

    Dim cart As New List(Of Product)() 
    cart.Add(New Product("Tricyle")) 
    cart.Add(New TaxableProduct("Bicyle", 100.0)) 
    cart.Add(New Product("Candy")) 
    cart.Add(New TaxableProduct("Lumber", 400.0)) 

    Dim kalamazoo As New TaxDistrict(0.09) 

    For Each prodInCart As Product In cart 
     Console.WriteLine("Tax for {0} is {1}", prodInCart.Name, kalamazoo.CalculateTax(prodInCart)) 
    Next 

End Sub 

End Module 

Producing the result 
    Tax for Tricyle is 0 
    Tax for Bicyle is 9.00 
    Tax for Candy is 0 
    Tax for Lumber is 36.00 

アップキャストなければ、すべての製品とその派生クラスを処理することは容易ではなかったであろう。