使用VB.NET的五个技巧之给控件绑定颜色

Public Class Account

Dim m_nAccountID As Integer
Dim m_sCustomerName As String
Dim m_dblBalance As Double

Public Sub New(ByVal nAccountID As Integer, ByVal sCustomerName As 
                String, _ByVal dblBalance As Double)
    Me.AccountID = nAccountID
    Me.CustomerName = sCustomerName
    Me.Balance = dblBalance
End Sub

Public Property AccountID() As Integer
    Get
        Return m_nAccountID
    End Get
    Set(ByVal Value As Integer)
        m_nAccountID = Value
    End Set
End Property

Public Property CustomerName() As String
    Get
        Return m_sCustomerName
    End Get
    Set(ByVal Value As String)
        m_sCustomerName = Value
    End Set
End Property

Public Property Balance() As Double
    Get
        Return m_dblBalance
    End Get
    Set(ByVal Value As Double)
        m_dblBalance = Value
    End Set
End Property

Public ReadOnly Property BackColor() As Color
    Get
        If m_dblBalance < 0 Then
            Return Color.Salmon
        Else
            Return SystemColors.Window
        End If
    End Get
End Property
End Class