Solved

Objects - How to add additional property in Class

Posted on 2010-09-03
5
231 Views
Last Modified: 2013-11-27
I have the following code for a Customer object and would like to add additional properties. In this instance I would like to add IDCustomer. There is only one ID per customer. What would be the correct syntax for this?

I currently fill an array with customerArray.Add(New Customer(reader1("CompanyName"))).
Public Class Customer

	Inherits [Object]

	Private custID As Long

	Private custName As String = ""

	Friend custOrders As New ArrayList()



	Public Sub New(ByVal customername As String)

		Me.custName = customername

	End Sub



	Public Property CustomerName() As String

		Get

			Return Me.custName

		End Get

		Set(ByVal Value As String)

			Me.custName = Value

		End Set

	End Property



	Public ReadOnly Property CustomerOrders() As ArrayList

		Get

			Return Me.custOrders

		End Get

	End Property

End Class 'End Customer class





Public Class Order

	Inherits [Object]

	Private ordID As String



	Public Sub New(ByVal orderid As String)

		Me.ordID = orderid

	End Sub 'New



	Public Property OrderID() As String

		Get

			Return Me.ordID

		End Get

		Set(ByVal Value As String)

			Me.ordID = Value

		End Set

	End Property

End Class ' End Order class

Open in new window

0
Comment
Question by:TeDeSm
  • 3
  • 2
5 Comments
 
LVL 17

Expert Comment

by:Zhaolai
ID: 33597406
Add this code to your class:



	Public Property CustomerID() As Long

		Get

			Return Me.custID

		End Get

		Set(ByVal Value As Long)

			Me.custID = Value

		End Set

	End Property

Open in new window

0
 

Author Comment

by:TeDeSm
ID: 33597941
Thanks for the help.

I am specifying my array Private customerArray As New ArrayList() and filling it with
 customerArray.Add(New Customer(reader1("CompanyName")))

I need this array to hold IDCustomer as well as the CustomerName, how do I set both for each array entry?
0
 
LVL 17

Expert Comment

by:Zhaolai
ID: 33597987
Dim cust as New Customer(reader1("CompanyName"))
cust.CustomerID =reader1("CustomerID")
customerArray.Add(cust)

0
 
LVL 17

Accepted Solution

by:
Zhaolai earned 500 total points
ID: 33598024
Or you can change sub New in your Customer class like this:

      Public Sub New(ByVal CustomerID as Long,  ByVal customername As String)
            me.custID = CustomerID
Me.custName = customername
      End Sub

Then when you add to arraylist, do this:
customerArray.Add(New Customer(reader1("CustomerID"), reader1("CompanyName")))
0
 

Author Closing Comment

by:TeDeSm
ID: 33602367
Great solution, thanks
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
I need help embedding an image as HTML in my vb.net application 3 50
Help with solving error related to resources file 4 36
Tool Box 2 35
Name space syntax error 12 43
This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now