Solved

Objects - How to add additional property in Class

Posted on 2010-09-03
5
233 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

How our DevOps Teams Maximize Uptime

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

Question has a verified solution.

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

In my previous two articles we discussed Binary Serialization (http://www.experts-exchange.com/A_4362.html) and XML Serialization (http://www.experts-exchange.com/A_4425.html). In this article we will try to know more about SOAP (Simple Object Acces…
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

821 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