A question about classes [RESOLVED]

[ZoomyX]

I have a class, it looks like this(ill keep it simple):

Public Class Person
     Private m_Name as String

     Public Property Name() As String
          Get
               Name = m_Name
          End Get
          Set(ByVal Value As String)
               m_Name = Value
          End Set
     End Property
End Class

now i create instance of this like so:

     Dim OldMan As New Person

But what i want to do is set his name right away when i create the instance like this:

     Dim OldMan As New Person("Mr. Smith")

What do i have to add to my class to make this possible? I thought i could add a Sub New to my class like this to make it possible but it does not seem to work:

     Sub New(ByVal n as String)
          m_Name = n
     End Sub

but i just get an error saying "Argument not specified for parameter n"

Can someone help me out please, i just need to know how to set a property of a class right when i instance it.

[taxes]

Hi

"What do i have to add to my class to make this possible? I thought i could add a Sub New to my class like this to make it possible but it does not seem to work:


code:--------------------------------------------------------------------------------
Sub New(ByVal n as String)
m_Name = n
End Sub
"


try

Sub New(ByVal n As String) As String
m_Name = n
End Sub

Have a good look at the Help index for full instruction on Classes. It is very good, although you have to look at about 25 pages, much instruction is duplicated.

Regards

[ZoomyX]

didnt work taxes, that still gives me same error

[nswan]

this works for me

Public Class tester
    Dim str As String

    Public Sub New(ByVal value As String)
        str = value
    End Sub

    Public ReadOnly Property rstr()
        Get
            Return str
        End Get
    End Property
End Class

'put this for a click event on your form
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim new1 As New tester("nick")
        MsgBox(new1.rstr)
End Sub

hope this helps

Nick

[ZoomyX]

Thanks guys, i was mistaken my error was elsewhere.

[taxes]

Hi,


Sorry, I was looking at something else in my reference book.

My literature says your construction:

"Public Class Person
Private m_Name as String

Public Property Name() As String
Get
Name = m_Name
End Get
Set(ByVal Value As String)
m_Name = Value
End Set
End Property
End Class"

Should be:

Public Class Person
Private m_Name as String

Public Property Name() As String
Get
Return m_Name
End Get
Set(ByVal Value As String)
m_Name = Value
End Set
End Property
End Class


Try that.

Regards,