User defined Form property

[Harry Strybos]

Hi Guys

Am I just dumb or is there some new way to get a form property? eg

In frmClient I have:

Private _ClientID As Integer

Public Property ClientID() As Integer
Get
Return _ClientID
End Get
Set (ByVal Value As Integer)
_ClientID = Value
End Set
End Property

In frmMain I do something like this:

Dim frm As Form = New frmClient

With frm
.ShowDiaglogue()
'PROBLEM frm does not expose its property ClientID
If .ClientID > 0 Then 'error here
'do something
End if
End With

What am I doing wrong????? Thanx

[Tom Shelton]

On 2004-01-29, Harry Strybos <ha***@fin.nospam.anciallyfit.com.au> wrote:

Hi Guys

Am I just dumb or is there some new way to get a form property? eg

In frmClient I have:

Private _ClientID As Integer

Public Property ClientID() As Integer
Get
Return _ClientID
End Get
Set (ByVal Value As Integer)
_ClientID = Value
End Set
End Property

In frmMain I do something like this:

Dim frm As Form = New frmClient
Dim frm As New frmClient

With frm
.ShowDiaglogue()
'PROBLEM frm does not expose its property ClientID
If .ClientID > 0 Then 'error here
'do something
End if
End With

What am I doing wrong????? Thanx

You are assigning the inheriting type to it's base type. Form doesn't
expose a ClientID property :)

--
Tom Shelton [MVP]
Powered By: Gentoo Linux 1.4
You can't go home again, unless you set $HOME.

[Eduardo A. Morcillo [MS MVP VB]]

> Dim frm As Form = New frmClient

'PROBLEM frm does not expose its property ClientID

The variable is declared using Form. The Form class doesn't have a ClientID property, the frmClient class does. Declare your variable using frmClient instead of Form:

Dim frm As frmClient = New frmClient

Or

Dim frm As New frmClient

--
Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

[Eduardo A. Morcillo [MS MVP VB]]

> But then this begs the question: what is frm variable set to?

frm is set to a new instance of frmClient. But since its declared "As Form" you will only see the properties and methods exposed by the Form class.

Are you telling me that frm.ClientID doesn't exist?!
It exists, but is not accesible because frm is declared as Form, and is not a property of Form.
Then the above declaration/instantiation should not be allowed
and should cause an error.
Why? If frmClient inherits from Form that construction is valid.
Dim obj As Object = New frmClient

What is obj in the above statement?
A new frmClient instance.
Does it have the ClientID property?

It does, and you can call it if "Option Strict" is set to "Off". Otherwise you will have cast it to frmClient to call it.

--
Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo