?? car.vb
字號:
Public Class car
Inherits vehicle
Private mycolor As String
Private mydisplacement As String
Public Overrides Property Type() As String
Get
Return "轎車"
End Get
Set(ByVal Value As String)
End Set
End Property
Public Property color() As String
Get
Return mycolor
End Get
Set(ByVal Value As String)
mycolor = Value
End Set
End Property
Public Property displacement() As String
Get
Return mydisplacement
End Get
Set(ByVal Value As String)
mydisplacement = 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, ByVal C As String, ByVal D As String)
MyBase.New(O, I, E)
mycolor = C
mydisplacement = D
End Sub
Public Overrides Function TellSelf() As String
Dim output As String
output = MyBase.TellSelf & "顏色=" & mycolor & "類型=" & mydisplacement
Return output
End Function
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -