Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Oct 26, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Construct Shortcut to an Interface

hen using a class that implements an interface, it can be frustrating to have to create two variables to reference all the properties of both the interface class and the implemented class. For example, if the CEmployee class implements the IPerson interface, then you need two variables:
	Dim Emp1 As CEmployee
	Dim Person1 As IPerson

	Set Emp1 = New CEmployee
	Set Person1 = Emp1

	Person1.Name = "Joe Smith"
	Emp1.HireDate = "1/1/1998"
Instead, create a method in the CEmployee class that returns itself as the interface object:
	Public Function AsIPerson() As IPerson
		Set AsIPerson = Me
	End Function
Now you can rewrite the preceding code using just one object variable:
	Dim Emp1 As CEmployee

	Set Emp1 = New CEmployee

	Emp1.AsIPerson.Name = "Joe Smith"
	Emp1.HireDate = "1/1/1998"
Matthew Janofsky
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date