How to Override the TEXT property of a CLASS? Anyone please?

Question

 

Hi to the experts,

 

I have built a CLASS called CustomMsgBox with a vertical scrollbar on the RichTextBox and I want to

OVERRIDE ( or will it be SHADOW ? )

the TEXT property so that any text is written and read from the rtb RichTextBox.

 

Additionally I always want this CustomMsgBox to open in the Center ( or Centre ) of the screen.

 

Unfortunately I can not Inherit from MessageBox as it has not got an accessible NEW SUB.

If it has a PRIVATE NEW Sub can it be overridden?

 

Does CLOSE also call DISPOSE?

 

Please help.

 

This is what i have so far.

 

Thanks, in advance, for any help.

 

 

 

 

Regards,

 

John

 

 

Code Block

 

Option Strict On

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim cMsgBox As New CustomMsgBox

cMsgBox.Show()

 

End Sub

End Class

 

 

 

 

 

 

My CLASS code.

 

Code Block

 

Public Class CustomMsgBox

 

Inherits System.Windows.Forms.Form

 

Friend WithEvents btn As New Windows.Forms.Button

Friend WithEvents rtb As New Windows.Forms.RichTextBox

 

Public Sub New()

Me.ControlBox = False

Dim aPoint As Point

Me.Width = 450

Me.Height = My.Computer.Screen.WorkingArea.Height

aPoint.X = 300

aPoint.Y = 0

Me.Location = aPoint

aPoint.X = 5

aPoint.Y = 5

rtb.Location = aPoint

rtb.Width = Me.Width - 20

rtb.Height = Me.Height - 120

rtb.ScrollBars = RichTextBoxScrollBars.Vertical

Me.Controls.Add(rtb)

btn.Width = 50

btn.Height = 20

aPoint.X = (Me.Width \ 2) - (btn.Width \ 2)

aPoint.Y = Me.Height - 100

btn.Location = aPoint

btn.Text = "OK"

Me.Controls.Add(btn)

Me.Text = "Output message."

End Sub

 

 

Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click

Me.Close()

End Sub

 

'Public Property Text() As String

'Get

'Return rtb.Text

'End Get

'Set(ByVal value As String)

'rtb.Text = value

'End Set

'End Property

 

End Class

 

 

 

 

Answer 1

John Oliver (UK)MSP, VSIP wrote:

I have built a CLASS called CustomMsgBox with a vertical scrollbar on the RichTextBox and I want to OVERRIDE ( or will it be SHADOW ? ) the TEXT property so that any text is written and read from the rtb RichTextBox.

 

You can override the Text property, it's virtual.

 

John Oliver (UK)MSP, VSIP wrote:

Additionally I always want this CustomMsgBox to open in the Center ( or Centre ) of the screen.

 

Code Block

Me.StartPosition = FormStartPosition.CenterScreen

 

 

John Oliver (UK)MSP, VSIP wrote:

Unfortunately I can not Inherit from MessageBox as it has not got an accessible NEW SUB. If it has a PRIVATE NEW Sub can it be overridden?

 

No.

 

John Oliver (UK)MSP, VSIP wrote:

Does CLOSE also call DISPOSE?

 

Let that be the problem of the GC. You don't need to call Dispose explicitly.

 

--

Regards,

Daniel Kuppitz

Answer 2

Daniel Kuppitz wrote:

You can override the Text property, it's virtual.     Regards, Daniel Kuppitz

 

Hi Daniel,

 

Thanks for your post but I want to know how to override the the text property as well please.

 

Thanks for the other answers by the way.

 

What do you mean by GC please?

 

 

 

 

Regards,

 

John.

 

Answer 3

John Oliver (UK)MSP, VSIP wrote:

Thanks for your post but I want to know how to override the the text property as well please.

 

Code Block

Public Overrides Property Text() As String

Get

Return Me.rtb.Text

End Get

Set(ByVal value As String)

Me.rtb.Text = value

End Set