NumericUpDown with unit measure

• Download source code - 73.1 Kb

This control was designed by CTR (centro-tecnologia-rocci)
Rocci Luca & D'Andrea Vito

Introduction

This control is an evolution of the classic control numericUpDown. The control numericUpDown visualizes and returns through property value, a decimal value, but, what if we need to increment a numeric value specifying also the measure? To this point our UpDownEx control enters in game. Our control returns a double value and visualizes a type value double and some text that indicates the measure. The increment is relative to the precision of the visualized number.

For example, if you enter a number with 3 decimal digits, the increment will be in 0.001. Plus every steps in the measure stair is automatic, either in increment or in decrement phases.

The code

The UpDownEx code inherits "Control" class and includes a numercUpDown standard control and some properties like an Array that indicates the measures.

    Private Sub Format()
        Dim str_Format As String
        If UpDown.Value = int_Factor * (int_UnitsActual) And int_UnitsActual > 0 Then
            int_UnitsActual -= 1
            UpDown.Value -= 1
            UpDown.DecimalPlaces -= 1
        ElseIf UpDown.Value = int_Factor * (int_UnitsActual + 1) And int_UnitsActual < str_Units.Length Then
            int_UnitsActual += 1
            UpDown.Value += 1
            UpDown.DecimalPlaces += 1
        End If
        UpDown.Increment = dbl_Decimals(UpDown.DecimalPlaces)
        Dim i As Integer
        str_Format = "#,"
        For i = 0 To UpDown.DecimalPlaces - 1
            str_Format += "#"
        Next
        str_Format += "0."
        For i = 0 To UpDown.DecimalPlaces - 1
            str_Format += "0"
        Next
        dbl_Value = UpDown.Value - (int_Factor * int_UnitsActual)
        Me.TextControl.Text = dbl_Value.ToString(str_Format) & " " & str_Units(int_UnitsActual)
    End Sub

Property

Units of measure

• Factor: Representing the step between two units of measure
• Maximum: Representing the max value
• Minumum: Representing the min value
• MeasureUnits: Representing an array of strings containing the units of measure

Values

• FormattedValues: Representing the value with the units of measure
• UnformattedValues: Representing the value

Support Windows Vista Styles