arrays - VB6 - 文字列配列の定義

Question

VB6 を使用する必要があり、いくつかの基本的なタスクに苦労しています。

たとえば、C# で配列を定義すると、次のようになります。

string[] s = {"a", "b", "c", "d" };

しかし、VB6では、私はこれを行ってきました:

Dim s(0 To 3) As String
s(0) = "a"
s(1) = "b"
s(2) = "c"
s(3) = "d"

上記の例よりも効率的に VB6 で配列を定義する方法はありますか? C# のアプローチに似た方法ですか?

Answer 1

Dim s
s = Array("a", "b", "c", "d")

Answer 2

バリアント配列ではなく文字列配列が必要な場合は、結果が得られます。Array()

Function ArrayString(ParamArray tokens()) As String()
    ReDim arr(UBound(tokens)) As String
    Dim i As Long
    For i = 0 To UBound(tokens)
        arr(i) = tokens(i)
    Next
    ArrayString = arr
End Function

...

Dim a() As String
a = ArrayString("foo", "bar", ..., "qux")