Visible property does not change

[Marc Robitaille]

Hello,

Hello,

I developed a UserControl. It has funny behavior. It is composed of three
controls. A texbox, a combobox and a button. There are three properties to
indicate the visibility of the three controls. The only property which
functions well is the one for the button. The two others, even if I do:
UserControl.Tex tboxVisible = True or UserControl.Com boboxVisible = True, the
textbox or the combobox remain invisible. I placed a BreakPoint on the Set
of the TextboxVisible property. The code look like that: TexBox.Visible =
Value. Even if Value is set to True the Visible property of the Textbox does
not change as if it were in readonly. Did somebody already had this problem?
It is not the first usercontrol that I make but it is the first time that I
have this kind of problem.

Any solution ?
Thanks

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")
--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

[Cor Ligthert [MVP]]

Marc,

Why don't you just test with visible = false instead of visible = value

At least does it give us more information that the value is not wrong.

Just my thought,

Cor

[Marc Robitaille]

I tried this
Texbox.Visible = False
Texbox.Visible = True
that doesn't make any difference Visible property remain to false... I even
tried this

If Value Then
Texbox.Visible = True
Else
Texbox.Visible = False
End If

Same result

Any Idea?

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Cor Ligthert [MVP]" <no************ @planet.nl> a écrit dans le message de
news: uD************* *@TK2MSFTNGP09. phx.gbl...

Marc,

Why don't you just test with visible = false instead of visible = value

At least does it give us more information that the value is not wrong.

Just my thought,

Cor

[Marc Robitaille]

I enven set a breakpoint in the Set of my Visible property and add a spy on
my textbox.visible property. In the spy window, we can change the values in
break mode. When I try to change the Visible property to True, it doesn't
change. False remain...

I am a little bit despaired :-(

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Marc Robitaille" <ma************ *@ars-solutions.caa> a écrit dans le
message de news: eq************* *@TK2MSFTNGP09. phx.gbl...

I tried this
Texbox.Visible = False
Texbox.Visible = True
that doesn't make any difference Visible property remain to false... I
even tried this

If Value Then
Texbox.Visible = True
Else
Texbox.Visible = False
End If

Same result

Any Idea?

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Cor Ligthert [MVP]" <no************ @planet.nl> a écrit dans le message de
news: uD************* *@TK2MSFTNGP09. phx.gbl...

Marc,

Why don't you just test with visible = false instead of visible = value

At least does it give us more information that the value is not wrong.

Just my thought,

Cor

[Cor Ligthert [MVP]]

Marc,

I have not any problem

\\\ You can just open a form and than past this in after the #region (be
aware of ' that last End Class what I have deleted for this purpose)
Private mc As New mycontrol
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.Controls.Add (mc)
AddHandler mc.but.Click, AddressOf btclick
End Sub
Private Sub btclick(ByVal sender As _
System.Object, ByVal e As System.EventArg s)
If mc.tb.Visible = True Then
mc.tb.Visible = False
Else
mc.tb.Visible = True
End If
End Sub
End Class
Public Class mycontrol
Inherits GroupBox
Public but As New Button
Public tb As New TextBox
Public Sub New()
Me.Height = 70
Me.Width = 130
tb.Text = "Hello World"
but.Location = New System.Drawing. Point(20, 10)
tb.Location = New System.Drawing. Point(10, 40)
Me.Controls.Add (but)
Me.Controls.Add (tb)
End Sub
///
I hope this helps,

Cor
"Marc Robitaille" <ma************ *@ars-solutions.caa> schreef in bericht
news:eq******** ******@TK2MSFTN GP09.phx.gbl...

I tried this
Texbox.Visible = False
Texbox.Visible = True
that doesn't make any difference Visible property remain to false... I
even tried this

If Value Then
Texbox.Visible = True
Else
Texbox.Visible = False
End If

Same result

Any Idea?

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Cor Ligthert [MVP]" <no************ @planet.nl> a écrit dans le message de
news: uD************* *@TK2MSFTNGP09. phx.gbl...

Marc,

Why don't you just test with visible = false instead of visible = value

At least does it give us more information that the value is not wrong.

Just my thought,

Cor

[Marina]

Are these controls in a container control, such as a panel?

"Marc Robitaille" <ma************ *@ars-solutions.caa> wrote in message
news:uJ******** ******@TK2MSFTN GP10.phx.gbl...

Hello,

Hello,

I developed a UserControl. It has funny behavior. It is composed of three
controls. A texbox, a combobox and a button. There are three properties to
indicate the visibility of the three controls. The only property which
functions well is the one for the button. The two others, even if I do:
UserControl.Tex tboxVisible = True or UserControl.Com boboxVisible = True,
the
textbox or the combobox remain invisible. I placed a BreakPoint on the Set
of the TextboxVisible property. The code look like that: TexBox.Visible =
Value. Even if Value is set to True the Visible property of the Textbox
does
not change as if it were in readonly. Did somebody already had this
problem?
It is not the first usercontrol that I make but it is the first time that
I
have this kind of problem.

Any solution ?
Thanks

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")
--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

[Marc Robitaille]

Thank you. I tested your code in a new form and it works perfectly. But,
that did not solved my problem. I have circumvent the problem in this way.

Private mblnVisibleComb o As Boolean

Set(ByVal Value As Boolean)
mblnVisibleComb o = Value

Combobox.Visibl e = mblnVisibleComb o

End Set

instead of

Set(ByVal Value As Boolean)

Combobox.Visibl e = Value

End Set

Has you can see, it is very strange but it works now!!!!

Thank you

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Cor Ligthert [MVP]" <no************ @planet.nl> a écrit dans le message de
news: %2************* ***@TK2MSFTNGP1 4.phx.gbl...

Marc,

I have not any problem

\\\ You can just open a form and than past this in after the #region (be
aware of ' that last End Class what I have deleted for this purpose)
Private mc As New mycontrol
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.Controls.Add (mc)
AddHandler mc.but.Click, AddressOf btclick
End Sub
Private Sub btclick(ByVal sender As _
System.Object, ByVal e As System.EventArg s)
If mc.tb.Visible = True Then
mc.tb.Visible = False
Else
mc.tb.Visible = True
End If
End Sub
End Class
Public Class mycontrol
Inherits GroupBox
Public but As New Button
Public tb As New TextBox
Public Sub New()
Me.Height = 70
Me.Width = 130
tb.Text = "Hello World"
but.Location = New System.Drawing. Point(20, 10)
tb.Location = New System.Drawing. Point(10, 40)
Me.Controls.Add (but)
Me.Controls.Add (tb)
End Sub
///
I hope this helps,

Cor
"Marc Robitaille" <ma************ *@ars-solutions.caa> schreef in bericht
news:eq******** ******@TK2MSFTN GP09.phx.gbl...

I tried this
Texbox.Visible = False
Texbox.Visible = True
that doesn't make any difference Visible property remain to false... I
even tried this

If Value Then
Texbox.Visible = True
Else
Texbox.Visible = False
End If

Same result

Any Idea?

--
Marc R.
E-mail
Dim strAddr As String =Convert.ToStri ng(String.Forma t("{0}.{2}@{3}. {1}",
"mxrc", "cx", "robitxille ", "xrs-solutions")).Re place("x", "a")

"Cor Ligthert [MVP]" <no************ @planet.nl> a écrit dans le message
de news: uD************* *@TK2MSFTNGP09. phx.gbl...

Marc,

Why don't you just test with visible = false instead of visible = value

At least does it give us more information that the value is not wrong.

Just my thought,

Cor