使用繼承基類對象時傳遞基類對象類型

Question

我有一個項目，主要有兩個對象，都從一個基地繼承。就像這樣：

Public Class Vehicle 
    Property Model As String 
    Property Make As String 
End Class 

Public Class Truck 
    Inherits Vehicle 
    Property IsFlatbed As Boolean 
End Class 

Public Class Car 
    Inherits Vehicle 
    Property LeatherSeats As Boolean 
End Class 

足夠簡單，是嗎？因爲我不知道用戶是否會選擇汽車或卡車，我想要做的只是傳遞Vehicle。

所以，這樣的事情：

Public v As Vehicle 
Sub WhichVehicle() 
    Select Case cmbVehicle.SelectedItem 
     Case Truck 
      v = New Truck 
     Case Car 
      v = New Car 
    End Select 
    SetFlat (v) 
End Sub 

這一切工作，但現在我只是想通過v周圍，並使用它的屬性。像：

Sub SetFlat (myVehicle As Vehicle) 
    myVehicle.IsFlatbed = True 
End Sub 

上述功能不起作用，因爲myVehicle是Vehicle，而不是一個Truck。

有沒有辦法繞過Vehicle類型並讓IDE知道使用哪種類型？或者我完全錯過了一個更好的方法來做到這一點？

Answer 1

這是你能做到這一點的一種方法：

Imports System.Reflection 
Module main_ 
    Sub Main() 
     Dim t As New Truck 
     Dim c As New Car 
     Dim v As Vehicle 
     v = t 
     SetFlat(v) 
     v = c 
     SetFlat(v) 
    End Sub 
    Sub SetFlat(ByVal v As Vehicle) 

     Dim vehicletype As Type 
     Dim members() As PropertyInfo 

     vehicletype = v.GetType 
     members = vehicletype.GetProperties 

     Console.Write("v is a " & vehicletype.ToString) 
     For Each m As PropertyInfo In members 
      If m.Name = "IsFlatbed" Then 
       m.SetValue(v, True, Nothing) 
       Console.WriteLine(" and now it's a flatbed") 
       Exit Sub 
      End If 
     Next 
     Console.WriteLine(" so flatbed doesn't apply") 
    End Sub 
End Module 

輸出：

v is a Vehicles.Truck and now it's a flatbed 
v is a Vehicles.Car so flatbed doesn't apply 

Answer 2

基本上，當你撥打SetFlat你知道你的車輛有一個名爲IsFlatbed的屬性，對吧？

然後你應該聲明一個包含這個屬性的接口Flattable。類Truck將實現該接口，並且SetFlat子將具有Flattable對象作爲參數而不是車輛。

編輯：

這個怎麼樣：

Public Interface IFlattable 
    Property IsFlatbed() As Boolean 
End Interface 

Public Class Truck 
    Inherits Vehicle 
    Implements IFlattable 

    Private _isFlatBed as Boolean 
    Public Property IsFlatbed() as Boolean Implements IFlattable.IsFlatbed 
     Get 
      Return _isFlatbed 
     End Get 
     Set(ByVal value as Boolean) 
      _isFlatbed = value 
     End Set 
End Class 


Public v As Vehicle 
Sub WhichVehicle() 
    Select Case cmbVehicle.SelectedItem 
     Case Truck 
      v = New Truck 
      SetFlat (DirectCast(v, IFlattable)) 
     Case Car 
      v = New Car 
    End Select 
End Sub 

Sub SetFlat (myVehicle As Flattable) 
    myVehicle.IsFlatbed = True 
End Sub 

Answer 3

我覺得你應該給你嘗試什麼acomplish ... 不管怎麼說，一些細節在VB中你有一個運營商，以確定是否一個對象是一個類型，即typeof運算符。你可以測試是否v是卡車和使用轉換運算符（DirectCast，CTYPE）投v到卡車，像

Dim v as Vehicle 
'... 
If typeof v is Truck then SetFlat(DirectCast(v, Truck)) 

編輯：SetFlat應採取卡車作爲參數，僅是有道理的。

Answer 4

我發現了兩種方法可以幫助你。

更優雅的是通過使用泛型方法強制你的基類進行子類化，而不需要類型推斷。 它可能看起來像（我不是一個VB.Net程序員，所以可能會有一些誤差）：

Sub SetFlat(of T) (myVehicle As T) 
    T.IsFlatbed = True 
End Sub 
// later you can just call 
SetFlat(Of Truct)(myVehicle) 

當然，這意味着你需要知道myVehicle對象的確切類型的主叫 SetFlat前功能。 SetFlat也只能用具有IsFlatbed屬性的類來調用。 在VB.Net約泛型更多的細節：
http://www.15seconds.com/issue/040526.htm
http://msdn.microsoft.com/en-us/library/w256ka79%28VS.80%29.aspx
Generic Functions in VB.NET

第二（髒）解決方案是使用。網絡反射來檢測myVehicle對象是否包含IsFlatbed屬性。您可能會發現更多細節：
http://msdn.microsoft.com/en-us/magazine/cc163750.aspx
http://visualbasic.about.com/od/usingvbnet/a/proginfo.htm
http://www.eggheadcafe.com/community/aspnet/14/14989/reflection.aspx

Answer 5

我決定火了Visual Studio和做一些測試，因爲我對其他答案的評論可能不會太大的意義。假設你有以下類：

Public Class Vehicle 
    Public Property Model As String 
    Public Property Make As String 
End Class 

Public Class Truck : Inherits Vehicle 
    Public Property IsFlatbed As Boolean 
End Class 

Public Class Car : Inherits Vehicle 
    Public Property LeatherSeats As Boolean 
End Class 

你也可以在另一大類下面的方法：

Private Sub WhichVehicle() 
    Select Case cmbVehicle.SelectedItem 
     Case Truck 
      v = New Truck 
     Case Car 
      v = New Car 
    End Select 

    SetFlat(v) 
End Sub 

Private Sub SetFlat(ByVal myVehicle As Vehicle) 
    If TypeOf myVehicle Is Car Then 
     Debug.WriteLine("This is a car") 

     Dim c As Car = DirectCast(myVehicle, Car) 
     c.LeatherSeats = False 
    ElseIf TypeOf myVehicle is Truck Then 
     Debug.WriteLine("This is a truck") 

     Dim t As Truck = DirectCast(myVehicle, Truck) 
     t.IsFlatbed = True 
    End If 
End Sub 

因此，這可以讓你通過車輛周圍的物體如你想要的，因爲直到運行時，你纔會知道你正在處理哪種特定類型的車輛（無論是汽車還是卡車）。 SetFlat方法可以在運行期間確定它通過的具體子類別，並據此採取行動。在確定了哪種類型的子類之後，您必須確保將通用車輛對象（v）投射到更具體的子類的新對象（c代表Car或t代表Truck ），否則代碼將無法編譯，因爲您將嘗試調用通用車輛類型中不存在的方法，但只能調用特定子類型的車輛。

我看到這種方法最大的缺點是，如果你有很多代碼，它可能開始變得單調乏味。這是因爲您要調用的每個方法都必須檢查它是否通過了哪種類型的特定車輛對象，並根據特定類型運行一組不同的例程。