Constant Arrays?

[Donato]

Hi,

I'm trying to create an array as a constant.
Is this possible in VB 6?

Here is a sample of what I am try to do:

Const ServiceType = ["ITEM1", "ITEM2", "ITEM3", "ITEM4", "ITEM5"]

Thanks.

 

[vwhite]

Hi Donato,

Did you figure out if this was possible? I have been having the same dilema....

VW....

 

[JohnYingling]

Private ServiceType() as string
Form_Initialize 'or Class_Intitialize
ServiceType = Split("ITEM1,ITEM2,ITEM3,ITEM4,ITEM5",",&quot
End Sub

In a Sub or Function
.... SUb ....
Static ServiceType() as String
Static blnInit as Boolean
if blnInit = false then
ServiceType = Split("ITEM1,ITEM2,ITEM3,ITEM4,ITEM5",",&quot
blnInit = True
end if
End Sub

Change if "," can occur in data the substitute "~" or whatever.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[CCLINT]

The best you can do is what JohnYingling is pointing out:
1. Create a string constant with a delimiter
Const ServiceType$ = "ITEM1, ITEM2, ITEM3, ITEM4, ITEM5"

When needing to access the elements you could use the Split function to create an array out of the string:

Dim myArray() As String

myArray = Split(ServiceType, ",&quot
Debug.Print myArray(2) 'returns ITEM3



Also as JohnYingling pointed out, you need to select a delimter that isn't already used in one of the items. A Tab delimeter may be good to use:

Const ServiceType$ = "ITEM1" & vbTab & "ITEM2" & vbTab & "ITEM3" & vbTab & "ITEM4"

Dim myArray() As String

myArray = Split(ServiceType, ",&quot
Debug.Print myArray(2) 'returns ITEM3