vehicle.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 43 行

Public MustInherit Class vehicle
    Private myowner As String
    Private myID As String
    Private myEngineId As String
    Public Property owner() As String
        Get
            Return myowner
        End Get
        Set(ByVal Value As String)
            myowner = Value
        End Set
    End Property
    Public Property ID() As String
        Get
            Return myID
        End Get
        Set(ByVal Value As String)
            myID = Value
        End Set
    End Property
    Public Property EngineId() As String
        Get
            Return myEngineId
        End Get
        Set(ByVal Value As String)
            myEngineId = Value
        End Set
    End Property
    Public Sub New()
    End Sub
    Public Sub New(ByVal O As String, ByVal I As String, ByVal E As Integer)
        myowner = O
        myID = I
        myEngineId = E
    End Sub
    Public MustOverride Property Type() As String
    Public Overridable Function TellSelf() As String
        Dim output As String
        output = "车主=" & myowner & "车牌号码=" & myID & "发动机编号=" & myEngineId
        Return output
    End Function
End Class