A Simple Class in VB.Net

I am very new to VB .Net and I am grappeling with classes. Can anyone show me a simple example of a class that concatenates the first and last name and displays it on screen. I'm getting sysntax correct in the class, but using the class is where i'm having the most problem. Books i've looked at don't give overly simple examples. Thanks in advance to anyone who can assist me.

Public Class Person 'declare memeber variables Private m_Firstname As String Private m_Lastname As String Private m_MI As String 'property procedures Public Property MI() As String Get Return m_MI End Get Set(ByVal Value As String) m_MI = Value End Set End Property Public Property Firstname() As String Get Return m_Firstname End Get Set(ByVal Value As String) m_Firstname = Value End Set End Property Public Property Lastname() As String Get Return m_Lastname End Get Set(ByVal Value As String) m_Lastname = Value End Set End Property 'method to combine lastname and firtname and return the value Public Function Fullname() As String Return Me.Lastname & " , " & Me.Firstname & " " & Me.MI End Function End Class 'to test , create an instance object of the class person assign values to Firstname and Lastname and MI envoke the method Fullname ex. Dim Pers as New Person() Pers.Firstname = "John" pers.Lastname = "Smith" MsgBox(Pers.Fullname) Hope this will help you!

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

junmarcs1721y ago
Public Class Person 'declare memeber variables Private m_Firstname As String Private m_Lastname As String Private m_MI As String 'property procedures Public Property MI() As String Get Return m_MI End Get Set(ByVal Value As String) m_MI = Value End Set End Property Public Property Firstname() As String Get Return m_Firstname End Get Set(ByVal Value As String) m_Firstname = Value End Set End Property Public Property Lastname() As String Get Return m_Lastname End Get Set(ByVal Value As String) m_Lastname = Value End Set End Property 'method to combine lastname and firtname and return the value Public Function Fullname() As String Return Me.Lastname & " , " & Me.Firstname & " " & Me.MI End Function End Class 'to test , create an instance object of the class person assign values to Firstname and Lastname and MI envoke the method Fullname ex. Dim Pers as New Person() Pers.Firstname = "John" pers.Lastname = "Smith" MsgBox(Pers.Fullname) Hope this will help you!
0