[2005] Inherited Forms

[Eroc]

We are using inherted forms and I am trying to control the form's title to keep it consistant within the application.

An example of what I am doing is like this:

base.vb <-- our base form that is inherited by the other forms
form1.vb <-- form that is inheriteding base.vb

If in form1.vb someone changes the me.text to anything then they clear it, now form1.vb shows me.text = "" or whatever they have in there overriding my inherited forms title.

Long story short, can I lock the me.text so that base.vb overrides or cannot be changed by forms inheriting it?

Thanks !
Eroc

[jmcilhinney]

You'd have to shadow the Text property so that it did not set the corresponding base property.

Public Class BaseForm
    Inherits Form
 
    'Hide the base Text behind a read-only property so it cannot be set.
    'Also, don't show it in the Properties window.
    <Browsable(False)> _
    Public Shadows ReadOnly Property Text() As String
        Get
            Return MyBase.Text
        End Get
    End Property
 
    Public Sub New()
        '...
 
        MyBase.Text = "This Title Cannot Be Changed"
    End Sub
 
End Class

Note though that because the base property is not declared Overridable you must declare the new property Shadows, which means that if the caller casts it as type Form they will be able to change the Text property and there is no way around that.