label array

[HyperUniverse]

Hi

I have about 20 labels displaying "C".
When I press a button I want all of them to display "F".
When I press another button I want all of them to go back to "C".

("C" & "F" = Celsius & Fahrenheit.)

How do I make an array of them?

It's for a PocketPC application.

Thanks.

[kiwi1342]

hmm try this:

For Each label As Label In Form1
            If label.Text = "C" Then
                label.Text = "F"
                'I have to do this check otherwise I change all labels in my form
            ElseIf label.Text = "F" Then
                label.Text = "C"
            End If
        Next

[HyperUniverse]

Thanks for the answer, unfortunately it comes with 2 errors:

1.".......Form1" cannot refer to itself through its default instance; use "Me" instead.
2. Expression is of type ".......Form1", which is not a collection type.

If I follow its advice and use "Me" instead of "Form1", then line 1 of error goes away, but I still get the line 2 error.

Thanks.

[kiwi1342]

I am sorry, I did it very quickly.


use:

For Each label As Label In Me.Controls
            If label.Text = "C" Then
                label.Text = "F"
                'I have to do this check otherwise I change all labels in my form
            ElseIf label.Text = "F" Then
                label.Text = "C"
            End If
Next

[Pradeep1210]

As stated in your original post, I'm assuming that your Label caption is already set to "F" or "C" and you want to change it.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim labels = From lbl As Label In Me.Controls.OfType(Of Label)() _
                 Where lbl.Text = "C"
    For Each lbl In labels
        lbl.Text = "F"
    Next
End Sub

For the other button, replace "F" with "C" and "C" with "F"

[HyperUniverse]

Thanks kiwi1342

Now I get another crash:
InvalidCastException
"When casting from a number, the value must be a number less than infinity.
Make sure the source type is convertible to the destination type."

But if I replace "Me.Controls" with "tab2.Controls" it works perfect, only on that tab. (or tab3)
My application has 5 tabs.
These are such labels ("C" & "F") on 2 tabs.
tab2 & tab3
the other tabs have labels too, but none "C" or "F".


I'm sorry Pradeep1210, but your code doesn’t do anything, unless I change

Dim labels = From lbl As Label In Me.Controls.OfType(Of Label)() Where lbl.Text = "C"
to

Dim labels = From lbl As Label In Me.Controls Where lbl.Text = "C"
in which case it crashes in the same manner I stated above.
But if I replace "Me.Controls" with "tab3.Controls" it works perfect, only on that tab. (or tab2)


Thanks for support.

[kaliman79912]

You can still put them in an array if this is more clear. Since I am not at a computer with VS you may need to play a little with the code to get it to work

Dim lblArray() as Label = {label1, label2, label3, label4}

where label1, label2 etc. are the names of your current labels

then you can loop throught them

For i = 0 to 3
     lblArray(i).Text = "C"
Next i

[kiwi1342]

hmmm try this.

I am sorry but I can't try it right now :/

For Each objcontrol As Control In Me.Controls
            If objcontrol.GetType.ToString = "System.Windows.Forms.Label" And objcontrol.Text = "C" Then
                objcontrol.Text = "F"
            ElseIf objcontrol.GetType.ToString = "System.Windows.Forms.Label" And objcontrol.Text = "F" Then
                objcontrol.Text = "C"
            End If
        Next

[kaliman79912]

A small fix in my original post. Use the NEW keyword

You can still put them in an array if this is more clear. Since I am not at a computer with VS you may need to play a little with the code to get it to work

Dim lblArray as Label() = NEW Label() {label1, label2, label3, label4}

where label1, label2 etc. are the names of your current labels

then you can loop throught them

For i = 0 to 3
     lblArray(i).Text = "C"
Next i

Dim lblArray as Label() = NEW Label() {label1, label2, label3, label4}