Labels BorderStyle is not a member of system.windows.forms.control

[mgawelek]

I am doing this in vb.net 2K5 The code below is in a module trying to edit the main form's label control. The error message is: BorderStyle is not a member of System.Windows. Forms.Control.
When it is able to be set in the property window and you can do
Label1.BorderSt yle = BorderStyle.Non e in the Form's Code.
Can anyone help with this?

For Each ctrl As Control In Form.Controls
 ctrl.BorderStyle = BorderStyle.None
Next

[jg007]

[QUOTE=mgawelek]I am doing this in vb.net 2K5 The code below is in a module trying to edit the main form's label control. The error message is: BorderStyle is not a member of System.Windows. Forms.Control.
When it is able to be set in the property window and you can do
Label1.BorderSt yle = BorderStyle.Non e in the Form's Code.
Can anyone help with this?

took a couple of posts and it is not perfect coding as I had to redo it to only select labels as my first try did not have any other controls so threw an error when I added a button :)

Public Class Form1

    Dim ctrl
    Dim controltype As System.Type ' had to filter for only labels 





    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ctrl In Me.Controls

' get type of control

            controltype = ctrl.GetType 

' only change ones that are labels

            If controltype.ToString = "System.Windows.Forms.Label" Then

                ctrl.BorderStyle = BorderStyle.Fixed3D
                ctrl.Text = "hello"

            End If

        Next

    End Sub
End Class

[mgawelek]

Here is how I fixed it

http://www.mgwalk.com/Temp_Topic_View.php?Show=Comments&ID=75

[mgawelek]

I will give that a try to see it it works and let you know.

This code worked fine fior me, left the hello in as I wanted to confirm it worked :)

Public Class Form1

       Dim ctrl As System.Windows.Forms.Label



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For Each ctrl In Me.Controls

            ctrl.BorderStyle = BorderStyle.Fixed3D
            ctrl.text = "hello"

        Next




    End Sub
End Class

[mgawelek]

jg007 that will not work for me because I have buttons in the form too.

[jg007]

jg007 that will not work for me because I have buttons in the form too.

LOL!!!, look at the post again!

[mgawelek]

LOL!!!, look at the post again!

I see sorry they are pretty much the same. Thanks jg007!