control/DataGridViewCurrencyTextBoxColumn.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.ComponentModel

''' <summary>
''' 只能输入数字，可以定制小数位
''' 及
''' 取精度方式：截断或四舍五入
''' </summary>
Public Class DataGridViewCurrencyTextBoxColumn
    Inherits DataGridViewTextBoxColumn

    Private m_Precision As Int16 '小数精度
    Private m_PrecisionStyle As PrecisionStyle '取精度方式

    Public Sub New()

        Me.CellTemplate = New DataGridViewCurrencyTextBoxCell()
        m_Precision = 2 '默认为2位小数
        m_PrecisionStyle = PrecisionStyle.PrecisionCut '默认为截取精度 

        Me.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub

    Public Overrides Property CellTemplate As DataGridViewCell
        Get
            Return MyBase.CellTemplate
        End Get
        Set(value As DataGridViewCell)
            If (value IsNot Nothing) AndAlso
                Not value.GetType().IsAssignableFrom(GetType(DataGridViewCurrencyTextBoxCell)) _
                Then
                Throw New InvalidCastException("Must be a DataGridViewMultiColumnComboBoxCell")
            End If
            MyBase.CellTemplate = value
        End Set
    End Property

    <System.ComponentModel.Browsable(True), System.ComponentModel.Description("设置小数位精度，整数表示。默认为2。")>
    Public Property Precision As Short
        Get
            Return m_Precision
        End Get
        Set(value As Short)
            m_Precision = value
        End Set
    End Property

    <System.ComponentModel.Browsable(True), System.ComponentModel.Description("取小数精度方式，枚举类型，默认为PrecisionStyle.PrecisionCut截断。")>
    Public Property PrecisionStyle As PrecisionStyle
        Get
            Return m_PrecisionStyle
        End Get
        Set(value As PrecisionStyle)
            m_PrecisionStyle = value
        End Set
    End Property
End Class

'小数精度的截断方式
Public Enum PrecisionStyle
    PrecisionCut = 0