18 lines
513 B
VB.net
18 lines
513 B
VB.net
Public Class ProductVersion
|
|
Public Property Guid As Integer
|
|
Public Property Code As String
|
|
Public Property GroupId As Integer
|
|
Public Property VersionId As Integer
|
|
Public Property Name As String
|
|
|
|
Public ReadOnly Property VersionString As String
|
|
Get
|
|
Return VersionId.ToString.PadLeft(2, "0")
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return $"{VersionId.ToString.PadLeft(2, "0")} - {Name}"
|
|
End Function
|
|
End Class
|