Solved

Objects - How to add additional property in Class

Posted on 2010-09-03
5
234 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Instantly Create Instructional Tutorials

Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.

Question has a verified solution.

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

Suggested Solutions

More often than not, we developers are confronted with a need: a need to make some kind of magic happen via code. Whether it is for a client, for the boss, or for our own personal projects, the need must be satisfied. Most of the time, the Framework…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

751 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