merchandise.vb

来自「关于简单入门编程资源」· VB 代码 · 共 45 行

Imports System.Text
Imports System.Windows.Forms

Public Class Merchandise
    Private mPrice As Double
    Public ID As String
    Public Name As String
    Public count As Integer
    '只读属性商品单价
    Public Property Price() As Double
        Get
            Return mPrice
        End Get
        Set(ByVal value As Double)
            If value > 0 Then
                mPrice = value
            Else
                MsgBox("价格输入错误！")
            End If
        End Set
    End Property
    '把商品信息转为字符串
    Public Function ToStr() As String
        Dim StrPrice, StrCount As String
        StrPrice = Str(mPrice)
        StrCount = Str(count)
        Return (ID + Space(1) + Name + Space(4 - StrPrice.Length) + StrPrice + Space(4 - StrCount.Length) + StrCount)
    End Function
    '把字符串转为各字段和属性的数据
    Public Sub GetData(ByVal StrMessage As String)
        'Dim tem() As String
        ID = StrMessage.Substring(0, 3)
        Name = StrMessage.Substring(4, 4)
        mPrice = StrMessage.Substring(9, 4)
        count = Conversion.Int(StrMessage.Substring(13, 3))
    End Sub
    '初始化数据
    Public Sub New(ByVal StrMessage As String)
        Me.GetData(StrMessage)
    End Sub
    Public Sub New()
        '无构造参数
    End Sub
End Class