Assignment of objects in VB6

by

Like many modern languages, VB6 has value types and reference types. Classes define reference types. On the other hand, your basic types like Integer are value types.

The basic difference is in assignment:

Dim a as Integer
Dim b as Integer
a = 2
b = a
a = 1

The result is that a is 1 and b is 2. That’s because assignment in value types makes a copy. That’s because each variable has space allocated for the value on the stack (in the case of VB6, an Integer takes up 2 bytes on the stack).

For classes, it works differently:

Dim a as MyClass
Dim b as MyClass
Set a = New MyClass
a.Value1 = 2
Set b = a
a.Value1 = 1

The result is that both a.Value1 and b.Value1 are 1. That’s because the state of the object is stored in the heap, not on the stack. Only the reference to the object is stored on the stack, so Set b = a overwrites the reference. Interestingly, VB6 is explicit about this by forcing you to use the Set keyword. Most other modern languages don’t require this.

Now, you can create your own value types (in VB6 they’re called User Defined Types, but in most other languages they’re called structs or structures). Here’s a tutorial.

The differences between a class and a user defined type (aside from a class being a reference type and a UDT being a value type) is that a class can contain behaviors (methods and properties) where a UDT cannot. If you’re just looking for a record-type class, then a UDT may be your solution.

You can use a mix of these techniques. Let’s say you need a Class because you have certain behaviors and calculations that you want to include along with the data. You can use the memento pattern to hold the state of an object inside of a UDT:

Type MyMemento
    Value1 As Integer
    Value2 As String
End Type

In your class, make sure that all your internal state is stored inside a private member of type MyMemento. Write your properties and methods so they only use data in that one private member variable.

Now making a copy of your object is simple. Just write a new method on your class called Copy() that returns a new instance of your class and initialize it with a copy of its own memento:

Private Memento As MyMemento

Friend Sub SetMemento(NewMemento As MyMemento)
    Memento = NewMemento
End Sub

Public Function Copy() as MyClass
    Dim Result as MyClass
    Set Result = new MyClass
    Call Result.SetMemento(Memento)
    Set Copy = Result
End Function

The Friend only hides it from stuff outside your project, so it doesn’t do much to hide the SetMemento sub, but it’s all you can do with VB6.

HTH

More Related Contents:

  1. Interface pointers C++
  2. ‘POCO’ definition
  3. CKEditor automatically strips classes from div
  4. What are public, private and protected in object oriented programming?
  5. Types and classes of variables
  6. List of class’s properties in swift
  7. Template in Fortran?
  8. What is the difference between static func and class func in Swift?
  9. What exactly is a Class Factory?
  10. Extending Android Application class
  11. Creating class instance properties from a dictionary?
  12. Counting instances of a class?
  13. Swift: Test class type in switch statement
  14. Class constructor type in typescript?
  15. Swift and using class extension
  16. Access variable in different class – Swift
  17. Copy Groovy class properties
  18. Fortran polymorphism in pointers
  19. How do you refactor a God class?
  20. Can I use in Google Apps Scripts a defined Class in a library with ES6 (V8)?
  21. What’s the difference between a protocol extended from AnyObject and a class-only protocol?
  22. Dynamic class in Angular.js
  23. How to synchronize a static variable among threads running different instances of a class in Java?
  24. templates: parent class member variables not visible in inherited class
  25. Access-SQL: Inner Join with multiple tables
  26. C# static class constructor
  27. Getting container/parent object from within python
  28. Missing 1 required positional argument
  29. Anonymous vs named inner classes? – best practices?
  30. What is the difference between super() with arguments and without arguments?

Leave a Comment