Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Feb 3, 1999



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

Keep Track of Index Numbers

When using control arrays, I find it difficult to keep track of the index number of each control. Even if I use constants, I often have to look up the constant name for each field. Now, instead of using constants for each index number, I use this code. First, I declare an enumerated type for the index numbers:
Enum FieldConstants
	LastName = 0
	FirstName = 1
	Age = 2
	Address = 3
End Enum
I then create a property wrapper for the control array. The wrapper takes in an enumerated constant that represents the index number and returns the control in the array:
Property Get Fields(ByVal FieldNum As FieldConstants) _
	As TextBox
	Set Fields = txtFields(FieldNum)
End Property
The advantage to this wrapper is that when you type the property name, Fields, VB prompts you with the constant names listed in the enumerated type. This way, you can refer to controls in the array by name, and you never have to look up constant names again. Also, it makes the code more legible:
Private Sub Form_Load()
	Fields(LastName).Text = "Mojica"
End Sub
Jose Mojica
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