Measurment Converstions

[toecutter]

i have an 08 project that has 50 forms and 28 modules that outputs hundreds if not thousands of metric measurements with labels showing "lm" for lineal meters or "m2" for square meters.

I am wanting to also have the project output imperial measurements as in "ft" feet and "sqft" square feet.

I know i can write hundreds of lines of code like below to do this:

 if checkbox_imperial.checked 
xxlbl.text = sqfeet
end if

But am hoping there will be a easier way before i begin.

What is the typical way to handle both metric and imperial measurements for different eviroments?

thx in advance...

[.paul.]

feet = ((metres * 100) / 2.25 / 12)

You'll need to show some code for a useful answer, but i'm not sure how you're hoping to shoehorn imperial conversions in there...

[.paul.]

Do you have hundreds or thousands of output labels?

[toecutter]

at minimum hundreds on the 50 odd forms.

[toecutter]

i can do the conversion was more after the correct way its usually handled.

[.paul.]

How about this:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Label1.TextChanged, AddressOf ClassHandlers.Labels_TextChanged
    End Sub

End Class

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Label1.TextChanged, AddressOf ClassHandlers.Labels_TextChanged
    End Sub

End Class

Public Class ClassHandlers
    'you need to set this on checkbox_imperial.checkedchanged
    Public Shared convert As Boolean

    Public Shared Sub Labels_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        If convert Then
            Dim lbl As Label = DirectCast(sender, Label)
            If lbl.Text.EndsWith("lm") Then
                Dim d As Decimal
                If Decimal.TryParse(lbl.Text.Replace("lm", ""), d) Then
                    'conversion code here and output back to the same label
                End If
            End If
        End If
    End Sub
End Class

[.paul.]

There might be a more efficient answer, but I really can't think how...

[toecutter]

There might be a more efficient answer, but I really can't think how...

thx heaps for that .paul i will check it thoroughly

[4x2y]

As far as your form will contains such huge amount of labels, it is better to create your own Label and encapsulate required conversions.

Here is a working code you can start with

Option Strict On
Option Explicit On
 
Public Class MyLabel
    Inherits System.Windows.Forms.Label
 
    Public Enum Units
        Centimetre
        Meter
        '
        Inch
        Foot
    End Enum
 
    Private _Unit As Units
    Public Property Unit() As Units
        Get
            Return _Unit
        End Get
        Set(ByVal value As Units)
            _Unit = value
            Select Case value
                Case Units.Meter ' it is the default, so no conversion needed
                    Me.Text = CStr(Me.Value) & " m"
                Case Units.Centimetre
                    Me.Text = CStr(Me.Value * 100) & " cm"
                Case Units.Foot
                    Me.Text = CStr(Me.Value / 0.3048) & " ft"
                Case Units.Inch
                    Me.Text = CStr(Me.Value / 0.0254) & " in"
            End Select
        End Set
    End Property
 
    Public Sub New()
        Me.Unit = Units.Meter ' set default unit.
    End Sub
 
    Private _Value As Decimal
    Public Property Value() As Decimal
        Get
            Return _Value
        End Get
        Set(ByVal value As Decimal)
            _Value = value
            Me.Text = CStr(value) & " m"
        End Set
    End Property
 
End Class

Usage

Option Strict On
Option Explicit On
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyLabel1.Value = 10 ' meters
        RadioButton3.Checked = True ' convert to feet
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        MyLabel1.Unit = MyLabel.Units.Meter
    End Sub
 
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        MyLabel1.Unit = MyLabel.Units.Centimetre
    End Sub
 
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        MyLabel1.Unit = MyLabel.Units.Foot
    End Sub
 
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        MyLabel1.Unit = MyLabel.Units.Inch
    End Sub
End Class

[ChrisE]

Hi,

why not in diffrent Datagridviews?

regards
Chris