user-defined data type capabilities


W

Walter Briscoe

It seems I use Microsoft Visual Basic 6.5 from Microsoft Excel 2003.

I've just introduced my first user-defined data type (UDT) to a module.
I found it greatly simplified passing parameters.

Private Type Journey
Depart As String
Arrive As String
End Type

What can I do with such UDTs?
1) Declare functions and scalar, array, and parameter variables.
2) Assign e.g. Dim A as UDT, B as UDT: A = B
3) Not compare variables. e.g. if UDT0 = UDT1 ... gets an error.

What else can UDTs be used for?

When, in the Visual Basic Editor (VBE), I hover over code referencing a
variable or expression of a predefined type (Byte, Boolean, Integer,
....), the VBE displays its value.
Can this be extended to UDTs?
if so, how?

I assume such code would avoid the type mismatch I get if I do "?UDT" in
the immediate window.
 
Ad

Advertisements

Ad

Advertisements

J

JLatham

You can pretty much do anything with a UDT that you can with any other
variable. You need to remember that the various predefined types you use as
members of your UDT now become properties of any variables you define, via
Dim, as a UDT. Perhaps these simple examples will help you get a better
picture of how it works. One uses a simple variable defined as a UDT named
myUDT, and the second uses an array defined as the same UDT type.

You need to remember to use the properties when referencing any variable
you've declared as one of your UDTs; that will prevent errors when doing
comparisons and when trying to print their values, i.e.
If UDT1.Property1 = UDT2.Property1 Then
or
? UDT1.Property5
in the Immediate window.

Type myUDT
depart As Date
arrive As Date
distance As Integer
End Type

Sub CalculateMPH()
Dim myTrip As myUDT

myTrip.depart = "1/1/09 12:00:00"
myTrip.arrive = "1/1/09 12:45:00"
myTrip.distance = 38
MsgBox "MPH for the trip was: " & myTrip.distance / ((myTrip.arrive -
myTrip.depart) * 24)
End Sub

Sub CalculateTripLegs()
'an array of user defined type myUDT
Dim myTrip(1 To 10) As myUDT

myTrip(1).depart = "1/1/09 12:00:00"
myTrip(1).arrive = "1/1/09 12:45:00"
myTrip(1).distance = 38
MsgBox "MPH for the trip was: " & myTrip(1).distance / ((myTrip(1).arrive
- myTrip(1).depart) * 24)
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top